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'Tandy Shoots 
Back with Three 
New Computer 

Inside 80 gives you 
the breakdown on 
Tandy's newest 
market entries: 



• THE COLOR 
COMPUTER 

• THE POCKET 
COMPUTER 

• THE 
MODEL III 
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TRS-80* Model I Computer Owners 



Store More Data 

on a 5 '-Disk 

Than on an 8 -Disk 
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The Doubler'": Percom's new 
proprietary double-density 
adapter for the TRS-80* com- 
puter. 



Plug the DOUBLER" into the 
disk controller chip socket 
of your Expansion Interface 
and . . . 



Store up to 354 Kbytes of formatted data on five-inch disks. 



• Increase formatted storage 
capacity of your minidiskettes from 
1 V2 to almost 4 times. 

• Use with standard 5-inch drives 
rated for double-density operation. 

• The DOUBLER"' reads, writes 
and formats either single- or double- 
density disks. 

• Proprietary design allows you to 
continue to run TRSDOS*, NEW- 
DOS?, Percom OS-80'" or other 
single-density software without 
making any changes to software or 
hardware. 

Mini-Disk Systems 
More storage ca- 
pacity, higher re- 
liability — from Per- 
com, the industry 
leader. One-, two- 
and three-drive configurations in 
either 40- or 77-track format, start- 
ing at only $399. 
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• Includes DBLDOS. ,M a 
TRSDOS* compatible double- 
density disk operating system. 

• CONVERT utility, on DBLDOS ,M 
minidiskette, converts files and pro- 
grams from single- to double-density 
or double- to single -density. 

• Plug-in installation: No strap- 
ping. No trace cutting. Restore your 
Expansion Interface disk controller 
to original configuration by simply 
removing the DOUBLER'" and re- 
installing the original disk controller 
chip. 

r n 

1 PERCOM DISCOUNT COUPON 1 

worth $20 

toward 

The Purchase of a 

DOUBLER™ 

Coupon No. 80M103 

Expires December 30, 1980 

Void where prohibited by law. 




• The DOUBLER™ 
circuit card includes 
high-performance 
data separator, write 
precompensation cir- 
cuits for reliable disk read operations 
— even on 77-track drives. 

Introductory price, including 
DBLDOS™ and format conversion 
utility on minidiskette, only $219.95. 
Use the coupon for even greater 
savings. 

Call toll-free, 1-800-527-1592, 

for the address of your nearest 
dealer, or to order direct from Per- 
com. 

ii TFO 200" drive. 06 '»ng system 




PERCOM DATA COMPANY. INC. 
211 N KIRBY GARLAND TEXAS 75042 

[214)878 
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The easiest, least expensive way to generate 

spectacular multi-color graphics, sharp two-color alphanumerics: 

Your computer, a color tv set and the Percom Electric Crayon™. 



Add the Electric Crayon™ to your 
system and your keyboard be- 
comes a palette, the tv screen 
your medium. 

You dab and stroke using one- 
key commands to create dazzling 
full-color drawings, eye-catching 
charts and diagrams. 

Or you run any of innumerable 
programs. Your own BASIC lan- 
guage programs that generate 
dynamic pyrotechnic images, 
laujjh-provoking animations. 

From a combined alphanu- 
merics-semigraphics mode to a 
high resolution 256- by 192- 
element full graphics mode, the 
microprocessor-controlled Electric 
Crayon™ is capable of generating 
10 distinctly different display 
modes. 

Colors are brilliant and true, and 
up to eight are available depend- 
ing on the mode. 

As shipped, the Electric Crayon ,w 
interfaces a TRS-80* computer via 
your Expansion Interface or Printer 



Adapter. It may be easily adapted 
for interfacing to any computer or to 
an ordinary parallel ASCI I keyboard 

But that's not all 

The Electric Crayon is not just a 
color graphics generator/control- 
ler. 

It is also a complete self- 
contained control computer With 
built-in provision for 1K-byte of 
on-board program RAM, an 

EPROM chip for extending EGOS™, 
its on-board ROM graphics OS, 
and a dual bidirectional eight-bit 
port — over and above the com- 
puter/keyboard port — for 
peripherals. The applications are 
endless. 

Shipped with EGOS™, 1K-byte of 
display memory and a com- 
prehensive user's manual that in- 
cludes an assembly language list- 
ing of EGOS™ and listings of 
BASIC demo programs, the Elec- 
tric Crayon™ costs only $249.95. 



Options include: 

• LEVEL II BASIC color 
graphics programs on 
minidiskette: $17.95. 

• A 34-conductor ribbon 
cable to interconnect the Elec- 
tric Crayon™ to a TRS-80*: 
$24.95. 

• RAM chips for adding re- 
fresh memory for higher den- 
sity graphics modes: $29.95 
per K-byte. 

• Electric Crayon™ 
Sketchpad, a sketching grid 
of proportioned picture ele- 
ments (pixels) in a tv aspect 
ratio. For 128 x 192 or 256 x 
192 graphics modes. 11 -inch 
by 17-inch, 25-sheet pads: 
$3.95 per pad. 

SYSTEM REQUIREMENTS the video cir- 
cuitry of the Electric Crayon™ provides di- 
rect drive input to a video monitor or mod- 
ified tv set An internal up-modulator for rf 
antenna input may be constructed by add- 
ing inexpensive components to the existing 
video circuitry. 

Prices and specifications subject to cnange without notce 
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PERCOM DATA COMPANY. INC 

211 N KIRBY GAHLANO TEXAS 7504? 
1314) 272 3421 



'" = trademark o< Percom Data Company, inc 

* ■ trademark ol Tandy Rado Snack Corporation when r-.as no relationship to Percom Data Company 

Get into computer color graphics the easy, low-cost way with a Per- 
com Electric Crayon™. Available at Percom dealers nationwide. Call 
toll-free, 1-800-527-1592, for the address of your nearest dealer, 
or to order direct if there is no Percom dealer in your area. 



META TECHNOLOGIES 

FOR YOUR TRS-80® DISK SYSTEM 



MTCAIDS- 



• 



MODEL I . . $69.95 MODEL II . . $99.95 

Introducing the latest addition to MTC's family of data management systems. AIDS III NO 
PROGRAMMING easy to use COMPLETE PACKAGE including demonstration application, 
documentation and MAPS III (see below). 

• Up to 20 USER DEFINED FIELDS ol either numeric or character type 

• CHARACTER type fields may be any length (total up to 254 characters) 

• NUMERIC type fields feature automatic formatting, rounding, decimal alignment and 
validation 

• Full feature EDITING when adding or changing records 

ENTER FIELD lean t type in more character* than specified' 
BACKSPACE (delete last character typed) RIGHT JUSTIFY FIELD contents 

DELETE FIELD contents SKIP FIELD (to next or previous field) 

RESTORE FIELD contents SKIP RECORD (to next or previous record) 

• SORTING of records is MACHINE CODE assisted 

200 RECORDS (40 characters) in about 5 SECONDS 

ANY COMBINATION ot fields (including numerics) with each field in ascending or 
descending order 

• SELECTION of records for Loading. Updating. Deleting, Printing and Saving is 
MACHINE CODE assisted 

Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS 

LOAD or SAVE selected records using MULTIPLE FILES 

Example Select records representing those people who live in the state of Col 

orado. but not in the city of Denver, whose last names begin with "F" 

and whose incomes exceed $9000.00. 
Example Select records representing those sales made to XYZ COMPANY that 

exceed $25 00, between the dates 03 15 and 04 10 

MAPS III (MTC AIDS PRINT SUBSYSTEM) included at no charge, has the following features 

• Full AIDS III SELECTION capabilities 

• Prints user specified fields DOWN THF PAGF 

• Prints user specified fields in titled columnar REPORT FORMAT, automatically 
generating column headings, paging and (optionally) indentation 

• Can create a single report from MULTIPLE FILES. 

• Prints user defined formats for CUSTOM LABELS, custom forms, etc 

BELOW ARE TESTIMONIALS from owneis of AIDS systems These are absolutely authentic 
statements and are typical of the comments we receive 

"This program will do more for my business than all the other programs I 
have, combined " 

David Wareham Vice President (EDP) National Hospital and Health Care Services Inc. 

"We have 32 different Data Base Management packages for the TRS-80 AIDS III is easily 
the best. It also makes it easier tor us to step up to our Model II since the package is 

available for both computers." . „ . _ , _. ,. _ 

Jack Bilinski. President. 80 Microcomputer Services 

"Your AIDS program is far and away the finest information management system that I've 
ever seen I am currently using it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly." 

Frank Boehm. Director Front Door Residential Treatment Program 

• COMPATIBLE with AIDS II data files and AIDS subsystems 

• Move up from AIDS II and EXPAND to 20 field capability WITHOUT REENTERING 
DATA 

• AIDS II (Model I or II) owners may UPGRADE FOR ONLY $25 00 

WARNING' This program is written in BASIC and can be listed in the normal manner 
Mod ficaf on of program code is NOl Pi COMMENDED due to its extreme complexity 



MTC AIDS - II 

Ailing information? Doctor it up with AIDS -II. 
This Automated Information Directory System 
offers twelve user defined fields with full feature 
editing when adding or changing records. Selec- 
tive Loading. Updating, Deleting, Printing and 
Saving records may be accomplished using any 
of six relational comparisons Also features 
machine code assisted sorting (200 records in 
about 5 seconds) by any combination of fields, 
and much more! Unique "windowing' capability 
allows directories of unlimited si/e Window sue 
is typically 200 or more records in 32K. Can be 
used for mailing lists, client reference reporting, 
appointment "calendars' . inventory records and 
other information systems Easy to use Defining 
a system takes about a minute MAPS I (MTC 
AIDS PRINT SUBSYSTEM) is included at no 
charge MAPS features full AIDS II selection 
capabilities, prints user specified fields down the 
page, produces user specified columnar report 
formats with automatically generated column 
headings and paging, and allows user defined 
print formats tor custom forms, labels, etc Add 
subsystems tor additional capabilities. May be 
upgraded to AIDS III when required. 

MTC AIDS II $49 95 

For Model II $ 79 95 



AIDS 



CALCULATION SUBSYSTEM (CALCS) 

MTC's most popular AIDS subsystem Use lor 
report generation involving basic manipulation 
of numeric data Prints user specified fields in 
titled, columnar report format, automatically 
generating column headings, paging and (op- 
tionally) indentation Features full AIDS III selec- 
tion capabilities and can create a single report 
from multiple files. Provides the additional 
capabilities of user -specified balance forward 
computations, columnar subtotals, columnar 
totals and user defined computations (allows 
multiplication, division, addition and subtrac 
tion of field values and constants) Features may 
be used in combination. For example, the 
calculation of a user defined quantity cost col- 
umn may simultaneously be listed by itself, used 
as part of a balance forward computation and as 
part of either (or both) a columnar subtotal or 
columnar total Use for accounting, inventory 
financial and other numeric based information 
systems. 

MTC CALCS $24 95 

For Model II $ 39 95 



MORE 



PRODUCTS ON PAGES 6 & 7 



All products 

guaranteed for 

replacement only. 

Prices. Specifications & 

Offerings subiect to 
change without notice 



MOST ORDERS 

SHIPPED 

WITHIN ONE 

BUSINESS DAY 



QUANTITY 

DISCOUNT 

INQUIRIES 

INVITED 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD 



Add $2 50 for 
standard UPS 
shipping & handling 
$2 00 EXTRA 
for C O.D 
Ohio residents 
add 5'. u o sales tax 




TO ORDER CALL TOLL FREE 

1-800-321-3552 

IN OHIO call (216)289 7500 (COLLECT) 

lYlETfl Technqlqgjes Clwl™i™ 

26111 Brush Avenue. Euclid, Ohio 44132 ^«os 
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APPLICATION 

162 Doctor Your Records From one who knows. Wilbur A. Muehlig, M.D. 

174 Mind Your A's & P's Super marketing fantasy. Lois L. Leonard 

BUSINESS 

212 Down the Road Maximize your profits. Bill Vick 

DATA MANAGEMENT 

146 Reference Library Index An easy method. James P. Morgan 

EDUCATION 

124 Kidstuff For children only. Dan Keen and Dave Dischart 

182 Music Note Recognition Orchestra, ready? J. David McClung 

216 Ping-Pong Better than the original. Ronald Moehlis 
GENERAL 

58 A Bout with the I.R.S. How the 80 won. Fred Blechman 

187 BINAX KIBUFF Entering ROM. John T. Blair 

208 The "Next" Trap How to escape it. Hubert C. Borrmann 
HARDWARE 
84 Teletype Interlace Versatility plus. Jake Commander 
102 Selectric Hard Copy Put it to use. Michael W. Bickerton, M.D. 
116 Build Your Own Port Then take off. James S. Hawkes/Reese Grady 
MATH 

170 Divine Proportions Beautiful graphics. David R. Cecil 
REVIEW 

154 Eloquent Eighties Tandy's machine. Jim Wright 
STYLE 

188 Variations on a Theme Deal with PRINT like a pro. George R. Bullitt 

50 Into the 80's A beginning for beginners. I.R. Sinclair 

62 Pulling Strings Together Learn to manipulate. John D. Adams 

138 My Way May be better than your way. Robert V. Meushaw 

152 Stringy Machine Code How to pack it. David D. Grimes 

158 Math Flash Want to add and subtract? Jim Barbarello 

178 An Article Called Intrepid For secret agents. Buzz Gorsky 
UTILITY 

68 Free Space Beat your SYSTEM. David Cornell 

76 Uni-key Cut down entry time. Rowland Archer, Jr. 

88 Document Those Variables Save time and space. William Noel 

94 Printer Calibration Perfect alignment. L.O. Rexrode 

98 Versatile Input Input data with ease. Tim Wilde 

150 Position Display Look professional. Jerry Frost 

168 Delay Loop Waste time. Allan S. Joffe 

173 Walking Words Be sure to catch this one. Hubert C. Borrman 

192 Beyond Shell Metzner Sort with authority. Doug Walker 

196 Deflower your Debug Without reprisals. Donald C. Walker 

202 Slow Scroll For slow readers. Peter A. Lewis 

206 QWIKDISK Cut your access time. Bruce Nazarian 

210 The Competition's Cursor How to get it. R. Daniel Bishop 
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META TECHNOLOGIES 



• • • CUSTOMER APPRECIATION MONTH • • • 
TO OUR THOUSANDS OF CUSTOMERS WE WANT TO SAY 

THANK 
YOU! 

TEAR OUT AND MAIL US THIS AD PAGE AND $19.80 (plus shipping & handling) 
and receive 1 Box of 10 VERBATIM single-sided, single-density, soft-sectored 
MD525 01 Diskettes; exactly the same as our regularly priced ($23.95) diskettes. 

READ THIS CAREFULLY 

Include $2 50 tor shipping & handling Ohio residents add $1 09 sales tax Diskettes will be 
shipped ONLY by standard UPS, with NO deliveries to P.O. Box addresses NO phone 
orders, purchase orders or CO D orders will be accepted Actual ad page trom this 
magazine MUST accompany order NO tacsimiles will be accepted VISA and MASTER 
CHARGE will be accepted tor payment (make sure cardnumber is correct) Order may in 
elude other products (these orders will be processed lirst) U S orders only NO foreign 
orders Our special apologies to our Canadian Inends, but customs and shipping ditticulties 
prevent us from including you Orders MUST be postmarked between Sept 1, 1980 and 
Sept 30. 1980, inclusive-NO EXCEPTIONS Shipping label MUST be complete Orders will 
be refused and returned, in their entirety, it they are incorrect in ANY way Allow 2 to 4 
weeks for delivery Offer limited to ONE ad page special per order 
Mail to: META TECH CORP.. DEPT. CD. 26111 Brush Ave.. Euclid. OH 44132 
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mTc-SHIRTS 

HIGH-QUALITY. POLY COTTON 
BLEND T-SHIRTS. White with Navy Blue 
neck and sleeve ringers MTC logo on sleeve 
Top quality transfers of your choice on front 

I Specify size (S .M L XL.) and Transfer 
. META TECHNOLOGIES MAKES EVERY BYTE 
COUNT! 

• DON'T TOUCH MY BITS 1 

I I I I I I o 

• RAM it! 

• MICRO LOVERS TAKE SMALLER BYTES! 

mTc SHIRTS J4.95 



Let Your TRS-80" Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by THE MICRO CLINIC 

A complete checkup for your Model I. THE FLOP 
PY DOCTOR completely checks every sector of 
35 or 40track disk drives Tests motor speed 
head positioning, controller functions, status bits 
and provides complete error logging. THE 
MEMORY DIAGNOSTIC checks for proper 
write read, refresh, executability and exclusivity of 
all address locations Includes both diagnostics 
and complete instruction manual 
SYSTEM DIAGNOSTICS $19.95 



Apparat. Inc. introduces 

NEWDOS/80 

Apparat s long awaited successor to NEWDOS + 
is here! This is not an enhanced version of 
NEWDOS. but a completely new product 
Simplified DOS commands can be instantly ex 
ecuted from BASIC, even within a program, 
without disturbing the resident code System op 
I ton', such as password protection number and 
type of disk drives. BREAK key enable disable 
and lowercase modification recognition, can be 
quickly and easily changed Five new random 
access file types allow record lengths of up to 
4096 bytes, and no FIELDine 1 A powerful CHAIN 
facility allows keyboard INPUT s to be read from a 
disk file An improved RENUMBER facility per 
mits groups of statements to be relocated within 
program code Diskettes may even be 
designated as RUN ONLY 1 Features all 
NEWDOS* utilities (SUPERZAP 3 etc.) and 
much more 1 One MTC technical staff member 
said having NEWDOS'HO is "better than sex" 
(you'll have to judge for yourself!) Includes 
180- page instruction manual and MTC QUE 
card 

NEWDOS'80 S 149 95 

CALL REGARDING OUR NEWDOS+ UPGRADE 
PRICING 



• PRODUCT PREVIEW * 

Random File Sort 
This product will provide a very powerful, high- 
speed sorting capability for use either as part of 
an application system, or as a separate utility 
Implemented as a combination of BASIC and 
machine language, it will offer flexibility, conve 
nience. and high performance Features will 
include 

• Ability to select' records to be included in 
the sort Selection comparisons may be done 
against literal values or other fields in the 
record 

• Multiple selection fields may be specified to 
achieve selection using complex conditional 
relationships 

• The sorting key may contain many fields of 
any combination in ascending or descending 
order 

• All available memory is utilized lor higher 
performance. Sort and Merge operations are 
performed in machine language 

• Can be linked into a system by specifying the 
BASIC program tobe run when sort isfinished 

• Automatic deblocking ot random tiles with 
multiple logical records in each sector. 



MORE 

PRODUCTS ON PAGE 4 

Transfer PROGRAMS and DATA 
from MODEL I to MODEL II 

TRAN-SEND 



$49 95 



by MTC 



Requires MODEL II and MODEL I with disk & 
RS 232 Simple to use not a kit nothing else to 
buy Complete with custom cable, 5' « & 8 Hop 
pies, instructions. May be used over phone lines. 

Custom Cable only $19.95 

ftnM 1 0131 



MAKES EVERY BYTE COUNT 

IN YOUR TRS-80* MODEL I OR MODEL II DISK SYSTEM 



Single sided. Single density. Soft-sectored 



PROGRAMMING SAVE && DISKETTES 



TOOLS 



For Model II $74.95 



TDAM $19.95 

For Model II $29.95 

Includes MTC QUE Card! 

Having trouble with RANDOM FILES 7 With MTC's 
Table Driven Access Method (TDAM) you'll never 
Iret over FIELDing again No knowledge ol 
random access liles is required Insert the TDAM 
"'interpreter into any BASIC program and type in 
a lew DATA statements describing the information 
in your files TDAM does the rest 1 Reads and 
writes fields and records of any type (even com- 
presses a DATE field into 3 bytes') Features 
automatic file buffer allocation deallocation, 
memory buffering, sub record blockingide 
blocking, and handles up to 25b fields per record 
Super fast and super simple' Complete with 
TDAM interpreter, instructions and demo pro- 
gram Requires programming experience 



DIVERGE $19.95 

For Model II $29.95 

Compares two BASIC program files, showing the 
differences between them Identifies & lists lines 
which have been inserted deleted, 4 replaced 
Use lor version control 



SIFTER $19 95 

For Model II $29.95 

Twelve in memory high speed sorts for use in any 
BASIC program stable, non stable, with, without 
tags lor numeric or string data Random File 
Sort included Some sorts written in machine 
code Includes sort subroutines, demo programs 
and instructions Relocate as needed with 
REBUILD Requires programming eipenenc*- 



SHRINK $19.95 

For Model II $29.95 

Makes Every Byte Count 1 Make programs 
smaller and taster 1 Combines lines & removes un- 
necessary code including remarks, without alter- 
ing program operation. Typically reduce* pro- 
gram size 25% to 40% 



Verbatim 5 : > -inch 

$23 



95 

Box Of 10 



Quantities of 10 boxes (each) $22.95 



Hard sectored ( 10 hole) Box ol 10 
8-inch FLOPPIES 

Single density. Box of 10 

Double density BoxotlO 

PLASTIC LIBRARY CASES 

5'«-inch or 8 inch diskette case 



$26 95 



$29.95 
$39 95 



$3 00 



SUPERSEDE $19.95 

For Model II $29.95 

A "must have" lor the professional programmer 
or the serious amateur. Probably one of the 
greatest time savers available Write programs in 
shorthand change variable names generate 

Qram documentation use with REBUILD and 
GLE to build new programs from old ones 



» 



REBUILD $19.95 

For Model II $29.95 

Reorganize programs lor adding program code, 
faster execution readability Much more than sim- 
ple renumbering Rearrange groups of statements 
within a program automatically updates 
references to line numbers Use with 
SUPERSEDE ami MINGLE lor maximum effect 



MINGLE-II $19.95 

For Model II $29.95 

Merge up to 14 files (Program or Data) into a 
single file Data tiles may be merged in ascending 
or descending sequence with the ordering based 
on a user specified comparison field A very han 
dy utility lor consolidating data liles 



50(5' 4-inch) diskette file box $19 95 

FACTORY FRESH ABSOLUTELY FIRST QUALITY 
Minimum order 1 box. NO order limit' 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 

%J) \J ^ by Apparat 

40 TRACK VERSION $ 79.95 

includes REF. RENUM, SUPERZAP. EDITOR' 
ASSEM . DISASSEM , DIRCHECK. and more 1 This 
is the original NEWDOS with all ol Apparat's utility 
programs Includes exclusive MTC QUE (Quick User 
Education) card. 

MTC QUE Card only $1 50 



Let Your TRS 80 Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

REMSOFT does it again! REMDISK 1 is a concise, 
capsulated supplement to REM ASSEM 1. Package 
consists ol two 45 minute lessons on audio casset 
tes and display programs providing illustration 
and reinlorcement Provides specific track and 
sector I techniques and sequential and random 
file access methods and routines 



REMDISK 1 $29.95 
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Let your TRS 80 Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFT s unique package INTRODUCTION 
TO TRS-80 ASSEMBLY PROGRAMMING in 
eludes ten 45 minute lessons on audio cassettes, a 
display program lor each lesson providing illustra 
tion & reinforcement, and a text book on TRS 80 
Assembly Language Programming Includes use- 
ful routines to access keyboard video printer and 
ROM Requires 16K Level II Model I 

REMASSEM 1 $69 95 



The perfect supplement for your 
NEWDOS. from IJG, Inc. 

TRS-80 DISK AND 
OTHER MYSTERIES" 

by Harvard C. Pennington 

132 pages written hi PLAIN FNGLISH packed with 
HOW TO information with details examples and in 
depth explanations Recover lost files and direc 
tones remove file protection, make BASIC pro 
grams unhstable How to use SUPERZAP recover 
Irom DOS errors and MORE 1 

TRS-80 DISK $19 95 



All products 

guaranteed for 

replacement only. 

Prices. Specifications & 

Offerings subject to 
change without notice 



MOST ORDERS 

SHIPPED 

WITHIN ONE 

BUSINESS DAY 



T 



QUANTITY 

DISCOUNT 

INQUIRIES 

INVITED 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

. MONEY ORDERS 

• COD 



• Add $2 50 for 
standard UPS 
snipping & handling 
S2 00 EXTRA 
for COD 
Ohio residents 
add 5'.°o sales tax 




TO ORDER CALL TOLL FREE 

1-800-321-3552 

IN OHIO call (216)289 7500 (COLLECT) 

IHETfl Techmqlqgjes Clwl™™ 

26111 Brush Avenue. Euclid. Ohio 44132 ^» 
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by Wayne Green 



"'When Radio Shack announced 

the TRS-80, Ed must have been 

one of the first to appear 

at their door to get one. " 



Here Come de Juge 



For many years, one of the top ham stores 
in the Southwest was Juge Electronics in 
Fort Worth. Thus, I've known Ed Juge for 
many years, as a ham and as an advertiser in 
my 73 Magazine. 

In mid- 1975, my frustration with trying to 
understand and select a computer for han- 
dling magazine subscriptions led me to micro- 
computers. From this interest I developed a 
plan to put out a magazine for computer hob- 
byists. Thus was born the idea for Byte 
magazine. 

Once I had located someone to edit the new 
magazine, there followed a frantic five-week 
period getting the first issue ready to print. 
Details such as designing and printing the let- 
terhead and envelopes, composing subscription 
letters, writing possible authors, getting mailing 
lists from firms in the business, getting in 
touch with all of the clubs and their newsletter 
editors, etc., were almost endless. 

Then, once the first issue was out, 1 grabbed 
a bunch of copies and flew to visit the major 
firms in the business to show them my new 
magazine and get their support. I visited Mils, 
the pioneer microcomputer firm, then Sphere. 
On my way down to San Antonio to see 
Southwest Tech, I stopped off in Dallas and 
drove over to Ft. Worth to say hello to Ed 
Juge. I talked with Ed enthusiastically about 
the future and what I saw as an industry which 
would have to grow very rapidly. 

Apparently my enthusiasm did the trick, 
for Ed quickly sent away for an Altair and 
started in microcomputing. When Radio 
Shack announced the TRS-80, Ed must have 
been one of the first to appear at their door to 
get one. By this time he was out of the ham 
business. 

The ham business was a real bummer dur- 
ing the 1964-1974 period, as a result of a pro- 
posal by the American Radio Relay League to 
change the ham regulations in a way that 
would take enormous frequency bands away 
from most hams. Sales of ham gear dropped 
to about 15 percent of their previous level and 
about 75 percent of the ham stores around the 
country quit the business. Not long after my 
visit, Ed got fed up with the slow ham sales 
and with most of the ham manufacturers go- 
ing out of business (we lost Hallicrafters, Na- 
tional, Hammarlund, Barker & Williamson, 
Johnson, Harvey Wells, Multi-Elmac, World 
Radio, Galaxy — virtually every major ham 
manufacturer) and folded up his ham busi- 
ness. For a while he was manufacturing a fold- 
away mobile mount for car antennas and do- 



ing well. But the micro bug had bitten. 

It didn't take very long for Radio Shack to 
discover this sharp chap right in their 
backyard. Eventually Radio Shack lured Ed 
out of retirement and made him director of 
computer merchandising. That was one of the 
wiser moves made by Radio Shack. Ed is one 
of the reasons that Radio Shack has been able 
to move a bit faster than most of the other 
firms in the field. 

I'm happy to have Ed writing a column for 
80 and thus give all of us TRS-80 owners a 
look at what is happening in that otherwise 
very secretive Tandy Tower in Forth Worth. It 
will be a relief to get some honest information 
on what is happening and what may be in the 
works. The general tendency of large firms is 
to deny all rumors up until a new product is 
ready for sale. This is frustrating, particularly 
in a fast moving field such as microcomput- 
ers. 

Tandy in Europe 

Just in case you are under the impression 
that Tandy is not pushing hard in Europe, 
here is the back cover of their recent catalog 
distributed in the Netherlands. That price 
translates to about S855 in U.S. funds at the 



current rates, not a lot more than the U.S. 
price, considering the problems of shipping, 
duty, service and other distribution costs. 

We stopped to visit a major Tandy store in 
Rotterdam and sure enough, they had a 
TRS-80 on display. We talked with them 
about getting some of our TRS-80 programs 
translated into Dutch and they put us in touch 
with a local programmer who was most inter- 
ested. I think we'll be coming out in one more 
language in short order, if anyone wants to 
brush up on his Dutch. 

The Belgian price translates to about $866 
at the current exchange rate, again a very 
reasonable price for the system when you 
figure all the expenses involved in supporting 
the system in a small country like that. The 
problems are somewhat simplified by the use 
of French in the catalog, but I suspect that 
most programs are still in English. 

As we were driving through a very small 
town in Belgium, Malmedy, about the size of 
Peterborough, N.H. (population 5,000), 
Sherry spotted the Tandy store and we 
stopped. 

We had a pleasant visit with the chap run- 
ning the store and found that even in a town 
this small he was selling an average of two or 
so TRS-80 systems a month! We showed him 
some of the Instant Software packages we had 

Continue to page II 
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SPECIAL DELIVERY with EXTRACT 

A 100% Machine Language Word Processor a 



TRS-80® + Electric Pencil® or Radio Shack's Scripsit 



We can't stop improving and expanding the capabilities of your 
TRS-80*! By using SPECIAL DELIVERY with EXTRACT and either 
Electric Pencil" or Radio Shack's Scripsit" you can get even more 
out of your computer. From just one package, you will get all this: 



MAILFORM: Create MAILFILE: The 
ONLY complete name and ad- 
dress list entry /editor program 
written in machine language. 
Instant search on any field, 
complete cursor control, just 
till in the form! 

MAILRITE: Print letters written with 
either the Electric Pencil" or 
Radio Shack's Scripsit" insert- 
ing information from a MAIL- 
FILE into the letter for person- 
alizing and addressing. You 
can send a personalized letter 
to one person then a different 
personalized letter to a second 
person with true typist quality 
from your fine printer. Fea- 
tures: Indents, Underscore, 
Bold Type, End of Page Stop, 



Address Envelopes, unlimited 
insertion from address list and 
More! 

EXTRACT: Take out information 
from MAILFORM, the ma- 
chine language mailing list. 
Find the names you need by 
Zip Code, Street Address, 
Gender, Age or any other way! 

SORT: In-Memory sort on an entire 
address list using any field as 
the key. This program can sort 
an entire list in a matter of 
seconds! 

LABEL: Prints labels from MAILFILE. 



CONVERT: Make 
RS mail list. 



MAILFILE from 



SPECIAL DELIVERY will run on your TRS-80" with TRSDOS," NEWDOS" or any 
other TRS'-like DOS. 

If you bought SPECIAL DELIVERY from us, send us the disk and we will update 
it to include EXTRACT for 525. If you haven't already taken advantage of our 
SPECIAL DELIVERY program, we'lf send you the complete program including 
EXTRACT for just $125 (Disk). We can also send you the Electric Pencil " for $150. 



MOD II version now 

available. Intro, price 

$275.00 



• 42 




Software Etc . . . 
1839 Chamberlain Drive 
Carrol Iton, Texas 75007. 
Phone Orders: (214)492-0515 



Demand a Demonstration from vour local Dealer or write for a brochure of our complete line of fine software. 



INSIDE gO 

by Ed Juge, director of ^^ ^^ 

computer merchandising, Tandy Radio Shack 



4 To those among you who 

didn 7 like TRS-80's modular 

design, and said we aren 7 

responsive to our customers — 

may you byte your tongues. ' ' 



Since 1 promised last month to tell you about 
some new products, you're expecting me to 
finally admit the TRS-90 rumor, aren't you? 
We heard so much about that here in Fort 
Worth that we almost used TRS-90 as a code 
name for one of our new computers. 

TRS-80 Color Computer 

I'm writing this prior to any announcements; 
bear this in mind when I say, we are about to 
announce our new TRS-80 Color Computer! 
The Color Computer attaches to any color TV 
— yours or ours. A video modulator is built-in, 
and radio frequency interference (RFI) shield- 
ing is excellent. 

The screen is 16 lines deep by 32 uppercase 
characters across. 

Color graphics are available in five formats 
from 32 times 64 pixels with eight colors, to 196 
times 256 pixels with one color plus back- 
ground. The Color Computer also offers 
sound. 

The keyboard has 53 keys. Although they are 
smaller than those on professional keyboards, 
they are in the normal staggered typewriter lay- 
out. The processor is an MP 6809E. 

The low-end Color Computer comes with 4K 



RAM and an 8K ROM BASIC. Two joystick 
ports and an RS-232-C are built-in. Although a 
recorder is optional, a cassette port is provided 
for program and data storage at 1,500 baud 
(not compatible with our non-color TRS-80 
software). There is also a port for ROM plug-in 
Program Paks and GO programs, which can 
include up to 16K of additional ROM. 

Expansion options will include up to 16K 
RAM, which is required for some of the higher 
resolution graphics modes, a 16K extended BA- 
SIC, the joysticks, communications, printers 
and a disk drive. 

Everything won't be available immediately. 
For example, the extended BASIC is expected 
in late November, and the disk drive in early 
1981. Joysticks should be available by press 
time. The existing Quick Printer II already has 
a serial interface, and its 32-character lines 
match the Color Computer's format. 

TRS-80 Color BASIC is more powerful 
than Level 1 and compares favorably with Lev- 
el II. It includes commands for input from the 
joysticks, for color video, and for sound out- 
put. PEEK, POKE and USR(O) are included 
for the serious programmer. Accuracy is to 
nine digits. String handling, arrays and func- 



TRS-80 Color Video and Model III 




tions (ABS. INT, RND, SGN, SIN, SQR) are 
also included. 

Besides higher resolution in graphics, 
TRS-80 Extended Color BASIC adds rotating 
and zoom movement to your graphic blocks. 
You'll also get editing, tracing, specific error 
messages, user-definable keys, additional in- 
trinsic functions and real-time clock access 
from BASIC. 

I'll bet about now you're saying to yourself, 
"Just what the world needs — another thou- 
sand-dollar color computer!" 

Not quite. The basic computer will sell for 
only S399. The 16K RAM kit is SI 19. and the 
Extended ROM for another $99 plus installa- 
tion charges. In late November a 16K Extended 
Color Basic computer will be available. 

Because the new color computer utilizes a 
different kind of chip in ROM, it requires its 
own software. Initially, eight ROM Program 
Paks will be available from Radio Shack: Per- 
sonal Finance, Quasar Commander, Checkers, 
Chess, Music, Math Bingo, Pinball and a diag- 
nostic pack to check memory and f unci ions. 
Several more are being developed. 

The Model III 

The smoke from our Color Computer did a 
fair job of covering up another new project. To 
those among you who didn't like TRS-80' s 
modular design, and said we aren't responsive 
to our customers — may you byte your tongues. 

There is now a bridge between the Model I 
and Model II. There is now a TRS-80 Model 
III! 

A single housing contains a 12-inch high-res- 
olution video monitor, 65-key professional 
keyboard with a 12-key datapad, computer and 
power supply (with only one power cord). 

Model III will expand quite far without go- 
ing outboard. You can start with the familiar 
4K, Level I system at $699, which is software 
compatible with existing Level 1 cassette pro- 
grams. (The recorder is not included.) 

Additionally, Model III Level I includes 
print commands to take advantage of Model 
Ill's parallel port. The processor is a Z-80, at 
2.0 MHz. 

One kit can be used to upgrade Level I to 14K 
extended Model III BASIC and increase 4K 
RAM to 16K. From there, RAM increases in 
16K jumps to the maximum of 48K — all inter- 
nally. 

Model III BASIC offers two cassette speeds: 
500 baud which is compatible with existing 
Level II programs; and a new reliable 1,500 
baud mode. An expanded character set includ- 
ing upper- and lowercase is standard, as is 
a screen print function in ROM. Also, the 



BREAK key will now exit from a hung-up 
LPRINT or CLOAD— or any other lock-up. 

There is a real-time clock, accessible from 
Model III BASIC or machine language. Also, 
an RS-232 board can be added inside the Model 
III. 

Two internal disk drives can be added. The 
5 V* -inch drives are 40-track double-density 
drives, giving 178,944 bytes per data diskette 
(about 134K user space on drive 0). Two more 
drives can be added externally, for a total of 
four, and almost 600K of on-line storage. With 
two drives, single-density Model I disk software 
can be converted to Model III disks. 

All Radio Shack software, and most non- 
Radio Shack software for the Model I should 
be compatible. Three Model III versions will be 
sold: the4K Level I for $699, the 16K Model HI 
BASIC for $999 and the 32K two-disk RS-232 
system for $2495. Other system configurations 
must be reached by installing upgrade kits. 

Model III TRSDOS will contain all of the 
features of the Model I and many of those of 
the Model II DOS. It includes a BUILD com- 
mand to create a DO Tile for automatic power- 
up command sequences. HELP gives you de- 
tailed instructions on any specified command. 
SETCOM initializes the RS-232 port, and 
CONVERT reads a Model I disk and converts 
its programs to a Model III disk and Model III 
format . 

We've gone overboard to maintain compati- 
bility with Model I programs. We also kept 
Model I's 16-line by 64-character video format, 
in the interest of compatibility. There are 
strong arguments for others formats, but we 
feel the compatibility of existing software is 
most important. We expect some vocal objec- 
tions, but hope our choice reflects the choice of 
the majority. 

The Pocket Computer 

This year at Radio Shack good things are 
coming in threes. Our third new product is the 
TRS-80 Pocket Computer! That's right— a 
pocket-sized TRS-80. 

it programs in BASIC, has a 24-character li- 
quid crystal scrolling display, features ten-digit 
numeric accuracy, with exponential notation to 
plus or minus the 99th power of ten. It includes 
1 .9K of memory for program and data storage, 
which stays live even with power switched off. 
Program steps are stored in a compressed for- 
mat that packs more commands into available 
memory than you will believe! 

An automatic power saver feature turns the 
power off after 7 minutes of inactivity in case 
you have forgotten. An optional cassette inter- 
face allows external program and data storage. 

The keyboard contains 57 keys, including an 
alphabetic keyboard in typewriter format, nu- 
meric keys in calculator layout and special 
functions. Eighteen of the alphabetical keys 
can represent reserved functions when used 
with the SHIFT key. Four type 675 mercury 
batteries (non-rechargeable) provide a nominal 
life of 300 hours. 

The Pocket Computer can be used like a cal- 
culator. Formulas are input using parentheses 
and symbols, as you would on paper, rather 
than one operation at a time in typical calcula- 




TRS-80 Pocket Computer. 



tor mode. After an equation is solved, it can be 
recalled and edited. 

We have seven programs already available 
for the Pocket Computer— with more to come. 
Or you can write your own BASIC programs. 
The Pocket Computer contains 1 IK of ROM, 
including a 7K BASIC and 4K monitor. 

Pocket Computer BASIC is much like Level 
1. But it includes 15 arithmetic functions and no 
graphics. It allows limited string variables (up 
to seven characters), and limited string and nu- 
meric array variables. 

The memory, which holds 1424 steps, is au- 
tomatically partitioned for program and data 
storage. There is a 26-data element memory 



and a 48-step reservable memory for storing 
frequently used functions. This six-ounce beau- 
ty is a true TRS-80— not just a programmable 
calculator with alpha capability. When you've 
tried one, I predict you'll give your program- 
mable to "Junior" to play with! 

Well, I hope I've excited you. Obviously 
Wayne doesn't want me taking up the whole 
magazine. 

Let me close by saying, once again, that as 
Radio Shack brings out new products, we don't 
intend to forget purchasers of our first TRS-80s. 
We intend to continue to support all models 
with new software and hardware products. ■ 
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for his system and he felt that if he had them 
available to help him, his sales would increase 
dramatically. Tandy stores are not yet permit- 
ted to sell any products not stemming from 
Tandy.! 

Twentieth Anniversary Issue 



With the twentieth anniversary issue of 73 
Magazine (my first publication in the ham 
radio field) going to press, I find myself re- 
flecting over the ups and downs of the past 
twenty years. 

My ham magazine, like 80, is for me a labor 
of love more than a way of making money. 
Amateur radio is beginning to grow again and 
there are some exciting prospects. Many of the 
changes I see coming in radio are tied to micro- 
computers and the circuits which microelec- 
tronics make possible. For those of you who 
have not yet been bitten by the hamming bug. I 
might explain that most of the important inven- 
tions and pioneering developments in radio 
communications have been made by amateurs, 
and there is no reason why this won't continue. 

The list of ham developments is a long one- 
slow scan television, virtually every radiotele- 
type circuit being used today, circular anten- 



nas, etc. 

The pioneers of commercial television were 
amateurs too. I worked in the TV broadcasting 
industry back in the early days (1948- 1950) and 
many of the people I worked with were grad- 
uates of W2XEL, an amateur television station 
out in Queens, NY. 

Today, we are in the early days of microcom- 
puters, and we are seeing most of the inventing 
and pioneering again being done by amateurs. 
This is one of the exciting aspects of this maga- 
zine. It is a medium for keeping everyone in 
touch with the latest ideas and the state of the 
art . People who depend on reading books are a 
year or more behind what is happening because 
it takes that long before books are published. 
Meanwhile, the art is staying ahead of the 
books and is reflected in magazine articles. 

The art, in our case, is microcomputing — its 
hardware and software. In the hardware line we 
see improvements in the basic computer unit 
(CPU), in memories, in mass storage equip- 
ment such as disks and various tape systems, 
bubbles, in printers, modems, control systems. 
In software we are seeing continuous improve- 
ments in languages, in operating systems, and 
in applications programs of all sorts. 

The basic purpose of 80 Microcomputing is 
to let you know what is going on in all of these 
aspects. We aim to make the material as under- 
standable as possible, and we are making a ma- 
jor effort to see that we have plenty of informa- 
tion to help the rank beginner grasp the funda- 
mentals. But we also want to act as a medium 
for the front runners to communicate and let all 
of us know what is going on up there. ■ 
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SO INPUT 



**. . . if you have a new 
set of ROMs at power on. . . 
The computer will ask MEM 
SIZE instead of MEMOR Y SIZE. " 



Shack Service 



I was amused by a recent local advertisement 
for Radio Shack Computers that said, "We 
service what we sell." As a dealer in business 
systems, we are naturally interested in that line 
of equipment and purchased a Model II, pri- 
marily to get acquainted with it and find out 
just what using and supporting it involved. We 
found out. 

First of all, it was DOA from a bad memory 
chip. We broke the seal as part of our self-im- 
posed indoctrination and luckily had a chip on 
hand from a previous job. The next failure in- 
volved the CRT sweep circuitry, and we dug in- 
to it again. 

It turned out that the part we suspected (hori- 
zontal drive amplifier) had a house number that 
did not cross-reference to anything. It was then 
that we learned that Radio Shack stores are not 
permitted to stock parts for these computers, 
and that Tandy's standard advice is to send the 
entire machine to the nearest service center, 
roughly 600 miles away. That center verified 
that they were not authorized to service boards 
or sell parts. 

Another call on the hot-line gained us the 
names of three other cities having service cen- 
ters, but no names, addresses, or phone num- 
bers. We did locate them through phone direc- 
tory assistance, and eventually found one that 
would accept a board for repair. 

The repair was prompt and well done, at a 
reasonable price. The fix, as nearly as we could 
determine, consisted of changing the value of 
several resistors. This apparently prevents in- 
stability when the drive is low, which was the 
case in our machine. 

In summary, we can only tell our customers 
that yes, Radio Shack does have a service capa- 
bility, but it is somewhat difficult and time- 
consuming to obtain when you need it. 

E. G. Brooner 
Lakeside, MT 



Satisfied Subscriber 



I am just writing to you to express my 
gratitude for your magazine. It is a truly superb 
publication, and I plan to subscribe to it for a 
long time to come. We get a few other TRS-80 
related publications, but yours is the best. 

Just the other day I received as a gift the Ra- 
dio Shack Editor/Assembler and I have started 
learning assembly language. 

1 looked over my first issue of 80 Microcom- 
puting and was again amazed at the amount of 
useful information supplied to the reader. You 



wrote in that issue, " . . .The editor of 80 Mi- 
crocomputing is not trying to impress you with 
his great knowledge of computers, I just want 
to provide you with entertainment, a way to 
learn more about your system, a way to save 
money on developing it." I believe you have 
done just that. Please continue to publish the 
fantastic magazine that you do. 

Brad J. Richter 
Ridgefield. CT 

Multiple INKEY Entry 

Entering more than one digit or character by 
means of the regular INKEY routine is not pos- 
sible, since the system reacts to the last charac- 
ter entered. Using the INPUT routine displays 
a query symbol and also requires ENTER to be 
pressed: In my opinion, this is for the birds in 
any reasonable operator/machine interface. 

The following routine permits two characters 
to be INKEYed: 



100 COSl IB MX) 

110 BS = AS:A$-="":PRINT BS; 

120 UOSUB 500: PRINT AS 

500 AS=INKEY$:IFAS = ""THEN 500 ELSE RETURN 



Line 110 stores the first INKEY as B$, and 
resets AS to a null. This requires that two char- 
acters always be entered, e.g. 01 for 1 , etc. The 
routine can be expanded for additional input if 
required. 

The input can be restricted to digits only by 
modifying line 500: 



500 AS = INKEYS:IF AS - "THEN 500 E15E IF ASC( ASK 
48 OR ASC(AS)>57 THEN 500 ELSE RETURN 



Any non-digit entry will be ignored. 

Michael Barlow 

Pierrefonds. Quebec 

Canada 



New ROMS 



Did you know that Radio Shack has new 
ROMs in the latest models of the TRS-80? In 
case you don't I will tell what little I know and 
problems and fixes I have found. 

First, Radio Shack did a software fix for the 
cassette loading problems. It works wonderful- 
ly! ! Second, they added a control key which is 
the shift, down arrow. Therefore, shift, down 
arrow G will send a CHR$(7) or what is known 
as a bell. This works for all 26 keys. However, 



if you are using NEWDOS the shift, down ar- 
row no longer works for the last program line, 
but shift, down arrow Z will, for the old code 
for shift, down arrow was 26. 

You can determine if you have a new set of 
ROMs at power on. The computer will ask 
MEM SIZE instead of MEMORY SIZE. The 
second message will use R/S for Radio Shack. 
The keyboard will also have the new keyboard 
which is a wonderful improvement in itself. 

I hope this information may be helpful to 
you. Also page calls are all the same for other 
calls I don't know. Radio Shack will only say 
the calls listed in the editor/assembler are in the 
same place. 

Chess McKinney 
Hermitage, 77V 

Scripsit: Round Three 

Perhaps I should not say anything, not hav- 
ing tried the Electric Pencil WP program, but 
since I saved about $50.00 by buying Scripsit, I 
figure I have two cents I can spare to stick in 
here. 

In his letter to 80, Peter Brennan seemed 
somewhat incensed at Scripsit for a few of its 
shortcomings. Let me simply remind him in a 
blanket approach that Pencil was not written 
for the TRS-80. It is available for many ma- 
chines and has probably undergone changes 
(for the better) as it metamorphosed. 

More specifically, let me address myself to 
what he mentions as defects and see if we can't 
shed some light on them. 

I am using Scripsit with a Teletype 43 until 
my 737 arrives. Mr. Brennan is correct, the pro- 
gram assumes the printer will supply a line feed 
with the carriage return. The only formatting 
problems I have run into using my 43 is that 
double spacing requires using the LS = 3 com- 
mand rather than LS = 2. 

Yes, it does play havoc with page length, but. 
and perhaps there is some other difference be- 
tween the printers we use, I find that the page 
length setting should be full scale at 90, not the 
75 he suggests, and the bottom margin some- 
where around 86, again, not the 70 he men- 
tions. 

The paragraph formatting is simply set to the 
same dimension as the line space. Granted, one 
must then print the text using the (P)ause op- 
tion, but I picked the printer, as I assume he 
did, and I knew full well what its limitations 
were in regard to its compatibility with my 
TRS-80 and the printers Radio Shack suggests 
for it. 

I also have those sheets of paper Tandy 
claims will enable Scripsit to use "my own 
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driver." I also have no idea of what to do with 
them. I think his condemnation of Tandy 
might have been modified to read, "You 
should have bought a Radio Shack compatible 
printer," and in this instance they are right. 
You don't spit in the wind and you don't pull 
the mask of the old Lone Ranger. That only 
makes sense. 

I can't vouch for the ability of the Pencil to 
keep up with the pace of typing, but it's 
definitely not true that Scripsit will keep up 
with a fast typist. I am not the fastest, but there 
arc times when the program will not keep up 
with me, and times, since it allows continuous 
character print by holding down a key, that 1 
get multiple characters when I don't want 
them. 

I have typed some 90 pages using Scripsit, 
which makes me no expert in its operation, but 
I think the bulk of Mr. Brennan's comments 
might be clarified by concentrating on using 
Scripsit and discovering its finer points, rather 
than trying to play it off against Pencil. I would 
have rather he mentioned that selecting a par- 
ticular spot in the text for printing requires re- 
entering the format instructions. That's an in- 
convenience, but that's about the only thing I 
can come up with that bothers me. 

Scripsit is easy for me to use. After the first 
half hour of the tutorial cassette Tandy supplies 
I shut my deck off and started using Scripsit 
with the foldout of operating commands in 
front of me. I guess the decision as to which 
program depends on the matter of application, 
of use and of oneself. 

William O'Brien 
New York, NY 



Micro Mystery 



I am returning the Microsoft editor/macro- 
assembler/linkage-editor to my Radio Shack 
dealer because of totally inadequate documen- 
tation. 

There is absolutely no discussion of con- 
cepts. How is the average Level II BASIC mid- 
night coder supposed to know the difference 
between an assembler, a compiler, and an inter- 
preter? How is he/she supposed to know what 
a macro is? How is he/she supposed to know 
the power and flexibility of a linkage-editor? 

Being a multi-lingual independent commer- 
cial programmer, I have worked on most 3rd 
generation computers, including everything 
made by IBM. I am used to IBM manuals that 
deal with concepts prior to discussing bit- 
fiddling. Microsoft people have obviously 
never seen an IBM manual, which has wonder- 
ful title aids like examples, concept discussions, 
sample programs, graphs, hints, references to 
other manuals, etc., all of which are totally 
lacking in Microsoft's piece of literature which 
I am hesitant to call a manual. 

User response prompting is non-existent. 
When the editor, assembler, or linkage editor 
are executed, they simply display an asterisk on 
the screen. If I wrote programs like that in in- 
dustry, I'd be fired on the spot. How about 
prompting the user to enter the source file 
name, the object file name, the load address, 
the number of object modules to be linked, do I 



want a cross reference, etc., etc., etc. I'm total- 
ly underwhelmed by their kindergarten code. 

Can this manual really be from the same 
folks who gave us the Level 1 and Level II (w/o 
index) manuals? Why didn't Microsoft con- 
tract with David Lien to write their assembler 
manual instead of the incompetent trainees 
they used? 

Dave West/all, Pres. 

Aries Computer Software, Inc. 

Farmington Hills, Ml 



You are right, of course. I would perhaps be 
more critical of Microsoft if I had had any suc- 
cess in the last four years in getting an article 
written for any of my magazines which covered 
the material you are asking about. I have been 
promised dozens of times by writers that they 
would do this. . . and so far not one promise 
has been kept. 

The difference between an interpreter and a 
compiler is a very difficult concept for both be- 
ginners and intermediate computerists. 

This applies to macro anythings, linked edi- 
tors, and the lot. With the execution of the in- 
structions which come with the Level I TRS-80, 
I would be hard put to point with pride to good 
documentation in our field. I can point to any 
number of ghastly disasters. — Wayne. 



Tired Memory 



If you're tired of continually having to re- 
serve memory for your commonly used ma- 
chine language routines, or if you have more 
than one and have to figure out how much to 
reserve, you can let the 80 do all that for you by 
using the method shown in the listing below. 

so CLS 

200 DEFINTA.I 

300 DIMAiH) 

500 FORI=0TO7 

550 READA(l) 

700 POKEVARPTR(A(0»*I.A<I) 

800 NEXT 

1000 DATA62.49.50.32.62.195,l54,IO 

1200 DEFUSR = VARPTR(A<0)):X = USR(0) 

1400 AJ = INKEY$:IFA$ = - , THENI400ELSESTOP 

Simply answer the MEMORY SIZE? with an 
<ENTER> and append the appropriate data 
statements to your program. The data in the 
program (line 1000) prints a 1 in the center of 
the screen. 

The key to the program is in line 700 where 
the data in line 1000 is POKEd into memory, 
starting at the location where the array A be- 
gins. By setting the DEFUSR to that starting lo- 
cation and executing the USR, the 80 will per- 
form the machine language steps and return to 
your BASIC program. For your routines, just 
replace the data statement with your data and 
change line 500 accordingly. Line 1400 was in- 
serted so you can admire your handy work. 
Note that you can have several machine lan- 
guage routines. 

A word of caution is needed. Since the 80 has 
a habit of rearranging its memory from time to 
time, the starting location of the A array may 
change. For this reason, it is necessary to reset 
DEFUSR each time the USR is called. I would 



recommend carrying statement 1200 as a com- 
pound statement any time you need your ma- 
chine language routine. 

A. W. Maddox 
Creve Coeur. MO 



Simple Debounce 



In the April issue of the magazine, you have 
an article written by C. W. Anderson which 
shows a relocation routine for the KBF1X rou- 
tine. In this article the author makes a request 
for a debounce routine which only contains rel- 
ative jump instructions. For some months now 
I have been using a debounce routine that can 
be directly located anywhere in memory, but 
which normally will not require relocation. 

In my TRS-80 which does not have an expan- 
sion interface, the reserved RAM area from 
405E to 407F does not seem to be used by any 
of the routines in ROM. Thus if a routine can 
be fitted into this area, then it can remain un- 
touched during execution and the addresses in 
the high end of RAM can be used for other pur- 
poses. Since KBF1X apparently requires 55 
bytes it won't fit in here, but there are fortu- 
nately less memory-consuming methods avail- 
able. The method I am using requires 22 bytes 
of permanently allocated RAM, and will there- 
fore easily fit into this area. 

The extra instructions required to initialize 
the routine are only used once, and can there- 
fore be placed in an area of RAM where they 
may be erased at some later stage. The most 
convenient area to use for this purpose is the 
I/O buffer area from 41 E6 to 42E6. As long as 
the buffer is not used during the initialization 
process, the area is perfectly safe to use for such 
purposes. 

The debounce routine may seem a little prim- 
itive, but during several months of use it has not 
let me down once. During normal processing it 
is even slightly faster in execution than the rou- 
tine in ROM since it does not require as many 
instructions to determine whether the keyboard 
status has changed. When the status does 
change, however, a delay loop is invoked caus- 
ing a delay in processing. 

1 can add that when I use the TRS-80 without 
the routine, there will be a repeated character 
on nearly every line, despite clean keyboard 
contacts. 

The 22 bytes of permanent code are as 
follows: 



406A 


118038 


LD DE.3880H 


406D 


213540 


LD HL.4035H 


4070 


NXTCI 


: 


4070 


CB03 


RLC E 


4072 


F8 


RET M 


4073 


2C 


INC L 


4074 


IA 


LD A.(DE) 


4075 


AE 


XOR (HL) 


4076 


28F8 


JR Z.NXTCH 


4078 


0605 


LD B.5 


407A 


CD6000 


CALL 0060H 


407D 


C3E303 


JP 03EJH 



The value loaded into B in line 4078 could 
possibly be changed to 4, 3 or 2 thus reducing 
the delay time, if this still provides adequate de- 
bounce. 
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SO INPUT 



The only purpose of the initialization routine 
is to put the starting address of the debounce 
routine into the keyboard DCB. Unfortunately 
this cannot be done in BASIC with POKE since 
the address is in constant use during execution 
and should therefore be done in an uninter- 
rupted sequence of instructions or in a single in- 
struction. The following lines can be used, at 
the same time setting the USR address back to 
the default value. 



42DO 


2I6A40 


t.D HL.406AH 


42D3 


221640 


LD (40I6H),HL 


42D6 


214A2E 


LD HL.2E4AH 


42D9 


228E40 


LD (408EH).HL 


42DC 


C9 


RET 



I use a short BASIC program to POKE these 
values into memory, call them with a USR(O), 
and then issue a NEW statement. I was also 
pleased to see in the April issue that others have 
found out that BASIC can be used to convert 
values from hexadecimal to decimal for the 
POKE statement (MACROPOKE monitor). It 
certainly saves a lot of conversion work and po- 
tential errors. Actually I use a format which in- 
cludes the address at the beginning of each line, 
with the data bytes following, for example: 

DATA 42D0.2I6A40 221640 2I4A2E 228E40 C9 

Intervening spaces can be used to separate the 
individual instructions, making them even 
easier to interpret visually. 

Obviously, since I have neither expansion in- 
terface nor a disk system, I cannot guarantee 
that the area used for the debounce is also un- 
used when these are added, but for users with- 
out these extras (presumably still the majority) 
it should provide a trouble-free debounce that 
doesn't require MEMORY SIZE or interfere 
with other machine language routines. 

Arne Rohde 

Pilevej 31 

7600 Slruer 

Denmark 

Box Confusion 



Thought your readers would like to know 
changes necessary to make "Ball Box" (April 
80) work in Level II, since they are elusive and 
not covered in text. 

1 ) PRINT AT in Level I can be followed by a 
comma or semicolon. PRINT® in Level 
II must be followed by a comma, NOT a 
semi-colon. Therefore, add a comma be- 
fore the semi-colon in lines 2010, 4900, 
4920 & 4940. 

2) POINT returns - 1 in Level II, not I as in 
Level I. Therefore, add a minus sign be- 
fore 1 in lines 4320, 4330, 4410, 4420, 5020 
& 5120. 

3) No graphics wraparound in Level II, so 
change line 5001 to Y = RND(48-4) + 2 
or you will get a FC (function call) error, 
line 5020 frequently (whenever Y>47). 

Fred Blechman 
Canoga Park, CA 



Like Father, Like Son 



I am 13 years old. I think that 80 Microcom- 
puting is one of the best books about micro- 
computers. My dad subscribes to it, and we 
both enjoy it. 

I like the articles and columns that you have 



printed. It has very interesting stories and pro- 
grams, we both read and like this book very 
much. 
Thank you for making such a fine product. 



Martin Eisenhauer 
Margate, FL 



DEBUg 



Error in SCRNPRNT 



A small error in my SCRNPRNT pro- 
gram in the May issue of 80 Microcomput- 
ing got past me and effectively disabled the 
instruction that fools the computer into 
thinking that its RAM ends just below 
where SCRNPRNT starts. When working 
properly, this instruction both protects the 
program against TRSDOS Disk BASIC'S 
usage of the top few bytes of memory and 
obviates the need for answering MEMORY 
SIZE. Unfortunately, I left off the H in the 
instruction, so the program attempts to 
change a ROM decimal address instead of 
the correct RAM hex address. This would 
not have caused a problem in the program 
as printed, since it was assembled lower in 
RAM, but would cause a conflict with BA- 
SIC if the program were assembled at the 
very top of memory. 

To correct the error, change the fourth 
through sixth bytes of the assembled pro- 
gram to 224940 instead of 22D10F, and 
change the corresponding instruction to 
read LD (4049H),HL. 

My apologies to anyone who may have 
been inconvenienced. 

Louise H. Frankenberg 
Pasadena, MD 



More Story 



The addendum at the end of the text, 
"Get the Whole Story" (July 80) is not 
clear. The programs printed in the article 
arc current, except for the Order Verifica- 
tion Program (Listing 1). This program re- 
quires frequent price updates. The cassette/ 
wafer offered for $25 includes the latest 
high-speed order verification with the prices 
in data in effect at the time of shipment. 
Those who order the whole package for $25 
may receive updates of the order verifica- 
tion program on cassette or wafer for $10. 

Program Listing 3, Bookkeeper, has an 
omission that will create a serious error. 

Line 340 should have :J1«0 

added . 

I'm also including a suggested correction 
to the monthly Gross Profit Statement 
(Listing 4), which will allow a much simpler 
method of providing a printer option. 

With over 160 magazine articles pub- 
lished, I've never had such enthusiastic 
reader response as I've had to this one! 

Fred Blechman 
Canoga Park, CA 



CHANGE LINE 10 TO CLS« PR I NT: INPUT "PR INTERS (Y/N)" ;A» 

ODD LINE 11 IF A»="N" P0KE16423.A 

ADD LINE 12 CLS 

CHANGE END OF LINE 31 TO G0T099 

DELETE LINES 50. 60. 70, 73. BE. 90. 92- 93 

IF YOU PNSWER N TO THE QUESTION IN LINE 10. THE COMPUTER 

WILL IGNORE ALL LPRINT STATEMENTS. AND YOU'LL HOVE SCREEN 

DISPLAY IN THE ORDINARY WAY. TO ENABLE LPRINT AGAIN. JUST 

P0KE1B423. 5. NOTE: IF YOUR PRINTER NEEDS A SOFTWARE 

DRIVER. PRINT PEEK( 16423) AND NOTE THIS VALUE WITH THE 

PRINTER DRIVER ACTIVE. THIS WILL THEN BE YOUR POKE VALUE 

TO ENABLE PRINTER AFTER DISABLING WITH P0KE16A23.4 



Monthly Gross Profit Update 
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QUALITY 

^ THAT'S WHAT 
SEPARATES THIS 
PRINTER FROM 
THE TOYS 




MICROTEK MT-80 

SOLID VALUE FOR YOUR DOLLAR 

The market is flooded with low-cost 
printers that look and last more like 
toys. 

The Microtek MT-80, our versatile alpha- 
numeric line printer, has a high quality 
print mechanism that gives you solid 
value for your dollar. It has been de- 
signed with a superior brain resulting in 
more advanced features and more de- 
pendable performance. Our printer is so 
reliable that we offer you an incredible 
365 days warranty. 

We stand behind every printer we make 
because we build quality into each one. 
So stop tinkering with toys and get 
serious. Demand 100% value by 
specifying the MT-80. 



LOADED WITH INNOVATIONS 

• 40, 80 or 120 columns (software 
selectable) 

• Non-thermal paper, pin feed 

• 125 CPS, 70 lines per minute 

• 9x7 dot matrix 

• Vertical format unit 

• 96-character ASCII (upper and lower 
case) 

• Adjustable forms width to 9 1 /2" 

• Parallel and serial (RS-232C) inter- 
faces available 




OUR UNIT PRICE 

$795 Parallel 

$895 Serial (RS-232C) 



MICROTEK^ 



For more information contact: 

MICROTEK, Inc., 

9514 Chesapeake Drive, 

San Diego, CA 92123 

Tel.(71 4)278-0633 

TWX 910-335-1269 



,^360 



XO INPUT 



Disgruntled Manufacturer 

might have been some confusion 
about the thrust of John Acres' article, 
"Saving Money. " that appeared in the July 
issue oj so. / he piece raised havoc at Micro- 
tek in Sun Diego. 

At res ' piet e in no way purported to he a 
\ ticrotek \ product or oj the Per- 
i om drive mentioned It itemed more oj a 
caution to enthusiastic hobbyists not to let 
their affections lor the hobby elude their 
better judgement The Moral: Always rend 
the manual. 

Though 80 does not intend to shy away 
from controversy, we regret the losi ener 
gies on an article that apparently was mis 
construed by some readers. The intent oj 
the Acres article appears to our editors to 
satirize his own electronic abilities or lack 
thereoj 

To help set the record straight, we're re- 
printing the original correspondence Iron 

Acres 10 Microtek, forwarded to us by Dan 

Obed, Microtek \ president— Eds. 

Microtek 

i remains ol i 



Microtek printer that I killed by my own 
hand. Bad is thai tna) sound, I am also re 
sponsible tor the death of two Radio Shack 
disk drives, one Percom U I) 2ixi disk 
drive, a I KS-KO expansion interlace and 
perish the thought a 1 RS-80 k< 
unit. 

It was not cold blooded murder though, 
it was an accident I swear! In m> haste to 
see the Microtek unit in action. I used a 
Radio Shack number 26 I4t>l printer inter 

face cable the one normally used with the 
Centronics 779-2. 

I low was I to know that the Microtek has 
a separate signal and chassis ground (with- 
out having read the manual)? 

Unfortunately, the interlace cable men 
tinned above connects pin 17 to the signal 
ground of the I KS 80 expansion interlace 

while deviously allowing the pi inter to func- 
tion, giving no indication of the danger 
lurking ahead, 
Although inv intentions were good, I was 

overcome with the lust ol a working svstem 
and — in a moment of insanity— discon- 
nected the three-prong grounded ac plug of 
the III) 200 from ac pOWCI Somehow in 
that mysterious electronic twilight /one 
when an ac plug is somewhere helve 



50AID 



Teletype Interface 



I have an old Model- 1 5 Teletype Printer 
(with a 5-bit code and 60mA current loop) 
that I would like to use with my Radio 
Shack TRS-80 Model II. Unfortunately. 
Radio Shack has nothing that could or 
would help me concerning this type of 
operation. Please! Can you help me? 

Milton J. Belle 
2008 Wayside Street 
Compton. CA 90222 

Friden Schematic 



Could you please print the following in- 
quiry wherever it is appropriate? 

I am looking for a schematic or informa- 
tion on the Friden Flexowriter Programatic 
Typewriter. I have a model FPC-5P which 
has a 5 level baudot paper tape punch/ read 
assembly. I would like to interface this for 
computer or RTTY. 

Robert G. Gilman 

Box 103 

Hellertown, PA 18055 



nected and disconnected, a ground loop (or 
something!) got onto signal ground and 
caused S ICs in the I FD- 200 to explode and 

several pc traces to varx>n/e. 

Simil i o the 1 RS BO 

components. As tor the Microtek printer— 

too had its luscious circuitry 

violated. I he pc trace to pin 17 of theparal 

lei interface connectoi evaporated. Ami 

that's not all. I he 8155 seems to be verv ill. 
v\ hen connected, il pulls the • 3 volts lo a 
helpless 3.2. Whatevei ails it is contagious, 
When a known healthy 8155 is plugged in, it 
too soon develops identical symptoms. 
Without the squiggly diagrams outlining 
circuitry connections, further surgery on 
my part is fruitless. 

I appeal to you then: Ye mellow, laid 
back r ifornia heal this printer 
and return it to me as quickly as possible. 
Charge me What you will but do not make 
il ovei a hundred dollars without talking to 
me first. 

II Ihcj have not been sent already, please 
send along a ribbon and spools. They were 
not included with the printer originally 

John 
Xcw Palestine, IN 






Cassette Confusion 



I have a problem with which I hope you, 
your staff or 80's readers could help me. 1 
have a copy of the excellent tape Micro Mu- 
sic. Unfortunately, it is very annoying to 
have to pull the cassette plug out, plug it in- 
to a speaker, then plug it into the cassette 
player to load another piece of music. 

Since I own an expansion interface, I 
know that you can have two cassette record- 
ers attached, and if you store one in address 
37E4H all I/O will be done on cassette two. 
This works great with Babybeep (80, April, 
1980), but it will not work with Micro Mu- 
sic. 

Since I know little Assembly Language I 
can't change this. I would like to be able to 
load the data on cassette one and play it out 
of cassette two. Can this be done? If so, I 
would like to know about it. 

Also, if anyone knows how to put any 
Radio Shack machine language tape on 
disk, I would appreciate it if he would drop 
me a line. 

Tarus P. Balog 
Asheboro, NC 



Morse Code Mod 



My Morse Code program in your July 1980 
issue is correct for TRS-80s without the Radio 
Shack E-Z cassette load modification. This 
modification is installed in all TRS-80s sold af- 
ter early '79 and was made available for no-cost 
installation in mid '79 to all earlier models. If 
you have this modification installed, change the 
following eight lines to the Receive Mode sec- 
tion to read: 

1290 1FA<200 
1310 IFA>200 
1330 IFA<200. 
1360 IFA>200 

1380 IFA>200 

1410 IFA>200 

1430 !FA>200 

1470 IFA>200 . 

A special thank you to Gene Steele K5EVE, 
in Orangefield, Texas for this suggestion. It has 
been mailed out to all the 2000 + purchasers of 
the W4UCH TRS-80 Morse Program and 
should prove useful to your readers that have 
the E-Z cassette load modification installed. 

Also, users should be reminded that a mini- 
mum of one volt peak-to-peak audio is required 
during receive without any RFI (radio fre- 
quency interference) going into the cassette in- 
put line from the station receiver, as the pro- 
gram obviously cannot discriminate between a 
valid Morse code signal and interference from 
the TRS-80. Good quality coax cable and a re- 
mote antenna at least 60 feet away from the 
TRS-80 is an absolute must. 



Robert M. Richardson 

Chautaqua, NY 

input to Page 40 
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slaving too long 
over a hot computer? 
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AUTOMATED 
SIMULATIONS 



The Temple of Apshai 

First In the Dunjonquest™ series. 
Undertake heroic acts within a 
labyrinth filled with treasures and 
fantastic monsters who guard these 
treasures and move in real time. The 
Book of Lore (included) fills in the 
background and describes the 
appearance of the temple. Over 200 
rooms and 30 monsters. There are 16 
million kinds of characters! The best 
of the dungeon computer games. 

For TRS80 Cassette. 16K, Level II; Disk: 
32K, TRSDOS • Apple Cassette 48K 
Applesoft in cassette or in ROM; Disk 48K 
Applesoft in ROM • Pet Cassette: 32K, old 
or new ROMs. 

$24.95 cassette • $29.95 disk 



Starfleet Orion 

Fight space battles in your living 
room with 12 game scenarios (data 
files) using 2 to 15 spacecraft. Infini- 
tely expandable, invent more game 
versions of your own. For 2 players, 
Includes Battle Manual and Ship 
Control Sheets. 

For TRS80 Casseffe: 16K, Level II; Disk: 32K 
TRSDOS • Apple: Cassette: 16K or 32K, 
Integer BASIC in ROM; Disk: 32K, integer 
BASIC in ROM • Pet Cassette: 8K, old or 
new ROMs. 

$19.95 cassette • $24.95 disk 



The Datestones of Ryn 

Dunjonquest #2. Recover the 
datestones from the rogue Rex the 
Reaver and his cutthroats — who've 
stolen the stones from the calendar — 
before time runs out. 
Competitive scoring system: How well 
can you do compared to other 
players? 

For TRS80 Cassette: 16K, Level II; Disk 
32K, TRSDOS • Apple Cassette: 32K 
Applesoft in ROM or 48K Applesoft on 
cassette; Disk: 48K Applesoft in ROM • Pet 
Cassette 16K, old or new ROMs. 

$14.95 cassette • $19.95 disk 



Rescue at Rigel 

New! Brings the Dunjonquest series 
to the final frontier. As Sudden Smith, 
with force shield and power gun, you 
make your way through several levels 
and scores of rooms to find and beam 
to safety the prisoners held by the 
evil High Tollah. Quickly, before your 
power pack dies and the Tollah and 
his minions can get to you! 

For TRS80 Cassette: 16K. Level II; Disk: 
32K, TRSDOS • Apple Cassette: 32K 
Applesoft in ROM or 48K Applesoft on 
cassette. Disk: 48K Applesoft in ROM • Pet 
Cassette: 16K, old or new ROMs. 

$19.95 cassette • $24.95 disk 



then it's time 
for a fun break! 



iSBbt 



"tw 4 ^ * TOO l V$? a 7» * 'Jw A 'wi' * 



m 

m 
-<- 

m 
it* 






« 



TRIPLE WARRANTY 



Money back guarantee: If 
you don't like the game for 
any reason whatever, return it 
intacl within 10 days of receipt for 
a complete refund. No questions 
asked 

@ Defective warranty: Cas- 
sette not functioning with- 
in 30 days of receipt? Return it to 
us and we'll exchange it. No 
charge, of course 

/l "x Limited lifetime war- 
forever) rinty: n matter what 
happens to your cas 
sette: the dog chewed it you left 
it out In the rain., whatever. No 
matter when it happens. Return 
the remains to us (with $5.00 to 
cover all handling and shipping) 
and we'll send you a brand new 
cassette. 
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Morloc's Tower 

Dunjonquest #3. You'll find 3 kinds of 
rings, a magic sword, 2 amulets, 6 or 
so other treasures. 30 rooms, 18 real- 
time command options... and a dozen 
types of monsters including the 
heinous Morloc. Easy to learn, a 
challenge to master. Includes game 
program, 1.2 KB data file, 16 page 
manual. 

For TRS80 Cassette: 16K, Level II; Disk: 
32K. TRSDOS • Apple Cassette: 32K 
Applesoft in ROM or 48K Applesoft on 
cassette; Disk: 48K Applesoft in ROM • Pet 
Cassette 24K. old or new ROMs. 

$19.95 cassette • $24.95 disk 



TO ORDER: 

Master Charge or Visa card holders: 

charge these to your credit card. Just 

call the appropriate toll free number: 

(800) 824-7888, operator 861 

In California: (800) 852-7777, op. 861. 

In Hawaii or Alaska: (800) 824-7919 op. 

861 

Or use the handy coupon: 

Automated Simulations 

Department OM2 
P.O. Box 4247 
Mountain View, CA 94040 



We believe that computer games 
should be fun, challenging, intellectu- 
ally stimulating . . and provide you with 
many alternatives and ways to affect 
the outcome. So our games are more 
complex in planning your playing stra- 
tegy. But not in the mechanics and 
rules of play. With all these games, you 
take command. You determine the 
course of history. 



Invasion Orion 

Pit your skills against the computer! 
Same game system as "Starfleet 
Orion" but you can play it solo. 3 skill 
levels; the computer plays either side 
and takes care of the details. It has 10 
fictional scenarios. 30 ship types, and 
3 weapon systems. 

For TRS80 Cassette 16K. Level II; Disk: 
32K. TRSDOS • Apple Cassette 32K 
Applesoft in ROM, Disk: 48K Applesoft in 
ROM • Pet Casserfe: 16K, old or new 
ROMs 

$19.95 cassette • $24.95 disk 



AUTOMATED SIMULATIONS 

Please send me the following games: 



Cms Disk 



Gam* 

Temple of Apshai 
Starfleet Orion 
Invasion Orion 



Datestones of Ryn $_ 

_ Morloc's Tower $_ 

Rescue at Rigel ?_ 

Plus Shipping & Handling $_ 

Sales Tax' $_ 

Total S 



1.00 



My computer is. 



[ 1 I enclose my check in the amount 

of 

Please charge to my 

Visa Master Charge: 
# expires 



Name 



AddhMi 



"California residents: add6or6.5% tax 



LOOKING FOR TRS80 

BUSINESS SOFTWARE? 

WE HAVE HUNDREDS 

OF QUALITY BUSINESS 

PROGRAMS IN STOCK! 

AT PRICES YOU CAN 

AFFORD. 

WHERE YOUR TRS-60 MEANS BUSINESS > 

For the first time you can fill most of your software needs with one telephone call. Whether you are 
trying to find a specific program, custom software or just help with your system — give us a call. 
We have the people that count! 

Invoicing • Inventory Control • Accounts Payable • Accounts Receivable • Payroll • General 
Ledger • Letter Writer • Word Processing • Mailing • Manufacturing Inventory • Cost Account- 
ing • SalesReporting • Stock Market • Business Statistics • Statistical Analysis* Data Base 
Systems • Medical Billing • Dental Billing • Special Industries • Advanced Accounting • Income 
Tax • Language • Personal Finance •Technical Programs • Insurance • CP A • Law Office •Asset 
Depreciation • Job Cost • Utility Programs • Education • Games • Home Programs • Loans • 
Credit Bureau • Electronics • Test Systems • Sports • Art • DOS Systems • BASIC lessons • 
and hundreds more! 

Send for our free catalog or give us a call today. We also do custom programs as well as buy top 
quality programs. 



Summer Special: 
Complete business system S299.95 



OVER 100 OF THE BEST 
BUSINESS PROGRAMS FOR 

THE TRS-60* MODEL I 
AND MODEL II IN STOCK 

READY FOR 

IMMEDIATE DELIVERY . 

LET US ANSWER YOUR 
QUESTIONS TODAY. 

Software-Mart - 

In California Call (714) 76(1-7318 Call Toll Free 1 (800) 854-7115 

^£ 24 Hour Service 

OUR BEST ADS ARE MOT WRITTEN — THEY'RE RUNNING ON TRS 80s 

Prices and programs are subject to change without notice All Software Mart Programs are sold on an 'as is" basis and with 'All Faults " 

TRS 80 is a trademark of the Radio Shack Division of Tandy Corporation ■— 
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"He assumes the reader 

has a fairly good 

understanding of Level II BASIC, 

although all his tests. . . 

operate on a 4K machine, M 




TRS-80 Interfacing 

Johnathan Titus 

Blacksburg Continuing Education Series 

Howard W. Sams & Co., Inc. 

$8.95 

by Ed Neister 

In TRS-80 Interfacing, Tilus provides the 
reader with a practical knowledge of input/ 
output circuitry and its operations. It is a basic 
book that should be in the library of all hard- 
ware designers who wish to work with the 
TRS-80 system for input/output control. 

The book is written for a general reader. 
Titus does not go too deeply into the basics. He 
assumes the reader has a fairly good under- 
standing of Level II BASIC, although all his 
tests and experiments are designed to operate 
on a Level II 4K machine with read/write 
memory and data storage capability. 

Operation Control 

Titus introduces the reader to the control sig- 
nals one by one and helps the reader grasp the 
purpose for this control system and how to use 
it. He then goes into the operational control of 
these signals by using Level II instructions in 
computer programming steps. Titus leads the 
reader from the initial concept to a point where 
the reader can write the programs and generate 
the control signals he desires. Titus and the 
Blacksburg Group have developed a circuit 
which allows the reader to do all the experi- 
ments presented in the book. 

Command of the Language 

In the first chapter, Titus discusses the Z-80 
microprocessor, its memory capability and the 
setup and use of the diode devices used through 
the Z-80 processor. The information is pre- 
sented quickly and in great detail. 

In Chapter one, Dr. Titus talks about the 
simple diode commands, as well as how soft- 
ware commands and interface circuits are used. 
He briefly discusses the PEEK and POKE com- 
mands in relation to interface circuits. He also 
goes over assembly language vs BASIC pro- 
gramming, as far as data transfer and control 
are concerned. 



TRS-80 interfacing and its hardware are pre- 
sented in more detail in Chapter two. Diode de- 
vice addressing and decoding, as well as how 
gates are used for addressing and decoding are 
discussed. 

Chapter three contains a detailed discussion 
of the output and input ports, device interfac- 
ing and memory mapping. Chapter four fo- 
cuses on flags. The input/output device syn- 
chronization, logical operations, software de- 
tection of flags and complex circuit flags are 
considered. 

Readers are introduced to the breadboard 
circuit design in Chapter five. This allows test- 
ing of the logic probe device, memory coder 
bus buffers and control circuitry. Next Titus 
considers circuit construction. 

Interface Experiments 

Chapter six is the central theme of the book 
and delves into detailed discussion of interface 
experiments. After an introduction, eighteen 
experiments are presented to help the reader 
test and understand the concepts of input/out- 
put transfer. The experiments reinforce the 
concepts presented throughout the book. 

For the size of the book, much information is 
presented. Several appendices are given. One 
presents logic functions concerning lamp moni- 
tors, logic switches and pulses. Another gives 
the parts required for the experiments. The last 
three appendices give the Z-80 microprocessor, 
the TRS-80 interface breadboard parts and PC 
artwork, so that the reader can easily build his 
experimental circuit. 

The first eleven experiments provide a set of 
interfacing and programming investigations 
for readers interested in interfacing concepts. 
The last seven experiments provide additional 
lab investigations of advanced topics and pro- 



jects to supplement the experiments. They cov- 
er logic probe, device address decoding, device 
selecting pulses, constructing an input port, 
handling multi-byte input port information and 
input port applications, constructing an output 
port, I/O interactions, data logging and 
display. 

An analog-to-digital converter is maneu- 
vered by the computer in Experiment 1 1 . When 
the program is run, the operator should be able 
to make the meter needle swing between two 
preset voltages. 

Experiments 12 through 18 get more in- 
volved with device address and decoder cir- 
cuits, output ports, BCD and binary coding, 
using the output ports and a simple program as 
a traffic light controller circuit. 

Experiment 15 is an important one, used to 
demonstrate how logic device testing can be 
done. Simple flag circuits are handled in Exper- 
iment 16. Experiments 17 and 18 are more de- 
tailed in working with programmable interface 
chips and interfacing the A/D converter to the 
TRS-80. 

Experiment 18 is very interesting from the 
standpoint that the resistance capacitance (RC) 
curve can be observed on the TRS-80. An RC 
curve is typically used to measure pressure, 
temperature, speed, conductance or many 
other physical perimeters. 

The reader can obtain an overview of the 
subject in a quick reading. Next the breadboard 
circuit can be assembled, and the TRS-80 
should be put to use. 

The most dramatic thing about the book is 
that it gives the reader practical experience and 
guidance with the TRS-80 with program exam- 
ples and actual hardware. When the reader has 
completed the book, he should have a good un- 
derstanding of I/O devices and interfacing. ■ 



Computer Games for Businesses, 

Schools and Homes 

J. Victor Nahigian and William S. Hodges 

Winthrop Publishers, Inc. 

Cambridge, MA 

Softcover, 157 pages 

$10.95 

by I in (iorney 

Are you looking for a good computer 
games book that will give you a solid core 
of coding from which to develop your own per- 
sonalized computer games? Do you welcome 
the challenge of converting a program from any 
version of BASIC to your own machine's 
BASIC? 



Do you enjoy debugging others people's pro- 
grams? Do you like to play computer games 
just for the fun of it? If you answer yes to any 
or all of the preceding questions, you are a 
prime candidate to purchase Computer Games 
for Businesses, Schools and Homes. 

In his foreword, Mr. Weinberg introduces 
Computer Games as Winthrop's "first sally in- 
to new territory— the personal computer." The 
programs contained in this 157 page book are 
for the personal computerist. However, the 
particular version of BASIC, which runs on 
PDP type machines, used in these programs is 
not within the grasp of the average personal 
computerist. Assuming you don't have a DEC- 
type BASIC or DEC machine, there are a few 
changes you must make before you power up. 
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The backslash is used as the multiple state- 
ment per line delimiter in these programs. You 
will have to replace it with whatever character 
your BASIC uses as a separator, or code each 
statement on a separate line. You may have to 
change the PRINT statements to LPRINTs, if 
you want a printout. Using INPUTS or INPUT 
in place of GET and PUT statements will elimi- 
nate some problems in your INPUT and 
PRINT statements. 

A listing of the variable names and their uses 
within the programs follows a short description 
and history of each game. This is a nice touch, 
especially if you are the type who likes to tear 
apart a program. A typical sample run and a 
program listing in an easy to read 5 x 7 dot 
matrix round out the games' introductions. 

More Winners Than Losers 

As with any collection, some of the games 
are losers. "Bullet" is the old — click, 
click — computerized version of Russian 
Roulette. "Poem" randomly generates one, 
but with little literary value. 

"Psycho" is a minor league attempt to out- 
put your personality profile based on a design. 
Other poor selections include a Star Trek game, 
"Taplab" and "Tic-Tac-Toe." 

What remains, however, are 21 winners that 
can be divided into five general categories: 
calculation games, casino games, dice games, 
grid/math games, and the ever present miscel- 
laneous category. 

One of the more interesting calculation 
games is called "Date" which, when given to- 
day's date and any other date, calculates the 
number of days between today's date and the 
second date. A variation of this same logic is 
used in the next two programs. 

"Biorythm" is a graph of those critical days! 
"Compat" is advertised as a biorythmic com- 
patibility calculation for two people. Interest- 
ingly enough, for two people to be 100 percent 
compatible, they should either be born on the 
same day or their ages should differ by 59.86 
years. 

Casino games are the downfall of most per- 
sonal computerists. Computer Games has 
"Blackjack", "Draw Poker" and "Jackpot", 
but done rather well. In addition to a fairly 
good description of each game, the authors 
have included probability tables which for 
"Blackjack", give the combinations and odds 
for hitting any particular count; for "Draw 
Poker", give the odds for being dealt each type 
of poker hand; and, for "Jackpot", a payoff 
table listing the odds for spinning a winner. 

There are three interesting dice games, 
"Kismer", "Notone" and "Rollon" — if you 
go for the computer tossing dice, that is. 

The grid/math/number games include 
"Boggle", a number-based Mastermind; 
"Escape", a grid game which pits you against 
five enemy attackers on a simulated battlefield; 
"Golf, a computer simulation; "Gunner", the 
old artillery game which teaches you a bit about 
trigonometry; "Skeedoodle", a math game; 
"Stock", a good stock market simulation. 

Luck and Skill 

The remaining four games require an equal 
amount of luck and skill. "Basket" is a 



2-player basketball game. "Dogs" simulates a 
dog race for up to 13 bettors. This program 
even skims off 17 percent of the wager pool 
before it pays the win, place, show and perfecta 
wagers! 

"Horse" pits up to 10 players, each having 
12 horses. The object is to get one of your 
horses over the finish line before any of your 
opponents. "Tennis", anyone? Input your 



position, the type of shot, and the area your 
shot should go to on the opponent's court and 
settle back. 

The book is a good buy for anyone willing to 
accept the challenge of converting and debug- 
ging programs to expand his or her game 
library. It combines a learning experience with 
pleasure, and this, according to Weinberg, is 
the goal of Computer Games. ■ 



Planetary Lander 
Instant Software, Inc. 
Peterborough, N.H. 

$7.95 

by John Warren 

'.. pace games are one of the most durable 
^^commodities of the microcomputer boom, 
and spaceship landing programs are a mainstay 
of the genre. One of the best of these is 
Planetary Lander by Instant Software, Inc. 

While the early lander programs were limited 
to number displays, graphics are now in. 
Planetary Lander shows the position of your 
ship in relation to an altitude "yardstick," the 
scale of which changes as your ship approaches 
the planet's surface. 

Next to the altitude display is a control read- 
out that gives lapsed time, speed in meters per 
second, thrust and other indicators. Two of the 
readouts use horizontal bar graphs that give 
speed as a percent of terminal velocity and the 
amount of fuel remaining. These displays are 
updated at one second intervals. 




Instead of limiting itself to a single planet, 
Planetary Lander allows the player to attempt a 
landing on any of the nine planets (and the 
moon) in the solar system. 

Both the thrust and its duration are input as a 
single statement eliminating the need to re- 
peatedly enter identical inputs — an annoying 
feature of some other lander games. 

Although Planetary Lander is only available 
in Level I, Radio Shack's conversion program 
transforms it to Level II by altering only two 
PRINT AT statements (lines 300 and 330). 

Combined with Stellar Wars, a space war- 
fare game, in a two program package (Star 
Trek III), Planetary Lander is an outstanding 
value. ■ 



Interlude: The Ultimate Experience 
Syntonic Software Corp. 
Houston, TX 
$14.95 tape, $17.95 disk 

by Chris Brown 
80 Staff 

Silicon pundits have told us for a long 
time that computers will play a major role 
in our changing lives. We will see the advent 
of electronic mail, electronic money, even 
electronic crime. It seems to me that if the 
devilish device is ever to be mainlined into our 
cultural envelope, it must service more basic 
needs than game playing and accounts 
payable. Something really basic, for example, 
like sex. 

The time has come. The era of home com- 
puter sex is finally at hand, brought to you by 
Syntonic Software, a forward-looking sub- 
sidiary of Software Technology, Inc. These 
people are not above pandering to your 
prurient instincts for a buck, or fifteen bucks, 
actually. 

Billed as the ultimate experience, the Inter- 
lude package is a curious piece of software for 
several reasons, not the least of which is the 
unmitigated gall the folks at Syntonic were 
able to muster to market this X-rated program 



in the first place. 

What exactly is Interlude? Well, it isn't 
hard core, high resolution graphics, so if 
you're into blue movies, forget it. You won't 
get that sort of display with Interlude. 

In essence, Interlude is a well-structured in- 
terview designed to plumb the depths of your 
sexual preferences in ten probing questions, 
after which it refers you to a book of "inter- 
ludes" that accompanies the software. 

The paper-bound, 96-page volume of inter- 
ludes contains 106 elaborate sexual scenarios, 
written with acute attention to detail. Titles 
indicate content. For instance, "Wet Fun On 
A Hot Summer Night," "Good Vibrations," 
"Fellatio By Firelight," "Caveman," "My 
Way," "Satin Chains," "Macho Man." The 
list goes on. 

If the computer-suggested interlude suits 
your fancy (or fantasy), you may opt to act 
out the scenario. In addition, certain inter- 
ludes are stored in the computer and do not 
appear in the book. Getting one of these gems 
is apparently cause for self-congratulation. 
Your answers must have been outstanding! 

This computerized extension of spin the 
bottle is not a revolutionary premise but is, 
one has to admit, an unusual application for 
the home computer and certainly not what the 
gang at Tandy had in mind. 

The software algorithm of this machine lan- 
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guage program is straightforward. The inter- 
view format is logical, and all questions re- 
quire a numerical answer, indicative of the 
degree of enthusiasm the respondent demon- 
strates. Some of the more mild examples are: 

How complicated do you want this interlude 
to be? 

1. Back to basics. 

2. Keep it fairly simple. 

3. I'm not choosy. 

4. Maybe a small production. 

5. I'm ready for a really big show! 

—or— 
If you were a movie, which would you 
be? 

1 . Pillow Talk 

2. Tom Jones 

3. Gone with the Wind 

4. Superman 

5. A Streetcar Named Desire 

6. Fellini's Satyricon 

After answering several of these thought- 
provoking questions, the computer gets down 
to the nitty-gritty and quizzes you on 
specifics, hopefully picking up on your mores, 
folkways and taboos. Your scalar answers are 
then processed, and an interlude indicative of 
your final tally is suggested. 

The program is fairly interactive. Suzy, one 
of our foxiest secretaries here at 80 Micro, dis- 
played so little enthusiasm during one inter- 
view session that she was directed to interlude 
number 29. The scenario for this interlude 
instructed her to stay home alone and curl up 
with a good book. 

If the interlude suggested is not quite what 
you had in mind (e.g., an acrophobic being 
assigned an interlude involving a high-Hying 
swing), you may request an alternate in- 
terlude. 

You may choose from about six alternates 
before the computer assumes you are a spoiled 
brat and gives up. 

The disk-based version of Interlude we've 
been using even bombs out at this point, pain- 
ling the screen with 2-bytc stack symbols as 
the video memory fills. Although this seems 
like a bug to me, it does get the point across. 
Syntonic uses their own DOS boot, which may 
still contain a few bugs related to program ter- 
mination. 

For all its daring, the Interlude package is 
fairly tame in its attitude toward sexual en- 
counters. The maximum number of partici- 
pants in any interlude is limited to two, so no 
free-swinging, group gropes arc possible. Fur- 
thermore, all interludes arc strictly hetero- 
sexual. No gay or even bisexual interludes are 
allowed. 

Syntonic hints that this is just the begin- 
ning. The last page of the book suggests that 
Interlude II is coming and requests that users 
send their favorite interlude to Syntonic for 
inclusion in the next edition. No mention of 
royalties is made, but the concept is certainly 
democratic. We may even feature the Inter- 
lude of the Month in 80 Microcomputing 
someday. 

Syntonic's marketing has caused raised 
eyebrows in the industry, and their full-page 



living color ads have elicited both pro and con 
responses from readers. \ few irate subscrib- 
ers have taken offense at the quasi-naked lady 
approach Syntonic uses in their promotions 
and canceled. Generally, most readers seem 
curious or amused, rather than indignant. 
This may be just another indication of the 
decadence of the electronic age. 



There you have it— Interlude: The Ultimate 
Experience. The first microcomputer-based 
adult computer program. Will it be a mile- 
stone in microcomputer software, or just 
another trendy diversion? Time will tell. 

What's next? A microprocessor-controlled, 
RS-232-compatible love doll, perhaps. Wel- 
come to the micro-millcnia. ■ 



ISAM 

Johnson Associates 
Redding. CA 

$50.00 

by William I . Colsher 

ISAM (Index Sequential Access Method) is a 
set of BASIC subroutines and utilities that 
allow the programmer to create and maintain 
direct access files using keys, rather than the 
hardware-dependent numbers used by Radio 
Shack. For example, a program can access a 
library catalog by the title of a book, rather 
than by some arbitrary number. ISAM requires 
32K and is available for the Model I or Model 
II. 

The ISAM routines which must be merged 
into the application require about 4.5K. There 
are also minor restrictions on variable names 
used by ISAM and, of course, the line numbers 
used by the routines. 

Efficient Disks 

In return for these restrictions, ISAM pays 
off with greatly increased disk space efficiency . 
The Radio Shack random access tile method 
wastes a large portion of space if your file has 
only a few records in it . If, for example, the file 
contains records numbered 1 and 100, you have 
actually grabbed space for 100 records, even 
though the file contains only two! 

ISAM files with two records take up space 
for only two records. 

In addition to BASIC subroutines, several 
utilities are provided on the distribution disk. 
INIT is used to create new ISAM files, REORG 
is used to free space taken up by deleted records 
and sorts the file in key sequence, and ISAM- 
PRNT enables you to list the entire file in key 
sequence on the printer or screen. 

Most companies are content to simply pro- 
vide the routines and utilities, but Johnson has 
included a demonstration program— a mailing 
list system. It may not be the most terrific mail- 
ing list program in the world, but it is more than 
adequate for my personal use and, I suspect, 
for some small businesses. 

Suitability 

ISAM does everything it promises very well. 
Anyone who has suffered the agony of trying to 
fit an existing numbering or naming system into 
Radio Shack's random access method, with ev- 
erything but a shoehorn, should look into this 
package. 

Finally, one of its best features is Johnson's 
delivery. I got my program six days from the 
day I mailed my check. ■ 



Z80ZAP/CMD 
Org-Tex Industries 
Uwisville, TX 
$29.95 

b> Bill Vick 

80ZAP/CMD makes lost file recovery. 

' j file patches and file maintenance a real 
joy. primarily because of its Hash Index. 
Z80ZAP calculates the hash code for any file- 
spec instantly. 

The Z80ZAP/CMD diskette comes with 
Backup on auto when it is booted up. This is a 
subtle way of telling the user to make a copy be- 
fore he experiments with it. The diskette also 
contains a write protect tab, apparently one of 
those "protect us from ourselves" safeguards. 

Automatic or Self-prompting 

The documentation is contained in four 
brief, but comprehensive pages. Most of the 
commands are either automatic or self- 
prompting, making Z80ZAP a real breeze to 
use. Written in machine language, the run time 
is almost instantaneous in all modes, including 
power up. 

When you load the program it waits two sec- 
onds for you to enter a command. 

In the R (read) mode, having entered your 
drive, track and sector numbers, a well organ- 
ized display appears on screen. The first col- 
umn of numbers on the left side of the screen 
represents the drive number; the second col- 
umn, the track number; and the third column, 
the sector you selected. Next is the column con- 
taining the byte numbers, or the location of the 
first byte of each row in the display. All col- 
umns are separated by a blank column for easy 
reading. 

In the middle of the screen is a hex dump dis- 
play of the sector you selected. To the right of 
the screen is an ASCII dump of the same sector. 
Each dump has its own flashing cursor. The 
cursors move relatively, indicating the ASCII 
byte that corresponds to the hex byte. 

The most fascinating aspect of the program, 
the Hash Index Code, can be demonstrated 
while the display is on the screen. First, read a 
sector from the directory track, (11), sector 
2-9. Choose a program listed in the directory 
and move the cursor down over the first letter 
of the filespec name. 

By pressing H, a new column instantly ap- 
pears on the screen between the hex and ASCII 
dumps. At the top of this column will be the 
Hash Code number for the filespec. Directly 
below it will be the words Hash Code spelled 
out vertically, with an arrow pointing to the 



22 • 80 Microcomputing. September 1980 



EX AT RON 
STRINGY FLOPPY 



I M. 



SPEED 

LOW COST 

RELIABILITY 



Exatron is a California based corpora- 
tion that has been in business since 1974. 
As well as the Stringy Floppy. Exatron de- 
signs, manufactures and sells state-of-the- 
art electro-mechanical equipment for a 
variety of commercial and industrial ap- 
plications Exatron is an established sup 
plier of automatic test equipment to manu- 
facturers, and large OEM users, of mte 
grated circuits worldwide. 



WHAT IS IT? 



The Exatron Stringy Floppy (ESF) is an 
extremely fast, reliable, economical alter- 
native to cassette or floppy disk storage of 
computer programs or data. 

Totally self-contained, the ESF has no 
buttons, switches, knobs or levers to adjust 
or forget. All of ESF's operations are 
under the computer's control 

HOW DOES IT WORK? 

The ESF uses a miniature tape cartridge 
(called a wafer) as the data storage 
medium, about the size of a business card 
and 3/16th of an inch thick. The tape used 
inside the wafer is a special Mylar based 
Chrome Dioxide type, specially developed 
for digital applications. Wafers are avail- 
able in several lengths. 5 feet being the 
smallest and capable of holding up to 4 
thousand bytes of information — the 
75-foot wafer is the largest available and 
can hold up to 64 thousand bytes of data. 

The wafers contain a single reel of the 
special tape connected as a continuous 
loop, the ends being spliced together with 
a piece of reflective tape. In operation the 
ESF drive unit pulls the tape from the 
center of the reel inside the wafer, causing 
the entire reel to rotate. Thus, the tape 
automatically winds itself around the out- 
side of the reel at the same rate as which 
it is pulled from the center. This process is 
similar to that found in an 8-track car- 
tridge. 

The ESF transport mechanism is very 
simple, consisting of a precision die-cast 
aluminum block — with a capstan, drive 
motor and magnetic record/replay head 
mounted on it. The wafer loads into a slot 
in the casting (it will only fit the correct 
way) and the tape is driven at a single 
point by the capstan, past the record/re- 
play head. 



The software in every ESF adds a parity 
bit to every byte saved on tape, and a 
checksum to the end of every file These 
are checked both after recording data and 
upon replay, any detected error is indi 
cated by a message on the video display 
This system of automatic error checking 
gives confidence m any data saved, also 
each wafer is rated for at least 2.000 com 
plete passes past the record/replay head. 



•Assembled and tested 

•All operating software In ROM 

•Fully automatic operation 

• Professional quality 

•No Expansion Interface required 

• Large Owners Association 

• High speed operation 
•Extremely reliable 

► No technical knowledge needed 
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HOW DO YOU USE IT? WHAT'S THE CATCH? 



Once connected to your computer the 
ESF operating system needs to be activat 
ed— simple Just type "SYSTEM'(enter). and 
in response to the 1 prompt type 712345' 
(enter) Your TRS-80 will instantly display 
the ESF sign on message EXATRON 
STRINGY FLOPPY VERSION 4.1', and from 
this point onwards you will have the extra 
commands ' r a LOAD', 'a SAVE' and 
(5 NEW recognized by your TRS-80. 

The ESF's operating system is built into 
the electronics of the unit, in much the 
same way that BASIC is built into the com- 
puter, so it is always available - the 
SYSTEM command is to let your computer 
know that the ESF has been connected. If 
you normally reserve some memory for 
subroutines then the ESF software will 
relocate itself under your selected top of 
memory The ESF uses only 4 bytes of your 
available RAM. these bytes are used to 
point' to the 2048 bytes of software In the 
ESF unit itself 



Well, the only catch that most people 
find is that they have to actually pay Ex- 
atron for their unit! Even this is no big 
deal 

Starter Kits are available with the Exatron 
Stringy Floppy, a supply of wafers, a bus ex 
tender and a selection of useful programs - 
for $299 50 

Through regular advertisements in both 
Kilobaud Microcomputing and 80 Micro- 
computing, owners are kept informed of 
the latest developments in wafer-based 
software Plus hundreds of user work- 
shops' are starting up over the country, so 
you can always be sure of being near to 
another ESF owner 

Exatron also gives a 30-day full money- 
back guarantee, with a 1 year parts and 
labor warranty on the unit 

If you have any questions about the ESF 
then give Exatron a call on the Hot Line 
(outside CA) 800-538-8559. 

East Coast customers can call 800-343 
4424 (inside MA 617-899-3862) 



C 



Open House Workshops take place from 9 am till 1 pm every Saturday at Exatron's 
factory in Santa Clara, and on the East Coast the last Saturday in each month at 
Micro Communications, 80 Bacon Street, Waltham MA 02154. All are welcome. 



) 



exatron 

3555 Ryder Street 

Santa Clara. CA 95051 

408-737 7111 
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■ Reader Service- see page 226 



80 Microcomputing, September 1980 • 23 



$0 REVIEWS 



code at the top. Below this will be the track 
number, sector number and byte location to in- 
stall the code to recover a killed file. By pressing 
the minus key you are able to page back to the 
first sector in the directory track, where you 
may apply the code to recover the file. The 
code, as well as all other information, remain 
on the screen as you page. 

While in the display mode, pressing M. mod- 
ify, allows you to change any byte in the dis- 
play. 

While in the modify mode, the hex cursor in- 
creases in size. Any key pressed (0-1, A-F) 
modifies the byte at the current location of the 
cursor. After each modification, the cursor ad- 
vances one position. 

While in the modify mode, you have access 
to the W, write, command. The W command 
does not immediately write to disk. Instead, the 
prompt comes up. asking you if you desire to 
write to a drive other than the one you read in. 
If the destination is the same, simply press 
7ENTER? and the write takes place. You then 
return to the display mode. 

Z80ZAP even makes sector compares easier 
by using the C key. Pressing C gives you a byte- 
for-byte comparison of any sector on any drive 
to the sector on the display. This function is 
nice to have, if a voltage spike or some other lit- 
tle gremlin got into your diskette. An example 
of this is a diskette that does not boot up be- 
cause of a zapped byte in BOOT/SYS. The 
compare function compares this sector to a 
good diskette and pauses at each byte that is not 
the same. Pressing 7ENTER? continues the 
comparison. 

Another invaluable function is the F, find, 
command. With a sector of data displayed on 
the screen, press F, followed by a two-digit hex 
byte. The flashing cursor goes off to look for 
the byte and resumes flashing directly over it— 
if it exists. If the sector does not contain the 
data, the cursor returns to the first location in 
the display. This function is great for apply 
patches or fixes. 

Using the L. locate, function lets the pro- 
gram move the cursor for you. Press I., fol- 
lowed by the byte number you wish to pin- 
point, and the cursor moves automatically over 
the location. This function also comes in handy 
in applying patches. 

To escape any of Z80ZAP's modes, press X. 
This will return the Hashing cursor to the first 
byte of the display. 

Following are some of the other important 
functions of Z80ZAP: 

+ or - Pages forward or backward, one sec- 
tor at a time. 
Z Zeros out a sector, handy for clean- 

ing up cluttered sectors on your 
diskettes. 
J Jumps to DOS READY. A word of 

caution here: After using Z80ZAP, 
always reboot the system, as the au- 
thor resets the stack pointer to a dif- 
ferent location than DOS does. 
D Puts you in debug: "G" [ENTER] 

returns you to Z80ZAP. 
The documentation also includes easy in- 
structions for removing passwords from all 
files, as well as extremely easy directions for re- 
covering a killed file. ■ 




Model 800 Printer 
Base-2 

Fuller! on, C'A 
$499 

by Milan D. Chepko 

" honly after adding a disk drive to my 
TRS-80. I decided it was time to turn it in- 
to a decent business system by adding a hard 
copy device. 

I considered Radio Shack's price of over 
$1000 for their line printer to be out of the 
question, so 1 started looking around in the 
computer journals. There are several com- 
panies producing less expensive line printers 
compatible with the TRS-80, but I finally set- 
tled on the Base-2 Model 800. 

Among its many hardware and software 
features, perhaps the best is the low price — 
$499 for the standard model with friction-feed 
paper drive. 

The printer arrived about six weeks later 
than initially promised, and the paper rack ar- 
rived even later. 

Fighter Than Centronics 

Weighing 10 pounds and measuring 14 by 
10 by 3 inches (six with tractors), the Base-2 
printer is considerably smaller and lighter 
than the standard Centronics 779 printer from 
Radio Shack. It prints 60 lines per minute 
bidirectionally. Its ribbon cartridge is sup- 
posedly good for five million characters. 

All the component subassemblies use con- 
nectors on the cables, so replacement should 
be relatively straightforward. The construc- 
tion is generally sturdy and. though it should 
tolerate considerable use before needing re- 
pairs, I believe the Centronics 779 would 
stand up better under heavy day to day use. 

The Base-2 printer uses an 8085 chip and 
two ROM chips, along with up to four RAM 
chips to achieve some sophisticated functions. 
For example, six different character densities 
are available per line (64. 72, 80. 96. 120. and 
132), and can be selected by a back panel DIP 
switch or by a software control program. 

The DIP switch on the back panel is used to 
establish a standard print density. This can be 
changed at any time. I generally leave mine in 
the 80 character position. This generates an 
automatic line feed after a carriage return, 
which is needed with the TRS-80. 

In addition, the characters can be printed in 
double width in any of the densities, giving 
you 12 different type sizes. The double-widih 
characlers can siari and stop in the middle of a 
line for highlighting. Also, lowercase charac- 
ters can be printed by generating the proper 
ASCII code. (On the TRS-80, this is done by 



holding down the shift key while typing the 
letters.) 

The printer comes with two different sets of 
characters — standard and APL, both in 
ROM. There is room for three more character 
sets in ROM (although details are a little 
sketchy in the instruction book). A sixth set 
(maybe the TRS-80 graphics?) can be loaded 
into the on-board RAM by program software. 
Characters are printed in a 5 by 7 dot matrix. 

Changing the different character sizes and 
fonts is relatively easy. Issue an escape char- 
acter, followed by the control code describing 
the desired function. With the TRS-80. the se- 
quence would be: 

LPRINT C HRSC7).t 'HR(X): 

The codes are all described in the book that 
accompanies the printer. 

Three options can be added to the standard 
Model 800. Option S controls the paper ad- 
vance from one dot to more than full-charac- 
ter height. It permits rapid paper advance 
without forcing the print head to traverse the 
paper, which is important in printing graph- 
ics. Since this is a bidirectional printer, there is 
some variance in character position from line 
to line. Option S prints in one direction, which 
eliminates most of the wobble in the print- 
head-drive mechanism. 

Option T is the tractor feed and I recom- 
mend it based on my limited experience with 
friction feed. Option M adds extra memory, 
enabling the printer to accept 1920 characters 
from the CPU in a burst, then print them out 
while the processor is doing something else. 

Each of these options adds an exira $50. 
But, in order to add the tractor feed (T). you 
have to add paper advance control (S). The 
tractor feed version ends up costing $100 more 
than the standard model. However, this is still 
$300 to $400 less than the comparable Cen- 
tronics model, which lacks many of the Model 
800's features. 

Versatile 

Unlike many printers, this one is versatile 
with a capital V. In addition to the Centronics 
port required by the TRS-80, there is a serial 
port handling baud rates up to 19,200 and ac- 
cepting RS232 or 20 mA current loop signals, 
along with an IEEE 488 port that should be 
compatible with Pet systems. 

In general, the Base-2 printer is an excellent 
product, and should provide good service for 
most TRS-80 owners. As an added gift, it is 
quiet. Unlike the Centronics 779, the Base-2 
printer is completely silen! when it is not print- 
ing. If your printing workload is light to 
medium, the Model 800 could be just what 
you're looking for!H 
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1 . Outlasts every competitor— 200.000,000 
character head warranty 


8 


Connects directly to TRS-80,™ APPLE" and 
other computers 


2. No duty cycle limitations — even in demanding 
business applications 


9 


Block graphics — 64 shapes for charts, 
graphs, diagrams 


3. Professional print quality— 9 x 7 matrix 


10 


Friction and pin feed 


4. Rugged business use construction — metal 
chassis — two motors 

5. 80 characters per second 


11 
12 


Plain paper — up to 3 parts 

6 and 8 lines per inch — program controlled 
paper savings 


6. Upper and lower case — full 96 character 


13 


80 and 132 columns — program controlled 


ASCII set 
7. Double width characters 


14 


Price — the best value in the industry. Call or 
write today for the name of your local 
Microline 80 dealer. 
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14 REASONS 


* 


^^^f 


WHY TRS-80 






OWNERS 
CHOOSE THE 




All fourteen are standard with every 
Microline 80. The only options are 
snap-on tractors and a buffered (up to 
2000 characters) RS232 interface. 


MICROLINE80 




OKIDATA . 


TRS-80 la ■ ragiatarad trada mark of Radio Shack, a division of Tandy Corp. 




Okidata Corporation 

111 Gaither Drive, Mount Laurel, New Jersey 08054 

Telephone: 609-235-2600 



• Headei Service see pdije .'2b 
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by Michael Tannenbaum C.P.A. 



"For the professional 

accountant or executive. . . 

(Visicalc) is a pure gift, " 



/ \mc of the most frequent questions that I 
V.^Tiave been asked is how the reliability of 
the Model II compares with the Model I. Until 
recently I was unable to give a reply. My Model 
II has performed virtually without a flaw since I 
acquired it. That is, until last week. 

All of a sudden the program I was working 
on dropped out for no reason. When I at- 
tempted to reboot, the operating system gave 
me a memory fault error message. After several 
more trys, I gave up and brought the computer 
to my neighborhood computer center. 

After a brief trial, the salesman agreed that 
the computer was not functioning properly and 
turned it over to the capable hands of the re- 
pairman. Twenty-four hours later it was re- 
turned properly repaired. Frankly, while I was 
not overjoyed to have the computer break 
down after it was out of warranty, the experi- 
ence was not unpleasant. When the Model I 
had problems, the computer took so many trips 
to the repair center I thought they owned the 
machine. 

Pioneered with Model i 

Of course, to be fair, I was a pioneer with the 
Model I. Not only did I purchase one of the 
first 16K Model Is, but I also had one of the 
first interfaces and disk drives. When the ma- 
chine broke down, the local repair center was 
unequipped to deal with it. 

A major difference between the two comput- 
ers lies in the diagnostics that the Model II auto- 
matically performs on power-up. This prevents 
you from using an improperly performing de- 
vice. 

Unfortunately, it is quite easy to use a sick 
Model I. Because much of its operating system 
is in ROM, a memory fault could remain unde- 
tected until a debugged program bombed. Dur- 
ing the time the chip was inoperative, the owner 
could be quite unaware that the machine was 
causing problems. If the computer was just 
used for playing games, such a situation need 
not be fatal. However, if the Accounts Receiv- 
able or the General Ledger file was destroyed as 
a result of the flaw, recovery would certainly be 
painful. 

I recommend that Model I owners acquire 
any of the diagnostic programs that are avail- 
able and run them on a regular basis. 

Well, now that we have covered the "un- 
thinkable" system failure, let's get down to the 
subject of this month's column. . .Accounts 
Payable. Accounts Payable recordkeeping is a 
requirement for almost all businesses. Bills 
must be accumulated and paid for supplies, ser- 
vices and merchandise. Since this type of activi- 
ty usually involves the analysis of invoices, cod- 



ing for subsequent posting to the general led- 
ger, posting to a vendor's payable ledger, prep- 
aration of a check and preparation of a remit- 
tance advice, much work is required. In fact, 
much of the data has to be written over and 
over again. 

The tedious nature of this work has resulted 
in the development of many different Accounts 
Payable systems. One of the most common is 
the so-called One Write system. In a One Write 
system, a series of forms is designed so that the 
repetitious data is reproduced on all the docu- 
ments by means of carbons with a single entry. 

Another widely used method is the account- 
ing machine, which, like the One Write system, 
uses special forms and requires careful posi- 
tioning when posting data. 

Recent models of electronic accounting ma- 
chines are computers in almost every sense of 
the word. These electronic accounting ma- 
chines, like their mechanical predecessors, 
maintain data on individual ledger cards, much 
like the generations of bookkeepers before 
them. Unfortunately, most computer systems 
do not generate a ledger-card type of record. 

A ledger card contains not only the detail of 
open transactions, but also a record of histori- 



cal closed transactions. Because a microcom- 
puter does not have the capacity to retain closed 
transactions, a ledger card cannot be produced. 
If the lack of a ledger card makes it difficult for 
your staff to function, I'd advise against a mi- 
crocomputer payable system. 

At the end of last month's column, 1 indicat- 
ed that the Radio Shack General Ledger system 
appeared to be the first element of a fully inte- 
grated accounting recordkeeping system. The 
Accounts Payable system catalogue #26-4503 is 
the second element. This system can stand 
alone or be used with the General Ledger. If it is 
to be integrated with the General Ledger, a sec- 
ond drive is required. 

Prior to using the system, an initialization 
program must be completed. You are required 
to specify the firm's name, address, system 
password, internal ledger codes (GLC)s and ac- 
counting method to be used. 

The GLCs are used by the payable system to 
identify ledger accounts. They are not compati- 
ble with the codes used in the General Ledger 
system. For example, an expense account re- 
quires two codes, one for Accounts Payable 
and one for the General Ledger. Both codes 
continued to next page 
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Education 80: The role the 80 plays in 
*-4eaching/learning/educational experi- 
ences. This is the world of the classroom AND 
the homeowner learning to repair a leaky fau- 
cet; the driver learning to tune up his car; the 
new employee learning his job; the old em- 
ployee learning new skills for a promotion. 

Well, you have the idea. The young, old and 
in between are involved in teaching/learning/ 
education at school, at home, work, play — ev- 
erywhere. And the 80 can be the most effective 
aid to those learning situations if we can enlist 
its help. 

That is exactly what we will be discussing in 
this space each month: using your 80 in all 
kinds of instructional situations. We will ex- 
change ideas on planning, programming, eval- 
uating and improving. We'll get into software, 
both home-grown and commercial, and even 
into hardware. 



Sharing Techniques 

In this column, we'll share thoughts and 
techniques for making the 80 a better teacher. 
That's right — share. We will discuss what I 
have found and the findings of others, in- 
cluding you. Each one of us knows something 
about the 80 and about a skill or process that 
others want to learn. Now is the time to begin to 
put it all together. 

Me? Well, I've been in education and elec- 
tronics more years than I care to admit. As far 
as the 80 is concerned, I am far enough "into" 
programming and computer assisted instruc- 
tion (CAI) to have gained a bit of skill and 
glimpse its potential. 

I am convinced that we are on the threshold 
of a real revolution in both formal and infor- 
mal learning. The microcomputer will bring 
changes beyond our current imagining. Teach- 
continued to next page 
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must be available to Accounts Payable, if auto- 
matic posting is desired. Failure to do this accu- 
rately will automatically abort the General 
Ledger update at the end of the month. 
When using an integrated Payable and Gen- 
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ing/learning will never be the same. We have 
barely scratched the surface. 

All we have to do is apply our programming 
skills to create situations that help others learn 
most effectively. 

You are invited— no, urged— to participate. 
I welcome your questions, comments and sug- 
gestions about this column. 1 and other readers 
will be most interested in your ideas, software 
techniques and hardware designs. 

What have you found that works well? That 
doesn't work? The rest of us would like to 
know. Write me in care of 80 Microcomputing, 
and they will send you letter along. If you 
would rather "write" on a cassette, that's all 
right, too. 

Oh, yes; I will answer as many of your letters 
as time permits, especially if you have included 
a self -addressed stamped envelope. 

Recording Progress 

Suppose that you have an instructional pro- 
gram that the user studies independently in 
school, office or wherever. Further, the "in- 
structor" wants to keep a record of the user's 
progress. 

Often in such cases, the user and/or the in- 
structor simply writes down the final score 
from the display. It is much more satisfactory 
to have a printout of that information and that 
can be done with the simplest printer. 

The following few statements will do the job 
on the little RS Quick Printer II. (Change the 
commands to suit your printer.) 



1030 PRINT "PLEASE SWITCH ON THE PRINTER AND 

THEN PRESS ENTER." 
1035 BS = INKEYS : IF BS = ""THEN 1035 
1040 LPRINT"NAME 

104S LPRINT "PROGRAM : AMATEUR THEORY II" 
1050 LPRINT "SCORE : "R" RIGHT OF "T" 

ATTEMPTED" 
1055 FOR X = I TO 4 : LPRINT : NEXT 
1060 END 



Certainly, the variable names will have to be 
made to agree with those in the program. Ev- 
erything should be clear, except perhaps line 
1055, which simply runs the paper up four lines 
so that the printout clears the tearbar. 

This small section prints the essential infor- 
mation, but is easily expanded to include what- 



eral Ledger system, it is a good practice to spec- 
ify a Miscellaneous Account. In the event that 
the specific code is not known, the operator of 
the system will have an account to use which is 
acceptable to both the payable and ledger 
systems. 

Looking over the sample reports supplied 
with the system, I was quite pleased to note 
many "big" system features. In addition to an 
Invoice Listing, Posting Report and an Aging 
Summary, there are Cash Requirements Re- 
ports, Check Preview Reports and a Discounts 



ever you want on the record. Best of all, not on- 
ly can you put it in programs that you write, but 
it can be inserted easily into any you wrote and 
any that you've bought. 



Program Modifications 

A well known expression states, in one form 
or another, that one should not waste time re- 
inventing the wheel. So it is with programs. If 
there is an existing program that meets your 
needs, why spend time writing your own? Bet- 
ter to use it, while writing one that does not ex- 
ist. 

There are instances, however, when a pro- 
gram does part of what you want. It may be a 
game which uses the information you wish to 
teach. It may be an instructional program but 
written for the wrong level — too easy or too 
hard for the student(s). It may have too much 
or not enough explanatory material. 

My own approach in these cases is to modify 
the existing program rather than begin at zero. 
Let's look at an example. 

Suppose you want a tutorial program on 
Newton's Laws of Motion. Suppose, also, that 
you have one of the many forms of that popu- 
lar game in which the player attempts to land a 
space vehicle on a planet. The game provides 
excellent application and practice in using New- 
ton's Laws. Your best bet is to use that pro- 
gram and add the instructional part. 

Here are some of the elements you would 
consider adding: 

Title introduction including personalization; 

Tutorial material, perse, on the level and to 
the depth appropriate; 

Introduction to and rules of the "game"; 

Choice within limits of the number of times 
to play; 

Reward/reinforcement frames for success; 

Review frames for failure; 

Scoring and score- keeping; 

Summary review and conclusion. 

As you see, even a game of the entertainment 
type can be turned into a valuable instructional 
program. There are many such possibilities. 
Often, too, relatively minor modifications will 
turn a poor program into an excellent one. 

Don't re-invent the wheel. Get in there and 
apply it in a different way. In later columns 
we'll discuss the elements listed above and find 
ways to make them easy to add. 

I'll meet you here next month for more Edu- 
cation 80. ■ 



Lost Report. Invoices are specified where a dis- 
count could be lost through failure to make a 
prompt payment. This feature, if properly uti- 
lized, can easily pay for the whole system. 

The information package includes a sample 
check and an order form for supplies. I do not 
see any way to customize the check printout, so 
you will probably be forced to order a supply of 
window envelopes. Using this envelope elimi- 
nates the need for addressing envelopes to the 
vendor. 

The screen formatting and the controls avail- 
able to the user are quite advanced. I especially 
like the file maintenance screens. If you cannot 
remember the number of a vendor, you can 
search by name. If you type just a few letters, 
the computer will automatically put you into 
the proper range for retrieving the information. 
You can then use the "previous" or "next" op- 
tions to locate the precise number. 

The system has a capacity of up to 500 ven- 
dors and 3,000 unpaid invoices can be accom- 
modated. As indicated previously it will run on 
a one drive Model II. 

Visicalc for Model 1 

Just before I completed this article, Radio 
Shack announced the availability of the Visi- 
calc Software package for the Model I. This 
software package was originally developed for 
the Apple II and has proved so desirable that 
many Apples were sold on the strength of it. 

For the professional accountant or executive 
who is responsible for planning and projec- 
tions, this program is a pure gift. It turns the 
TRS-80 Model I into a multi-column, multi- 
line worksheet. Each column and line can be 
programmed so that a change in any one figure 
can automatically change all other related fig- 
ures. For example, if you are budgeting a 
12-month period, and each month's activity is 
related to a prior month, you can project an en- 
tire year's activity by simply entering the first 
month's data. 

The program is designed so that the work 
area can be scanned either horizontally or ver- 
tically in columns one to sixty, or lines one to 
two-hundred-and-fifty-six. Any portion of the 
work area can be printed and the results of the 
calculations stored on the disk for recall at any 
time. I urge you to see a demonstration of this 
software. I'm sure you will be as enthused as I 
am. 

In the several months that I have been pre- 
paring this column I have attempted to mix a 
little accounting theory with program reviews 
and recommendations. I am not sure how well 
this format has succeeded to date. I would cer- 
tainly welcome any comment on how the col- 
umn can be made more interesting. If you wish 
to contribute to the column, 1 will be glad to in- 
clude your comments with the appropriate 
credits. 

Since many of the TRS-80s currently being 
sold are disk systems, I am certain that there are 
many people who arc using them for business 
purposes. Sharing experiences with others can 
be an excellent way to increase the value of the 
machine to all. I look forward to hearing from 
you. My address is: Michael Tannenbaum, 
CPA, 42 Bulaire Road, East Rockaway, NY 
11518. ■ 
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by Dennis Kitsz 



"As you may have 

discovered when trying 

to install the high-speed 

modifications. Radio Shack 

has made some changes. M 



The gentleman in the back. Yes, in the green 
shirt. What was that? Customize your 
TRS-80? Sure, folks, just a few simple do-it- 
yourself changes can turn your computer into a 
funny-looking, but more powerful machine. 
Step right up, heat that soldering iron. It's time 
for the Autumnal Equinox Hardware Festival! 
This month we will be adding a second video 
jack, putting a radio frequency (RF) modulator 
into an expansion box, getting rid of the 
RESET lockup in the expansion box, bringing 
RESET up front, adding Level I and Level II, 
adding a keyboard expansion socket, elimi- 
nating the LPRINT/LLIST hangup, and doing 
some preliminary thinking about real-time 
clocks. And you can get nearly everything you 
need at your local Radio Shack. 

In Preparation 

First I have some mixed news for those of 
you with newer TRS-80s. 

As you may have discovered when trying to 
install the high-speed modifications, Radio 
Shack has made some changes. The two-chip 
ROM set is slow, and takes up both available 
ROM sockets; the cassette load improvement 
modification ("XRX") prevents data I/O at 
high speed; and the new expansion box is 
somewhat locked into standard speed. Also, 
the updated no-bounce keyboard style makes it 
harder to install top-mounted items such as a 
control key, and so forth. Radio Shack has 
gone through so many alterations to the com- 
puter that models now hardly look like my own 
antique machine. 

Let me offer a few precautions before start- 
ing. Open the case carefully, setting aside each 
part in order (six screws and six white keyboard 
grommets). Work on a large surface, and set 
the unit on a towel to protect its finish. Flex the 
keyboard's cable as little as possible, and put 
absolutely no stress on it. And most of all, 
always make any changes with the power off 
and disconnected. 

Let's start with an easy one, the installation 
of an extra video jack. You'll need a sub- 
miniature plug/ jack pair, a video jack, wire, 
solder and cosmetic tools. 

You can always use this extra video jack, es- 
pecially if your machine makes frequent 
appearances before the general public. You 
may add almost any sort of jack for which you 
have abundant matching connectors; I used a 
simple coax jack. Since long wires will tend to 
make your video signal look messy, choose a 
point near the normal video outlet to mount the 
new jack. 

The plastic used for the TRS-80 case is soft 
and very pliable, almost enjoyable to work 



with. Exact-o knives, drills, wood or linoleum 
cutting tools, and even screwdrivers can be used 
to cut the plastic to the right shape and smooth 
out a hole. 

Open the case and select the placement of the 
jack carefully so that the 80 will reclose without 
striking or binding on the new hardware. Cut 
or drill a mounting hole, and install the video 
jack. Be sure to blow out the bits of plastic, be- 
cause these chips, which will cling by static, can 
cause havoc underneath keycaps. 

Now examine the TRS-80's normal video 
output (DIN) jack; it has five pins, three of 
which are used. Fig. 1 shows the video area with 
the cover removed. 

You will need only two pins because the five- 
volt output pin is used for activating the optical 
isolation circuitry in the video monitor. Isola- 
tion is necessary because, unlike most commer- 
cial monitors, this one has "hot" parts unin- 
sulated from potentially dangerous AC power. 

On Fig. 1 , locate the video and ground traces 
(D and B) where the DIN jack connects to the 
circuit board. Obtain a miniature audio con- 
nector, and mount it on the board, soldering 
the center (hot) lug to point D, and the ground 
lug to point B. 

Solder a short piece of coax cable to the 
mating connector, and run this to your new 
video jack. I used phono cartridge mounting 
hardware for this process. In any^ event, if ease 
of getting in and out of the TRS-80 is important 
to you, then mating connectors will allow you 
to work on the computer without having to 



clip, solder, or disentangle anything. 

Insert the connectors, snap the case together, 
hook up your second monitor, and power up. 
Ahhhh. 

Picture and Sound, Will Travel 

Do you carry your video monitor everywhere 
you go with your TRS-80? There's no need to 
do all that lugging. Using a simple RF modula- 
tor available in kit form, you can put computer 
power in your back pocket (if you have very big 
pockets). The materials you'll need are the 
modulator, a case, two five-pin DIN jacks, one 
DIN cable. 

Start with the RF modulator— Radio Shack 
sells a $15 Project Board and complete surplus 
units are easily found. Assemble it according to 
the directions. Hook it to an ordinary televi- 
sion, and temporarily run computer video 
(from the new output jack) to it. The picture 
quality will be underwhelming, but that is 
mostly a function of the limited bandwidth of 
commerical TV receivers. 

For simplicity, you can put the whole assem- 
bly in a small equipment box, driving it with 
either your new video output jack or the built- 
in one. For the modulator's case, I used the 
empty slot reserved for the RS-232 board in the 
expansion interface, although any classy box 
will do. 

The center pin of the video DIN jack (pin C 
in Fig. 1 ) in the TRS-80 is not used. To it, attach 
a wire from the cassette port's audio output line 
(pin G on the cassette connection shown in the 
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TRS-80* OWNERS: 

• Let the computer write your "Basic" 
program for you! 

• Draw pictures, animated figures, data 
forms! 

• Create a library of display forms! 

• Produce "Commercial" grade software! 



Beginner 



Horn* * 
■t, Animafd programmer 
Game* t * 

Wri««r * * 

programme' 



The Magic Cursor is a Revolutionary Family of Products which 
provides a dramatic new method of reproducing drawings and displays 
that you create on your screen. It makes both simple displays and 
complex interactive data input forms. It stores a "BASIC PROGRAM" 
on disk (or tape) ready for you to execute alone or as a subroutine. It 
produces screens in both standard or wide screen. 

It is available for any level 2, 16Kor largersystem with tape or disk 
An optional version is now available which creates an assembly 
language program 

Be sure to pick out the system that fits your present needs and 
order it today. You may upgrade your original copy by paying the 
difference and a moderate service charge. 



MAGIC CURSOR PROGRAMS 

THE MAGIC CURSOR allows you to easily create screens (including 
graphics) on your video. A powerful command then generates the 
BASIC instructions to recreate the screen For the firsttime. a program 
for automatic generation of video display forms. (16K Tape or 
Disk) $24.95 

THE MAGIC CURSOR I additionally makes sophisticated Data Entry 
and Display easy With Magic Cursor I you define the Data Entry or 
Display fields directly on your screen. The definition commands 
generate the BASIC instructions to implement the Data Entry and 
Display. The Magic Cursor I has commands which move, center, and 
duplicate blocks of graphical or alpha/numeric displays. You can even 
justify text (16K Tape Only) $79.95 

THE MAGIC CURSOR II adds the power to write animated games 
easily in BASIC. The Magic Cursor II allows you to reload previous 
screens either from memory or from Disk. You can then modify them 
and store either the modified screen or only the changes. (32K Disk 
Only) $99.95 

THE MAGIC CURSOR III will be available soon for the new Model II 
Computer (32K One or more Disk) $149.95 

THE MAGIC CURSOR IV provides the features of Magic Cursor II but 
stores an assembly language program (32K Disk Only) $99.95 



WRITE FOR OUR COMPLETE 
SOFTWARE CATALOG!! 



Call 713 474-2484 or order by mail Master Charge. Visa Certified Checkor Money 
Order accepted Personal Checks require 14 days to clear COD or collect calls 
not accepted Software guaranteed for replacement only Prices sub|ect to change 
without notice Some programs Supplied on cassette tape For drsk versions, the 
cassette supplied will automatically create a disk die 



NEW RELEASES FROM CCC!!! 



The Supply Room 

A sophisticated program that is easy to operate This unique 
system helps you manage your retail or wholesale inventory of up to 
1000 line items. Cost may be fractions of a cent, item quantities may be 
decimal values. Automatic cost averaging of updated items and 
suggested sales prices based on gross profit. Transaction reports 
produced during posting functions Printed reports include: 

1. Transaction Listings. 4. Items on Order. 

2. Complete Inventory Listing. 5. Items Out of Stock. 

3. Listings by Prefix. 6. Suggested PC's. 

Requires Mod 1. 32K. 2 Disk $250.00 



The Filing Cabinet 

Take that collection of Job Orders, Personnel Records, Reports, 
Etc and get them organized You define up to 14 data input fields 
specifying field type - alpha/numeric or $$$, field length and field 
separators -such as slashes, etc. During data input, the cursor provides 
for character input and skips over the field separators. 

But that's only half the story. Output reports are automatic 
formated and program automatically requests column headings 

This means you can customize your own data base manager, 
complete with rapid data input and selective output reports Comes 
complete with documentation. 

Requires Mod 1, 32K, Disk & Printer $100.00 

Or Mod 2, 64K, 1 Disk & Printer $150.00 



The Restauranteur's Consultant 

by Ty Halderman 

This food and beverage management tool dramatically reduces 
the human factors in food cost analysis. Those tasks required to 
effectively operate any restaurant or food service business. Over a half 
dozen reports give uniform, accurate and up to the minute information 
for profitability. And. handling of daily cost changes requires only 
minutes per week instead of hours, because the Consultant makes all 
the necessary conversions from your case prices. Reports include: 

1. Menu Recipes. 5, Food Cost Summary. 

2. Ingredient Listing. 6. Input Data Sheets. 

3. Supplier Master File. 7. Batch Update. 

4. Complete Listing of Food Cost Analysis 

Mod 1, 32K. 2 Disk, Printer or Mod 2 $750.00 



"Trademark of Radio Shack, a Tandy Co. 



Send Check or Money Order Payable to: 

CUSTOM COMPUTER CENTER, INC. 

S TU Attn: Jim Martens 

-^ W P.O. Box 58042 / Houston. Texas 77058 

[^ or call: (713) 474-2484 



QUAN. 



DESCRIPTION 



Handling Charge. $1.50 
Texas Res. add 6% Sales Tax 



SYSTEM 
(Size. Tape or Disk) 



TAX & HANDLING 



TOTAL 



PRICE 



MASTER CHARGE / VISA 

Card 



SEND 

INFORMATION 

ONLY. 



.Expires 



NAME. 



ADDRESS. 
CITY 



.STATE. 



.ZIP 



^Reader Service - see page 226 
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The Radio Shack catalog numbers, descriptions and 


prices Tor all the parts needed to compute the modifi- 


cation are shown below: 






General stuff 






Wire-wrap wire 


278-301-2,3 


1.99 


Solder- up 


64-2090 


1.49 


Added video jack 






1 F-61 video connector 


278-212 


2/. 89 


1 Miniature plug/jack set 


274-283 


2/1,99 


Added RF modulator 






2 S-pin DIN plugs 


274-003 


1.49 


1 RF modulator (parts extra! 


277-122 


16.95 


1 Case (optional) 


270-232 


2.49 


1 DIN cable 


42-2151 


4.99 


Modified E/l RESET 






1 Miniature SPST switch 


275-612 


1.69 


1 I0K ohm resistor 


271-1335 


5/. 39 


Added RESET button 






1 Pushbutton 


275-1547 


5/2.49 


1 Miniature plug/jack set 


274-283 


2/1.99 


Level I Addition 






1 Miniature DPDT switch 


275-614 


2.19 


2 IK ohm resistors 


271-1321 


5/. 39 


1 Level 1 ROM set 


(see text) 


$10 bribe 


Keyboard addition 






2 16-pin wire-wrap sockets 


276-1994 


2/1.39 


1 16-pin solder-tail socket 


276-1998 


2/ .89 


1 16-pin jumper cable 


276-1976 


3.99 


Paris List 





figure). Inside the RF box, wire two DIN jacks 
in parallel, hooking them up to the RF modula- 
tor as in Fig. 2. 

A short DIN cable connects the computer to 
the RF box, the TRS-80's original monitor 
plugs into the box's other jack, and the RF out- 
put goes to an ordinary television. See Fig. 3. 
Picture and sound can now travel with me and 
my TRS-80. 

Unlocking RESET 

Speaking of the expansion box, I'm amazed 
that Radio Shack has let users suffer with a 
RESET button that locks up the computer 
when an E/I is connected. There's no good 
reason for leaving it that way, and fortunately 
the solution is very simple. You'll need a single- 
pole, single-throw switch and a I OK ohm re- 
sistor. 

Open the expansion interface, and locate Z32 
(near the power switch). If you have a newer ex- 
pansion interface, this will be marked Z39. In 
either case the part is a 16-pin IC, type 
74LS1 55 . Now find pin 4, and identify the trace 
that leads underneath the IC and out its other 
side. Look carefully, using an ohmmeter to be 
sure it's the right trace. 

Got it? Okay, take a sharp blade and cut 
through it. Run a 10K ohm resistor from the far 
side of the trace to pin 16 of Z32 (or Z39), and 
solder it carefully. Finally, run a pair of fine 
wires, one from each side of the cut trace. 
Solder one wire to each connection of the 
miniature toggle switch. When the switch is on, 
the cut trace is bridged, and the expansion in- 
terface acts normally. When the switch is off, 
the RESET button again works correctly. 

Why did the expansion box hang up the com- 
puter in the first place? When you power up or 
hit the RESET button, the CPU clears a few in- 
ternal items, and then sends out a signal to hex 
address 37EC, asking for information about 
the disk system. If it doesn't get anything (no 
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Table 1 









expansion box), it continues to READY (or 
MEMORY SIZE? at power up). But if it does 
find something (the disk chip in the expansion 
interface responding with the proper value), it 
sits and waits for the disk to start rolling and the 
data to come in. No disk ... no data. 

When we cut that single trace, we took the 
disk system's answer from the circuit. The disk 
controller is still sending a signal, but the com- 
puter doesn't see it. The CPU goes happily on 
to READY. As for the 10K ohm resistor, it acts 
like an electronic rope, restraining the answer 
circuit from triggering because of the high- 
speed electronic madness inside the expansion 
box. 

Even disk owners will find this modification 
valuable, because it allows the disk drives to be 
disabled without flipping a glitch-inducing 
power switch. Also, readers using the LNW 
research expansion board may make the same 
modification. The IC is marked U19, but the 
rest of the process is identical. 

An Easy-to-reach RESET 

Where is your RESET button, anyway? In 
frustration, have you torn off the computer's 
little silver port cover? Maybe bent the cable 
and crashed the system when reaching for 
RESET? Well, then, bring the button up front! 

Following the same carpentry precautions 
used for the extra video jack, install a 
momentary-on pushbutton (get them in packs 
of five from Radio Shack) at the left side of the 
computer. Just two wires are needed, as only 
half of the TRS-80 double-pole RESET button 
is actually connected in the circuit. See Fig. 4. 

As before, it is wise to use some sort of 
mating disconnect plug so that access to the 
machine innards is simplified. 

Don't put the button too close to the top of 
the keyboard, as many an Apple user has shed 
tears over hitting its badly positioned RESET 
button. Imagine being on the 7,000th word us- 
ing Electric Pencil, and accidentally swatting 
RESET! 

Level I BASIC on Level II 

Your kids are having trouble with triple- 
dimensioning strings? They can't make sense 
out of ?DD ERROR and holler about having to 
type long lines of command words? Then why 
not use that nice and easy starting lan- 
guage—Level I BASIC? 

But you just upgraded to Level II, you say! 
Fear not, for the virtues of both are available to 
you for the price of a switch and two resistors. 
Let's hope you've saved your Level I ROM . . . 
you paid for it the first time. If not, seek out a 
cooperative ($10 usually encourages coopera- 
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Row 1 — ZI PIN 8 


— OABCDEFG 


Row 2 - ZI PIN 2 
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tion) Radio Shack manager and obtain a Level 
I ROM set from the upgrade pile in the back 
room. 

The ROMs you want are marked National, 
and are identified by the numbers M2316E/ 
MMS258ET R/N and S/N, or Motorola, 
marked 7807 and 7804. Best of all is the single- 
chip Motorola ROM, marked 7809. You do not 
want chips marked Intel; these were very early 
ROMs, and wiring is complex. 

Check to see if you've got a two or three-chip 
Level II ROM set. If you've got the three-chip 
set, there will be a connector cable running to a 
separate board. If not, both ROM sockets will 
be filled, and that means no room for Level I. 

Handle the ROMs carefully (use special 
black foam or aluminum-foil-covered vegeta- 
ble trays). Mount a double-pole, double-throw 
switch conveniently, but not where you are like- 
ly to flip it while using the computer. 

Open up and turn over your TRS-80. The 
Level II interconnect cable will be plugged into 
one of the two sockets, and several additional 
wires will be connected from the Level II board 
to various parts of the main circuit card. Find 
the following locations: 

• The green wire from the Level 1 1 board, connected near the 
underside of dip shunt Z3. 

• ROM Socket Z33 or Z34 (whichever is empty), pins 18 
and 20. See earlier "Applications" columns if you need 
to know how to read pin numbers. 

Cut the traces leading from pins 1 8 and 20 of 
the unused ROM socket. Add a short length of 
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Enjoying 80 MICRO? 
then read on... 



Okay, now you've had a 
chance to see what I have in 
mind for you with 80 MICRO- 
COMPUTING. Oh, I admit that 
we're just getting started and 
that the magazine will be im- 
proving a lot as we go along. 
We have some interesting 
ideas in the works for you. 

With the TRS-80* (or 90 . . . 
etc.) being the most popular 
microcomputer in the entire 
world, you are going to benefit 
from this in many ways. The 
more computers there are out 
there of one kind . . . the more 
good programs you are going 
to have for this system. I hope 
that is obvious. You may be 
sure that 80 MICROCOMPUT- 
ING will be packed with the 
shorter programs and reviews 
of the larger ones. You can 
waste an awful lot of money on 
stuff that looks great in the ads. 
but fizzles out when you try to 
use it. You need our reviews. 

The wealth of programs will 
also mean that there will be 
much better programs for the 
TRS-80* than any other system. 
Put yourself in the seat of a 
computer programmer and 
you'll understand this. If you 
are going to spend several 
months developing a compre- 
hensive program, and it takes 
all of that to write and debug a 
big program, would you write it 
for a system which has sold 
one hundred units or one which 
has sold over 300,000 systems? 
The answer is obvious . . . and 
this is why we are already see- 
ing programs coming out for 
the TRS-80* which are far bet- 
ter than anything for any other 
system on the market. This is 
tough for other systems . . . the 
law of the computer jungle. 

Between our connections 
with Instant Software, the larg- 
est publisher of microcomputer 
programs in the world, and 
Kilobaud MICROCOMPUTING, 
you know that 80 MICROCOM- 
PUTING is going to be your 
most important link with soft- 
ware for the TRS-80*. 

With Instant Software being 
sold and promoted in every 
country in the world where the 
TRS-80* is being sold, our input 
of programs is also the best in 
the world. We get programs 
submitted from everywhere . . . 

•TRS 80 is a Kademar* ol Tanrjy Ccp 



often from 50 to 100 a week! 
You'll get the cream of the crop 
either published or reviewed in 
80. 

HARDWARE TOO 

The same law of the comput- 
er jungle holds for hardware. 
Would you, as a manufacturer, 
market an accessory for a sys- 
tem which has sold 100 units or 
would you go first for the one 
which has sold hundreds of 
thousands. It is, as with soft- 
ware, self-evident why the great 
bulk of the hardware accesso- 
ries for computers are for the 
TRS-80* these days. 

80 MICROCOMPUTING has 
the advantage of the use of the 
largest and most complete mi- 
crocomputer lab in the world 
. . . the one developed for In- 
stant Software and Kilobaud 
MICROCOMPUTING. This 
means that most new pieces of 
equipment are tested and in 
use by our staff . . . and this 
means that we can tell you 
what we think is outstanding 
. . . and where we find ripoffs. 
This lab is important to you. 

SUBSCRIBE 

If you are not already a sub- 
scriber to 80 MICROCOMPUT- 
ING, please get signed up right 
now. The yearly rates are $18, 
and that is a bargain. Just one 
single program of use to you 
can be worth much more than 
that. One review of an acces- 
sory could save you many 
times that much investment. I 
would appreciate it if you would 

II the coupon below has been used 




appoint yourself a committee 
of one to get more subscribers 
for the magazine. You will bene- 
fit even more than we do here at 
the magazine . . . because the 
more readers we have, the more 
ads we will be able to attract 
. . . and the more ads, the more 
pages of articles you will get 
every month. 

The 80 market can, I think, 
support a couple of hundred 
pages of ads . . . and that 
would mean a magazine of 
nearly 500 pages a month. That 
should hold you. You may not 
have time left to use your com- 
puter. 

ENCYCLOPEDIA 

If you've read Kilobaud MI- 
CROCOMPUTING, you know 
that I try hard not to duplicate 
published material. My concept 
is that every reader should save 
every issue (we sell inexpensive 
boxes for this so they can sit on 
your library shelf) and treat the 
magazine as a continuing ency- 
clopedia of computing. I make 
sure that much of the material 
in each issue is written in sim- 
ple language so it will be under- 
standable by even the rawest 
newcomer to computers. Oh, I 
have articles for the more ad- 
vanced users too, so you'll have 
something to look back over 
later and use as your under- 
standing of your system grows, 
please lill out subscription lorm on the Reader 



Try to think of 80 MICRO- 
COMPUTING as more of a large 
club newsletter than an ivory 
tower high-level publication. I'll 
leave the pomp to other pub- 
lishers ... the ones with the 
well-deserved inferiority com- 
plexes who cater to their Inade- 
quacies by publishing esoteric 
baloney. This magazine is writ- 
ten by the readers and edited by 
people whose aim is to help you 
enjoy your TRS-80*. 

SAVE 

With each issue costing 
$2.50 at your computer store, 
that's $30 a year. For $18 a year 
you can subscribe ... at least 
for now. As the magazine ex- 
pands, please do not be sur- 
prised if the cover price in- 
creases, along with the sub- 
scription price. I started 73 
Magazine for radio amateurs 
twenty years ago with a cover 
price of 37c (two for 73$) and it 
is up to $2.95 a copy now (and it 
is the largest of the ham maga- 
zines). 

For you bargain hunters . . . 
and those who find that one 
year goes by all too rapidly, the 
three year rate for 80 is $45. 
This, too, will be going up . . . 
reflecting the inflation, paper 
increases, postage increases, 
and a short vacation for me in 
Hong Kong next year. Someone 
has to pay for that. 

Service card -n the back of the magazine 
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Sign me on as a subscriber to 



80 Microcomputing for only $18 a year! 



Card* 
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wire between pin 20 and the other end of the cut 
trace from pin 18. Solder a long white wire to 
pin 18. 

Now remove the far end of the Level II ROM 
board's green wire from its connection point 
near shunt Z3, and solder a red wire in its place. 
A blue wire goes to the five-volt supply. I used 
Z57, pin 14. Run the other ends of the white, 
green, red and blue wires to the switch follow- 
ing Fig. 5. 

Note also that two IK ohm resistors are 
necessary to tie up the ROM chip-select leads 
when they are switched off. The resistors hold 
the chips inactive. 

Now here comes the hard, or fun, part if you 
don't have the single-chip Level I set. Find the 
notch at the top of each ROM chip, and line up 
the two chips. Now piggyback one atop the 
other, and solder all 24 pin pairs, so that you've 
got a single, integrated circuit. Do it carefully, 
and be sure to keep the bottom IC anchored in 
some conducting material, like aluminum foil. 
The foil also acts as a heat sink, so work pa- 
tiently and accurately; use good, fine solder, 
and always keep some Solder Up or Solder 
Wick handy in case a blob of solder fuses some 
neighboring pins together. 

Insert this Level I hulk, or the single-chip 
ROM, in the empty socket. Snap the computer 
back together, and power up. You should 
either get MEMORY SIZE?, if it's switched to 
Level II, or a simple READY in Level I. You 
cannot switch back and forth; the languages get 
confused and "hang up." You must power up 
to the language you want. 

Need a Second Keyboard? 

It's an action game, and the youngsters are 
crowded about the keyboard. One youngster 
(balding, with grandchildren) complains, 
"Hey, I'm not close enough to the computer! 
It's rigged in his favor!" 

Need another keyboard? No problem! 
You'll need two high quality wire-wrap in- 
tegrated circuit sockets and one low quality 
solder-tail socket. All three are 16-pin types. 
You will also need some fine wire (wire-wrap is 
best), a 16-pin jumper cable, and a keyboard. 

The type of keyboard is up to you. Perhaps 
you'll want a complete alphanumeric type 
(available in the $40 range) or merely a $10 
numeric keypad. Whatever you choose, it 
should consist of individual keys, each with a 
single pole single throw (SPST) contact pair. 
Small calculator keyboards usually have matrix 
arrangements which aren't compatible with the 
TRS-80. Its keys are arranged in eight columns 
and eight rows, as shown in Table 1 . 

Depressed keys are identified in the TRS-80 
software by column and row. Letter T, for ex- 
ample, is column five row three. That simplici- 
ty makes adding a keyboard a straightforward 
task, since no special encoding is needed. To 
identify any letter, you only need to know 
which column-row combinations produce it. 

There is enough room on the far left side of 
the keyboard for a 16-pin socket in which to 
plug a jumper cable leading to the added key- 
board. Inside the computer, this location is 
directly above a blank part of the keyboard's 
circuit card. 



Use a flat screwdriver to snap out the black 
portion of the cover, and mark precisely where 
the free area is found on the baseboard. Using 
needlenose pliers, pull out all the pins from the 
solder-tail IC socket, and use the socket as a 
guide to mark the baseboard. 

With a small hobby drill, make 16 holes in 
the board to match the 16 pins of the sockets. 
Slide one of the wire wrap sockets into the 
disemboweled solder-tail socket, using the lat- 
ter as a special-purpose grommet. Feed the 
wire-wrap pins through the circuit board, and 
fasten the sockets in place with fast-drying glue. 

Now remove the entire cover, turn the board 
over, and identify pin 1 of the socket. This will 
attach to column one. On most versions of the 
80, you can use the keyboard's resistors to iden- 
tify columns. See Table 2. 

Match column one with socket pin 2. Match 
column two with pin 2, etc. Solder a wire to the 
resistors, and wire-wrap (or solder) the other 
end to the socket pins. Be sure to solder to the 
ends of the resistors closest to the keys. You will 
see that the other ends of the resistors are all 
tied together. 

The keyboard rows are found at the input 
pins of specific lC's on board, but there have 
been so many versions of the 80 keyboard that 
this sequence is far from consistent. The 
technical manual (good for better than half the 



machines in use, but not mine) identifies the 
rows as shown in Table 3. 

It's better to check it yourself. Look for the 
traces connecting @, A, B, C, D, E, F, and G. 
That is row one. Solder a wire to some point in 
this row, and run it to pin 16 of the socket. 

Locate row two, and solder to socket pin 15 
and so forth down to row eight, soldering it to 
pin 9 of the socket. When viewed from the top, 
the arrangement will be as depicted in Fig. 6. 

Once you have completed the wiring, clip the 
socket pins short, turn the board over, and 
place everything back in order. Leave the cover 
off, power up, and run through a few of the 
usual motions to make sure the computer is 
functioning properly. 

Now take a short length of wire and, at the 
newly-installed socket, jumper each row across 
to each column. You should produce all the 
non-shifted keyboard characters, including the 
four arrows and the cursor. 

Take a second length of wire and jumper row 
eight with column one. This simulates the shift 
key. Repeat the column-row test, and note that 
shifted characters appear. Any bizarre behav- 
ior, such as repeated letters, indicates that a 
wire may be shorted or attached to the wrong 
column or row. 

Last of all, there are the cosmetics to deal 
with. Cut a rectangular hole the size of the 
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16-pin socket in the black plastic cover using a 
hot, sharp knife or razor blade. Work slowly 
and carefully to achieve a factory finish 
(whatever that is). 

Piggyback the remaining wire-wrap socket 
into the first one, and snap the cover back on. 
The socket should fit perfectly, rising about 
1/ 16 of an inch above the surface of the cover. 
The cable plugs in at a comfortable distance 
from the keycaps. 

For each keyboard you wish to add, work 
out a row-column key matrix to match the 
TRS-80's, using Table 1 . You can either make 
the jumper cable an integral part of each added 
keyboard, or include a socket on it as well. Bet- 
ter yet, put a cable and socket on each extra 
keyboard, so that they can be chained. 

No-printer Lockup 

If you've got the time and patience, there's a 
good hardware fix to cure the LPRINT/LL1ST 
no-printer lockup. It involves a few ICs, an 
edge connector, and lots of wire. Instead, do 
this: 

POKE 16422, PEEK (16414) : POKE 16423. PEEK (16415) 

Now do a few LPRINTs and LLISTs. See, it 
sends your mistaken Ls to the screen. Where's 
the hardware? 



The previous little item was included to make 
a point. With computers, there are many ways 
of achieving very similar goals. Software can 
run a printer without the mess of hardware 
used in the expansion box. Although a separate 
data generation circuit could have been used 
for cassette output, data is output via software 
instead. The whys and wherefores are rooted in 
economics, elegance and versatility. It was not 
too long ago that I built a nine-channel multi- 
media controller for a museum out of dozens of 



discrete logic chips and transistors. A very sim- 
ple CPU board and some software could have 
done 30 times that task. Time and technology 
make changes. 

There are those computer users who, if they 
do not fear working with hardware, at least 
sneer at its apparent clumsiness. On the other 
hand, some folks cannot begin to understand 
the contortions (and labor-dollars) program- 
mers go through to accomplish something in 
software that a 15« chip could do with ease.B 
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Features of the FIGHTER ■ 

REDUCES OPERATOR FATIGUE THEREBY ALLOWING MORE EFFI- 
CIENT USE OF THE COMPUTER 
2 INSTALLS EASILY WITH PRESSURE SENSITIVE ADHESIVE. NO 
SCREWS, CUPS, OR DRILLING TO DAMAGE MONITOR 
DESIGNED TO MATCH TRS-80' STYLING FROM THE BLACK AND 
SILVER BORDER TO THE LETTERING TYPE FACE 
2 FITS BOTH THE MOOEL I ANO MODEL II 

DOES NOT VOID THE COMPUTER WARRANTY 
ENHANCES THE APPEARANCE OF THE MONITOR 
2 PROVIDES A DURABLE, EASY TO CLEAN SURFACE 

TO ORDER SEND N*™* •* ,d Addraaa Typed or Clearly Printed with 

Check or Money Ordar lor S9.9S* Par Unit. COO'a 
•PRICE INCLUDES smippinc . rt 12.50 Additional Par Ordar. Florida Reaidonts 

TRS-aO IS A TRADEMARK OF TANDY Add 4% Sales Tax. 

1 SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIDA 32601 ^373 
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New Releases for the TRS-80 

Utilities 




We're proud to present three disassemblers for the TRS-80. For 
speed and simplicity, we recommend The Disassembler. For 
complex disassemblies, especially if you wish to make altera- 
tions, you may prefer one of our Labeling Disassemblers, either 
TLDISor DLDIS. 

TLDIS & DLDIS 

You've bought a super machine-code 
program, but now wonder how it works. 
Maybe you even used a quick PEEK 
routine to glance through it when it was 
in memory. If so, you definitely noticed 
the complete lack of comments in the 
code, making it almost impossible for 
you to decipher and understand it. 

Well, Instant Software's Labeling 
Disassemblers are the answer to your 
problem. 

TLDIS (Tape-based Labeling Disas- 
sembler) and DLDIS (Disk-based Label- 
ing Disassembler) are three-pass, label- 
assigning disassemblers which assign 
labels (where appropriate) to the 
routines in a machine-language pro- 
gram. Their output is almost identical to 
that of a hand-assembled source code. 

You can send the disassembly to a 
hnepnnter (Radio Shack parallel port) tor 
either TLDIS or DLDIS. (The difference 
between these utilities is the storage 
mode of the disassembly.) 

TLDIS can send the disassembly to 
cassette tape, DLDIS can send it to disk; 
both send it to the video monitor. The 
stored disassembly from TLDIS may be 
reassembled with Radio Shack's 
EDTASM<™)-the disassembly from 
DLDIS, with Apparat's extension of ED- 
TASM<™>. 

Because of the use of labels, it is a 
simple matter to change any object code 
program by disassembling it and then 



making changes to the resultant source 
code, without losing track of jump/load 
addresses. Labels start with "AAOO" and 
increment up, in even numbered steps 
(AA02, AA04, etc.). The odd numbers 
(AA01, AA03, etc.) are left for you to use 
for the source code during reassembly. 

The printing of the disassembly may 
be temporarily halted by using [SHIFT] 
@ (just as in BASIC) or it may be ended 
by pressing the [BREAK] key. It also has 
a comments column to display ASCII 
charachters used in a LD or CP opcode. 

Because TLDIS and DLDIS work only 
on in-memory programs, they may be 
relocated in memory to avoid conflict 
with the program you disassemble. 

The next time you need to "climb in- 
side" a machine-code program, take 
DLDIS or TLDIS with you. We promise 
that it will be an easier journey. 
Order No. 0230R (TLDIS) $14.95 
Order No. 0231 RD (DLDIS) $19.95 



The Disassembler 

This is a single-pass, hex-notation 
disassembler that will send its output 
either to tape or to a lineprinter (Radio 
Shack parallel port). The tape output is 
directly compatible with Tandy's ED- 
TASM<™>. Thus, you can take an object 
code tape, disassemble and output it to 
tape, then use EDTASM'™) to add, 
delete, change and even re-assemble 
your new version. 

In addition, it displays the displace- 
ment and absolute address of any 
relative jumps made by the disassem- 
bled program. It also displays any ASCII 
characters used in a LD or CP opcode. 

Sample output from the Disassembler 

BYTE MACHINE LINE MNEMONIC COMMENTS 

NUM CODE NUM. COLUMN 

706E 22057B 00053 LD (7B05H),HL 

7071 183B 00054 JR $ + 3DH ;70AEH 

7073 FE52 00055 CP 52H ; = "R" 

7075 2007 00056 JR N2,$+09H ;707EH 

7077 CD8F70 00057 CALL 708FH 

H means the number is HEX 

$ means current location counter. 

Since the Disassembler works only on 
in-memory programs, it has been made 
relocatable so that you may move it 
around in memory to avoid conflict with 
the program you wish to disassemble. 
As an added option, you may also jump 
to memory locations and transfer con- 
trol between Disassembler and other 
utility programs in your computer. 

The Disassembler, use it to examine 
and analyze any machine-code pro- 
gram! 
Order No. 0232R $9.95 



Terminal-80 

The Terminal-80 package lets your 
TRS-80 communicate with the rest of the 
world. These programs give you control 
of the RS-232 port of your Expansion In- 
terface. 

You can connect one or more serial 
terminals to your TRS-80. Your computer 
will accept input from the RS-232 port 
just as if it were entered from the 
keyboard. Thus, you can use your com- 
puter from a remote terminal without 
having to move your equipment. 

The TRS-80 can also be transformed 
into a "dumb" terminal. You can use it in 
a time-sharing situation to talk to "big" 
computers via a modem. All data that 
you type in will go out through the 
RS-232 port and all incoming data will be 



displayed on the screen. 

You can transfer programs over the 
phone lines. Just load a program into the 
TRS-80. The LPRINT/LLIST command 
will transfer the program to a receiving 
computer via the RS-232 port. 

Using the upper/lowercase modifica- 
tion of the TRS-80 is simplified. (You 
must have the modification kit installed 
first or follow the detailed instructions 
included in this package.) Control 
characters in Level II and Disk BASIC 
will be properly displayed and all func- 
tions such as CHR$ will work correctly. 

This package even includes a BASIC 
program to set the baud rate. You won't 
have to tear apart your Expansion Inter- 
face if you use more than one configura- 
tion. 



There are thousands of TRS-80 com- 
puters in the world. Let's get together 
and talk to each other— with the Termi- 
nal-80 from Instant Software. 

This package requires the following 
minimum system: 

1. A TRS-80 with 16K of memory. 

2. An Expansion Interface. 

3. An RS-232 Serial Interface (e.g., 
Radio Shack's No. 26-1 145 or the 
equivalent). 

4. An optional upper/lowercase 
modification kit. 

Order No.01 30R (cassette-based) $24.95. 



WRITE FOR OUR NEW CATALOG! 



Instant Software 



"A trademark ol Tandy Corporation 

PETERBOROUGH, N.H. 03458 
^2 603-924-7296 
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Great Simulations 




Jet Fighter Pilot 

The Jet Fighter Pilot package takes 
you as close to real combat flying as 
possible. . .without pulling G's. 

In this brilliantly realistic simulation, 
you become the pilot of a high perfor- 
mance, twin turbo-jet fighter. Total con- 
trol of the aircraft is yours. 

At the start of your mission, you'll go 
through an entire engine start procedure 
before your flight (provided your ground 
maintenance is up to par). Your takeoff 



will be from either the deck of an aircraft 
carrier (via a steam catapult) or from an 
airfield. 

All controls respond the same as they 
would on a real jet fighter. You'll have to 
constantly monitor your display and 
make adjustments to your throttle, 
flaps, rudder and air spoilers. You 
decide when to retract flaps, landing 
gear and release the auxiliary fuel drop- 
tanks. 

Your on-board navigational computer 
will direct you to your selected airport. 
The Glideslope/Localizer information 
will aid you in approaching and landing 
on an aircraft carrier deck or airfield. 

The Weapons Control Computer will 
arm your missiles, provide you with the 
range and bearing to a target, and tell 
you when to attack. And, if things should 
get a little too hot, you have an ejection 
seat command for egress. 

For a carrier-based landing, you'll 
have to deploy your tail hook. For a land- 
based landing, you'll need reverse thrust 
and your drag chute. 

After you've flown a few missions with 
the Jet Fighter Pilot package, you'll 
know you've earned your wings. 
Order No. 01 59R $14.95 



Cosmic Patrol 

WARNING: PLAYERS OF THIS GAME 

SHOULD BE PREPARED FOR A STATE 

OF REALISM HITHERTO 

UNAVAILABLE ON THE TRS-80 



The Cosmic Patrol program puts you 
in the command chair of a small in- 
terstellar patrol craft. Your mission is to 
defeat Terran space and prey on the 
Quelon supply ships which carry essen- 
tial parts and lubrificants for that im- 
placably hostile robotic force. The drone 
freighters are fairly easy pickings for the 
accomplished starshlp pilot, but beware 
of the l-Fighter escorts. They're armed, 
fast and piloted by intelligent robots 
linked to battle computers. They never 
miss. 

The Cosmic Patrol program is not just 
another search and destroy game. With 
its fast, real-time action, impressive 
sound option and superb graphics, this 
machine-language program is the best 
of its genre. 



Don't keep putting quarter after 
quarter into arcade games or spending 
big bucks for video games cartridges. 
Get Cosmic Patrol from Instant Soft- 
ware -and get the best for less! 
Order No. 0223R $14.95 





Battleground 

It is late 1944, and the Allied Forces 
are sweeping toward Berlin. As General 
in command of your sector, you study 
the map. At your command, are tanks, 
planes, artillery, infantry, engineers and 
vehicles — an awesome array of fighting 
men and the machines of war. From In- 
telligence reports you know that the 
enemy General is a shrewd tactician, not 
to be under-estimated. It will take plann- 
ing and strategy to outwit this wily old 
campaigner. 

The battle map of your sector will fill 
with markers, each showing the deploy- 
ment of your forces. You and another 
player will slip into the roles of opposing 
German and American commanders as 
yet another battle unfolds. 

Battleground allows you to ex- 
perience the awesome responsibility of 
a battle-area command. It will be up to 
you to deploy your tanks, planes, 
vehicles, weapons and men. On your 
shoulders rests the decision, whether to 
call for direct artillery gunfire, or to order 
your planes into the air. You will con- 
stantly be watching for an enemy air- 
drop, always carefully maneuvering your 
forces. 

The stark reality of World War II 
comes alive in Battleground. 
Order No. 01 41 R $9.95 



Instant Software 



TO ORDER: Look for those programs at the 
dealer nearest you (see list of dealers on page 
199). If your store doesn't stock Instant 
Software send your order with payment to: 
Instant Software 
Order Dept. 
Peterborough, N.H. 03458 
(Add $1.00 for handling) or call toll-free 
1-800-258-5473 (VISA. MC and AMEX ac- 
cepted). 
■ 

Prices subject to change without notice. 

PETERBOROUGH, N.H. 03458 
603-924-7296 
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THE ASSEMBLY LINE 



by William Barden, Jr. 



"Numeric computations are 
very tedious in assembly 
language, especially when floating- 
point numbers must be handled, " 



This month we're going to discuss inter- 
facing assembly language code to BASIC 
—why it is desirable, what techniques are in- 
volved, and what kinds of problems will be en- 
countered when it's done. We'll also be pre- 
senting the winner of the Great Second Assem- 
bly Line Programming Contest. 

A Symbiotic Relationship 

A program made up of both BASIC code 
and assembly language code takes advantage of 
both types of programming. BASIC can be 
used for all of the I/O bound processing, while 
assembly language can be used for the com- 
pute-bound processing, which must be as fast 
as possible. 

An example of I/O bound processing is the 
portion of a mail list program that accepts user 
input for mail list entries. In this case, the high- 
speed processing of assembly language is un- 
necessary, as the data is being input at speeds 
no greater than 30 or 40 words per minute, and 
can easily be handled by BASIC code. A similar 
example is printing output, which proceeds at 
speeds in the area of 100 characters per second. 

Assembly language code can be used in the 
compute bound, or "number crunching" por- 
tions of the program, where BASIC code is 
very slow. We've all seen or heard about mail 
list programs that take hours (or days) to sort 
entries. If the sort routines are coded in assem- 
bly language, this time critical portion of the 
program can be improved by a factor of 100 or 
so. Other examples of processing where assem- 
bly language can be used are high-speed graph- 
ics, searches, and array operations. 

When one opts to use assembly language 
code, there are other trade-offs. BASIC code 
can be developed and debugged much faster 
than assembly language code. Numeric com- 
putations are very tedious in assembly lan- 
guage, especially when floating-point numbers 
(those larger than integer values) must be han- 
dled. String operations are not easily per- 
formed in assembly language. 

However, in spite of its negative aspects pro- 



grams of any significance can benefit greatly by 
having portions of the code in assembly lan- 
guage. 

Level II BASIC and Disk BASIC allow 
BASIC code and assembly language code to be 
run together. The mechanism for this is the 
BASIC USR call. Let's illustrate the use of 
USR in Level II BASIC and Disk BASIC by 
some simple assembly language code. This code 
draws a line across the screen and is shown in 
Program Listing 1 . 

For reasons which we'll discuss later, the 
assembly language code here is relocatable. 
That is the machine code end result of the as- 
sembly (the hexadecimal data in the second col- 
umn) can be moved anywhere in memory and 
will continue to draw that line on the screen. 
Non-relocatable code can only execute in one 
area in memory, the area for which it was as- 
sembled, controlled by the ORG pseudo-op in 
the assembly language statements. (For a more 
complete discussion of relocatability, see this 
column in the May, 1980 issue.). 

Level II BASIC and Assembly Code USR Calls 

Suppose that the 1 2 machine code bytes have 
been put into RAM memory at locations 8000H 
through 800BH. How do we execute the assem- 
bly language code at those locations while in the 
middle of a BASIC program? In Level II 
BASIC, the procedure is this: 

1 . POKE the address of the start of the ma- 
chine language code into locations 16526 and 
16527. The low order byte of the start address 
must be put into location 16526, and the high 
order byte must be put into location 16527. In 
this case 00H must be put into location 16526, 
and 80H must be put into location 16527. Loca- 
tions 16526 and 16527 are simply a variable in 
BASIC that has been set aside specifically to 
hold the address of the machine code to be ex- 
ecuted when a USR call is made. 

2. At the point in the BASIC program at 
which you want to execute the "draw line" 
code, use the BASIC statement X = USR(M). 
When Level II BASIC encounters this state- 





00100 


;ALL CODE HERE 


IS RELOCATABLE - NO ORG NEEDED 


0000 0640 


00110 


DRAWL 


LD 


B,64 ;64 CHARACTER POSITIONS 


0102 21003E 


00120 




LD 


HL.3C00H+512 ;START 


0005 3ESC 


00130 




LD 


A,8CH jlINE 


0007 77 


00140 


DRA010 


LD 


(HL),A ;STORE SEGMENT 


0008 23 


00150 




INC 


HL (BUMP POINTER 


0009 10FC 


00160 




DJNZ 


DRA010 jGO IP NOT 64 


000B C9 


00170 




RET 


; RETURN TO BASIC 


0000 


00180 




END 




00000 TOTAL 


ERRORS 












Program Listing I. Line Drawing Program 



1M 


'LEVEL 11 CALL 


Asr 


RETURN SEQUENCE 


111 


CM 




'CLEAR SCREEN 


121 


POKE 1(526,1 




•LS BYTE Or HUH 


131 


POKE 16527,128 




'MS BYTE Or tlltH 


140 


X-USRH) 




•CALL SUBROUTINE 


15i 


GOTO 15i 




'LOOP HERE 


Program Listing 


2. 


Level II Machine- 


Language Calling Sequence. 



ment, it takes the address value in locations 
16526 and 16527 and calls that location. At the 
end of the machine language, a RET instruc- 
tion pops the return address off the stack and 
causes a return to the BASIC interpreter, which 
picks up the BASIC code at the next statement 
after the USR call. This CALL and RETurn se- 
quence is illustrated in Program Listing 2. 

3. We've ignored variables X and M in the 
last two steps. If no arguments are to be passed, 
any dummy value can be used for M and vari- 
able X can be ignored. It's often necessary, 
however, to pass one or more arguments from 
the BASIC code to the machine language code 
and back again. For example, we might want to 
modify the assembly language routine to draw 
a line at any of the 16 screen lines, passing the 
line number of 1-16 from BASIC to the draw- 
line code. Conversely we might want to pass 
back to the result of a high-speed multiply 
routine to BASIC. 

The USR call has a built-in provision for 
passing one argument to the machine code and 
for transferring one argument back from the 
machine code. The M in the statement 
X = USR(M) may be any variable or expression 
that resolves down to an integer value from 
- 32768 to 32767. This argument is passed to 
the machine code in the HL register pair only if 
the assembly language code contains a CALL 
0A7FH instruction. When the machine code 
executes the CALL, a ROM routine in Level II 
BASIC transfers the argument to HL. 

To transfer an argument value of - 32768 to 
32767 back to BASIC, the value must be in HL 
and a JP made to ROM routine 0A9AH at the 
end of the machine language code; note that 
this "JP 0A9AH" replaces the normal RET. 

Mulipk Arguments and Multiple Routines 

Multiple arguments may be passed from the 
BASIC code to the machine language code in a 
variety of ways. The arguments may be at some 
predefined location known to both the BASIC 
program and the machine language code, for 
example a list starting at location 9000H. A sec- 
ond way to pass arguments is to pass a pointer 
in HL; this pointer identifies the argument list, 
which has a predefined order. The pointer may 



36 • 80 Microcomputing, September 1980 
Scanned by Ira Goldklang - www.lrs-80.com 







00100 


> ALL CODE HERE IS RELOCATABLE 


- NO ORG NEEDED. THIS CODE 






00110 


;ASSUKED TO BE AT B000H. 




••■■ 


CD7F0A 


00120 


MOLT2 CALL 0A7FH 


;GET M INTO HL REGISTER 


0003 


29 


00130 


ADD HL.HL 


; MULTIPLY BY 2 


0004 


C39A0A 


00140 


JP 0A9AH 


;PASS BACK AS X 


0000 




00150 


END 




0000 


TOTAL 


ERRORS 


Listing 3 A 





200 'LEVEL II BASIC HERE. 


ASSUMES MACHINE LANGUAGE 


210 'AT 8000H. 








220 POKE 16526,0 






'LS BYTE OF 8000H 


230 POKE 16527,128 






•MS BYTE OF 8000H 


240 DEFINT M 






•DEFINE M AS INTEGER 


250 INPUT M 






■INPUT INTEGER VALUE 


260 X«USR(M) 






'MULTIPLY BY 2 


270 PRINT "X=";X 






'PRINT RESULT 


280 GOTO 250 






'GO FOR NEXT 


300 'DISK BASIC HERE 


. ASSUMES 


MACHINE LANGUAGE 


310 'AT 8000H. 








320 DEFINT M 






•DEFINE M AS INTEGER 


330 DEFUSR5-&H8000 








340 INPUT M 






'INPUT INTEGER VALUE 


350 X«USR5(M) 






'MULTIPLY BY 2 


360 PRINT "X*";X 






'PRINT RESULT 


370 GOTO 340 






'GO FOR NEXT 




Listing 3B 





i«i 


'DATA VALUES TO 


PREASSIGNED 


AREA 


METHOD 


in 


'HOVE DATA HERE 












121 


FOR X-3276B TO 327 


4 








130 


READ A 












141 


POUE X-65536.A 












1SI 


NEXT X 












141 


DATA 215, 127, 10 


41 


1»5.1S4, 


I 






2*4 


'LEVEL II BASIC 


HERE 








21* 


POKE 14524,4 












224 


POKE 14527,128 












234 


DEFINT N 












241 


inpl'T m 












254 


X'USRiH! 












261 


PRINT "X.*|X 












274 


GOTO 244 












341 


'DISK BASIC HER 












314 


DEFINT M 












321 


DEFUSR5>tH6444 












334 


INPUT N 












144 


X-USR5 IN) 












354 


PRINT "X-'lX 












344 


GOTO 3 34 












Program Listing 


4. 


DATA 


I a lues 


to 


Preassigned Area 


E 


xample. 









be one established by the BASIC VARPTR 
command, and the pointer may point to an ar- 
ray or string containing multiple arguments. 
Another method is to pack arguments into HL. 
Four four-bit values could be put into HL, or 
one eight-bit argument could be in H and an- 
other in L. 

More than one assembly language routine 
can be used with a Level II BASIC program; 
it's only necessary to put the starting address of 
the machine language routine to be called into 
16526,7 before each new USR call is executed in 
BASIC. If there is only one machine language 
routine, its starting address needs to be placed 
into 16526, one time only, at the start of the 
BASIC program. 

The calling sequence for Disk BASIC is 
somewhat more straightforward. Disk BASIC 
also uses the USR function, but it has a slightly 
different format. The format is X = USRn(M). 
The small letter n stands for any digit through 
9, which references one of ten possible machine 
code addresses. To call machine code routine 7, 
for example, the statement might be X = 
USR7(M). As in Level II BASIC, M may be 
used to pass one 16-bit argument, or it may be a 
dummy and X may be used to pass back one 
16-bit argument, or it may be ignored. 

Rather than POKEing the address of each 
machine language routine into 16526,7, Disk 
BASIC permits the addresses to be predefined 
by a new function, DEFUSRn. To define ma- 
chine code routine 8 at 8000H, the statement 
DEFUSR8 = &H8000 is executed sometime be- 
fore the call X = USR8(M) is made. Everything 
else works as in Level II BASIC. CALL 0A7FH 



is optionally made to pick up the M argument 
from BASIC, and a JP 0A9AH is optionally 
made to pass an argument in HL back to BA- 
SIC as variable X. 

Another sample program with versions for 
both Level 11 BASIC and Disk BASIC is shown 
in Program Listing 3. This program takes one 
argument M from BASIC, multiplies it by two 
in the machine language code, and passes it 



back to BASIC as variable X. It illustrates all of 
the concepts we've been talking about except 
for multiple argument passing. 

There are basically two methods for interfac- 
ing machine language programs to BASIC" pro- 
grams. The first is the two program approach. 
The second is the embedded machine language 
approach. We'll discuss the techniques and ad- 
vantages of each. 

The Two Program Method 

In the two program approach, the BASIC 
program contains no machine language code. 
The machine language code is separately as- 
sembled and loaded. To integrate the BASIC 
program and the associated assembly language 
program for a cassette based system, the 
following steps are performed: 

1. Execute Level II BASIC. For MEMORY 
SIZE?, type in a memory address correspond- 
ing to the start of the assembly language pro- 
gram. Normally this would be in high memory, 
as everything above this address will not be 
used by the Level II BASIC interpreter. 



100 'DUMMY STRING USING CHRS 

110 A$=CHR$(205)+CHR$(127)+CHR$(10)+CHR$(41)+CHR$(195)+ 

CHR$(154)+CHR$(10) 
200 'LEVEL II BASIC HERE 
210 DEFINT M 
220 B«VARPTR(A$) 
230 POKE 16526, PEEK(B-fl) 
240 POKE 16527, PEEK(B+2) 
250 INPUT M 
260 X-USR(M) 
27 PRINT ■X=";X 
280 GOTO 220 
300 'DISK BASIC HERE 
310 DEFINT M 

320 B-PEEK ( VARPTR ( A$)+1)+PEEK( VARPTR (A$) +2 ) *256 
330 IF B>32767 THEN DEFUSR5=B-65536 ELSE DEFUSR5=B 
340 INPUT M 
350 X=USR5(M) 
360 PRINT "X=";X 
370 GOTO 320 

Program Listing 5. Dummy String Using CHRS Example. 
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100 'DATA VALUE TO DUMMY STRING 

110 A$="DUMMY S" 

120 B=PEEK ( VARPTR ( A$)+1)+PEEK( VARPTR (A$) +2 )*256 

130 IF B>32767 THEN B=B-65536 

140 IF B>32767 THEN C=B+6-65536 ELSE C=B+6 

145 IF B>32767 THEN D=-l ELSE D=l 

150 FOR X=B TO C STEP D 

160 READ A 

17 POKE X,A 

180 NEXT X 

190 DATA 205,127,10,41,195,154,10 

200 'LEVEL II BASIC HERE 

210 DEFINT M 

220 B=VARPTR(A$) 

230 POKE 16526, PEEK(B+1) 

240 POKE 16527, PEEK(B+2) 

250 INPUT M 

260 X=USR(M) 

270 PRINT "X=";X 

280 GOTO 250 

300 'DISK BASIC HERE 

310 DEFINT M 

320 B-PEEK ( VARPTR ( A$)+1)+PEEK( VARPTR (A$) +2 )*256 

330 IF B>32767 THEN DEFUSR5=B-65536 ELSE DEFUSR5=B 

340 INPUT M 

350 X»USR5(M) 

360 PRINT "X=";X 

370 GOTO 340 

Program Listing 6. DA TA Value to Dummy String Example. 



100 'DATA VALUE TO ARRAY 

110 DIM A%(6) 

120 FOR X=0 TO 3 

130 READ B,C 

135 A=B+C*256 

140 IF A>32767 THEN A% (X) =A-65536 ELSE A%(X)=A 

150 NEXT X 

160 DATA 205,127,10,41,195,154,10,-1 

200 'LEVEL II BASIC HERE 

210 DEFINT M 

220 B=VARPTR(A%(0) ) 

230 POKE 16526, B-INT (B/256) *256 

240 POKE 16527, INT(B/256) 

250 INPUT M 

260 X=USR(M) 

27 PRINT "X=";X 

280 GOTO 250 

300 'DISK BASIC HERE 

310 DEFINT M 

320 B=VARPTR(A%(0) ) 

330 IF B>32767 THEN DEFUSR5-B-65536 ELSE DEFUSR5-B 

340 INPUT M 

350 X=USR5(M) 

360 PRINT "X=";X 

370 GOTO 340 

Program Listing 7. DA TA Value to Array Example. 



2. Use the SYSTEM command to load a pre- 
viously assembled machine language program 
into the protected memory area. Rather than 
typing slash to start executing the machine 
language code, hit BREAK to go back to the 
BASIC interpreter. 

3. Execute the BASIC program with its USR 
calls to the machine language code. The ma- 



chine language code loaded by the SYSTEM 
tape may contain many different routines, each 
of which can be specified by the proper POKE 
commands to 16526,7 and a subsequent USR 
call. 

To utilize the two program approach with a 
disk based system, follow these steps: 

1 . LOAD the machine language program in- 



to memory. The program must have been pre- 
viously assembled with an object file to disk 
(Apparat assembler) or have been previously 
loaded and saved on disk (Radio Shack Macro 
Disk Assembler). 

2. Execute Disk BASIC by the usual BASIC 
input. Protect the machine language code by- 
entering the starting address of the machine 
language code for "MEMORY SIZE". 

3. Execute the BASIC program with its 
DEFUSRn and USRn functions. 

This method works well, but is best used for 
lengthy assembly language programs that can- 
not use the procedures for embedded code that 
we'll outline shortly. Since it is a two step load- 
ing process, it is somewhat awkward to use. Its 
main disadvantage is that the BASIC code must 
deal with absolute addresses; if the assembly- 
language portion is reassembled, the addresses 
of its routines may change, and the correspond- 
ing addresses in the BASIC program will also 
have to be changed. 

The second method of interfacing is the 
embedded machine code approach. This ap- 
proach is best used when the machine code con- 
sists of short routines. The data representing 
the machine code instructions can be incor- 
porated into the BASIC program directly, as 
DATA values, CHRS strings, or dummy 
strings. The advantage of this approach is that 
the BASIC program, complete with its embed- 
ded machine code, can be loaded or edited in 
one fell swoop. 

The disadvantage is that some conversion is 
involved, to change the machine code from an 
assembly listing to corresponding decimal 
DATA or string values. There are a number of 
ways to embed the machine code; we'll discuss 
the most popular. 

DATA Values to Preassigned Area 

This is similar to the two program method in 
that the machine code is at a predefined area 
and should be protected by a MEMORY SIZE 
value. In this approach, the machine code in a 
DATA table is moved to its area sometime 
prior to the USR call. Since the area is prede- 
fined, the machine code does not have to be re- 
locatable, but simply assembled to run at the 
specified memory area. An example for both 
types of BASIC is shown in Program Listing 4. 

A dummy string consisting of CHRS values 
can also hold the machine code. The location of 
the string is found by the VARPTR function. 
As one reader pointed out, this appoach has a 
potential problem. When the infamous "string 
garbage collection" mode is entered in BASIC, 
the location of strings may change. The gar- 
bage collection mode is entered when all string 
space has been used, and the interpreter must 
go back and clean up the string allocation area 
to create additional room. (Garbage collection 
is used in lengthy BASIC programs that manip- 
ulate many strings.) 

When using this method, find the VARPTR 
location immediately prior to the USR call; it 
will work without problems except a 255-byte 
limitation on string size. Relocatable code must 
be used. This approach is shown in Program 
Listing 5. 

DATA Value to Dummy String 
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INFLATION FIGHTER— ROUND # 2 

KO Inflation With Our Knock-Out Prices 

MM 88T Impact Matrix Printer 
Quality, Full-Page Printout 
For Your TRS 80 Computer! 

Unrivaled champion of the small business, educational, personal computing and 
professional user. Quality construction and continuous duty print head allow 
heavy usage. Attractive styling complements the most elegant of systems 
without sacrificing compact size. 






• Type of Printine;: Impact bidirectional 7x7 dot matrix* Print Rate: 1 00 
characters par tecond (maximum) • Thru put: 80 characters per second 
(maximum) * Character Set: Full upper and lower case M character 
ASCII set. software selectable single ordouble wide charaeterfonts*> Character 
Height: 0. 10 In. (0.25 cm)* Print Format: 8.0in.(20.3cm)llnelen|th.80characters 
pcrllneat I0CPI. ••characters perlineat 1 2 CPi, 1 20 characters per line 
at 15 CPI. 1 32 characters per line at 1 6.5 CPI* Paper Feed: 10 lines per 
second, stepper motor controlled. User selectable pressure roller or 
tractor feed • Line Spacing: 4 or 8 lines par inch, user selectable 

• Media: Roll paper 6.5 in. (2 1 A cm) wide by 5 In. ( 1 2.7 cm) diameter 
single ply or pressure sensitive multiple copy paper. 0.01 2 In. (3 mm) 
maximum thickness, fan Fold paper: I in.(IO.Icm)to9.Sin.(24.lem) 
sprocket (Including sprocket margins). 0.01 2 inc. (3 mm) 
maximum thickness Cut Sheet paper: Maximum width. 9.5 in. 
(24.1 cm) • Ribbon: Continuous loop cartridge. 20 yds. 0.5 in. 
(1 .27 cm) wide black ribbon. 5 million character line • Input 
Power: I IS/ 230 VAC i 10% S0/60HZ* Data Input: Parallel: 
Centronics compatible 7-bit ASCII. TTL levels with strobe, 
acknowledge returned to indicate data was received. Serial: 
RS232C or 20 ma Current Loop with BUSY (RS232C 
only) handshake. 10 or 1 1 bits: 1 00. I SO. 300. 600. 1 200 
baud • Oata Buffer: I K (2R optional) • Forms Control: 
Top of Form (eight selectable forms lengths) Skip over perforation 

• Physical Dimensions: 16.25 in. (41.3 cm) wide x 10.75 in. (27.3 cm) 
deep x 6.25 m. (15.9 cm) high. Dimensions exclude paper and paper 
holder. Weight: less than 1 5 lbs. (6.75 Kg) 

Other Contenders . . . 



% 



;.-:: 





PIMTIBS 

■EC 5510 TO •/tractor list $2950 17595 

■EC 5520 HSR w /tractor list $32 70 $2950 

Otaeto 1650 TO w/tracior List $3425 $2890 

Diablo 1650 KSR •/tiackx list $3895 $3215 

II 110 Basic Serial List $1895 $1845 

II 810 Basic PauHtt List $1940 $1695 

Tl 743 KSR u/c ASCII list $1395 $895 

Anodes DP9S00 200 cps List $1650 $1449 

Centronics 702 R0 120 cps List $2440 . $1995 
Centronics 703 TO 120 cps List $3140 $2395 
Centronics 704 TO ISO cps List $2350 $1115 
MM Media 12/7 50 200 cps list $4100$1265 

8$ SUPER VALUES $$ 

(Equivalent or better performance than 

Radio Shack TRS89 Line Printer III) 

ARAC0M ISO List $1395 HOW $1195 

* 150 cps. bidirectional logic Seeking * 80. 1)2 or 
136 columns ' ( Of I lines per inch 5.5 ips slew 
speed ' 9a9 Matin upper and low case ■it* 
decenders " 10 char/incfc * 5" to 14 7/8" fan f sM 
paper, tractor feed ' OrifiMl plus 5 copies " 6 
million character life snap m ribbon cartiidgi ' 
120/240 VAC 50/60H2 Mew ' Sue 23° i H" J I 
(SI 4cm i 3S fern i?0 3 cm metric) «*i{ht 31316s . 
(31 lbs ihippmil 

DA1A tOYAl 5000 

80 Column List SI295 $1158 

136 Column list $1395 $1250 

• n ASCII Characters' 125 cps* 6 lines per inch' 
9x9 Mains * Selectable expanded characters * true 
upper and lower esse pi u $ u nderhmnf * Short line 
capability ' Dynamic Platen with adiustable 
character density * Prints orie.inai pies 5 copies * 
Front or bottom paper teed * Tractor teed ' 5 IPS 
paper slew (i n d e pendent of head motion) ' Top of 
(orm 'Ribbon cartridge 'ParaJlett or Serial (110 to 
9(00 Seed) ' Quietued cabinet 



COMPUTUS 
NEW! Frees Perseeel MicroCotapettrs lac. 

PMC-W Computer $579 

FuntionaHy equivalent to TRS80 Model I Computer 
with level II Basic and 16K Memory Has bwN in 
cassette recorder, TV modulator, TV monrtw output 
plus additional leatures 

PMC-80 FistlMd Cassette System 8289 

Loads stand a rd Level 1 1 Basic or Syste m Cassette ts pes 
16 times faster at 8000 Baud Includes modified 
cassette and 1/0 adapter 

TRS-WAOO-0NS 

FCI-80 Ftttload Cassette Interface $149 

Unlike other high speed cassette decks, our FCI loads 
m standard format cassettes at 16 times the normal 
speed. Yes. you em load "Blackjack" in lest than 4 
seconds. Mugs into the back a your keyboard ot 
expansion interlace and operates on ROM based 
program under TRS-80 control, called from Basic, 
System or Disk Basic. The built-in ROM also provides 
keyboard denounce, auto repeat jnd key-beep A 
modilied CTR-41 cassette tape recorder is used 
allowing play and last forward buttons to later down 
during read of tape it can still be used for CSAVE at 
normal speed Comes with instruction booklet for 
modification of CT8 41 Power pack and TRS-80 
interconnect cable eitra 



MX-80 ROM EXTENDER $39 

Enables use of the 2014 empty address locations 
Del ween the end (dBase ROM and the TRS-80 RAM It 
lulty decodes them so there is no interference when a 
2048 Byte ROM is used Allows interchangeable ROMs 
•nth commoniy used routines and programs to be 
accessed by System or USR command Internal 
lumpers allow use of most industry standard 24 pm 
plus 5 volts ROMs A connector cable attaches RCX-80 
to 40 pin bus connector it back of keyboard or 
eipansion Ooi All signals routed through REX-SOare 
buttered (eicept data) to allow eipansion for other 



devices off -ts output connector Power pack and TRS- 
80 interconnect cable exlra 

CAB-40 FUt Cafele/40 PIN $25 

PWI-80 Power Pack (9V at 500 ma) SB 

MEW 
MT 32— Pnnter/ M inor y E ip amian Module. Dove 
anycentjoikiq co nHiatiMprirrtirandadd 16Kar32K 
ofRAM. 

Basic Unit 888 

With 16K $159 

WWI32K 8199 

NEW 

MPC Microeoeneeticn List $300 $275 

An integrated RS232 adapter and direct connect 
modem for any model TRS-80 Connects directly to 
computer bus eliminating a need lor Radio Shack 
Expansion Box, RS232 Adapter and Acoustic 
interface Complete with bus connector and intelligent 
terminal software piogram 

CYBERNETICS TRS-80 -CP/M 
BUSINESS SOFTWARE 

The fastest Mod-ll CP/M with the most features!" 
MOO II CP/M $249 

* Over 610.000 bytes/dish * Downloading package 
nxkaded * 1.000 baud operation ef serial printer 
nrjhout data loss ' Single drive backup 

MOO I CP/M $149 

* Mued single/double densityonanyoMdrivesleven 
a I drive system) * Ultra last disk operation * 
Emulation ol cursor addressing lor any of several 
"dumb" CRTs 

C6ASrC2(Nodlo»H) 8109 

* Auto I F printer support & ASCII top of lorm soft* are 
(LPHIII) * Supplemental document describing our 
implementation * User sellable function keys 

The followi ngsoftware tor Mod II CP/M on hrunless 

otherwise stated (requires C BASIC 2) 
RM/C0801 0m> COBOL tor CP M with alternate keys 



ACCESSOtlES 

1/0 Cable (Specify Computer 
Type end Serial * ParaM) . gin, 

(■Ira Ribbon Cartndgr $9 

2K Butter . . JJJ 

Ran rjoer Holder j?4 

(muftikey ISAM), CRT screen handknt mteractive 
debut. Z80 code, and the mosl useful level 2 leatures 
Compatible with Tandy's Cobel— but rim faster! 

$495 

PMS (Property Management System) Interactive, 
menu-driven system includes lull 6/1. budgeting, 
cash (Ournal. delinquency ksl. tenant acbvily/rent 
roH. complete audit trail and reports on vacancies, lest 

rent, and vendors $650 

Demo disk and manual $75. 

APH (Automated Patient History) General purpose 
question-asking, answer-printing system furnished as 
sett administered review of systems general patient 

history (Mod t also) $175 

Magic WmmJ Full feature word processing, true 
proportional spacing, hie merging, and use ol fuH 

screen editor for source programs or data $398 

RPA (Residential Property Analysis) Analyzes income 
and expense, financing, taxes, inflation and 
depreciation on home, condo. or apartments over a 
user-selectable time Shows payoff in terms of ROM. 
Cap rate, cash encash Amortization schedules and 

worksheet $299 

RBC (Rent/Buy Comparison) Sales or investment tool 
to compare renting and savings account investment 
vs purchasing a particular property $249 

Osborne CBASK source programs (Med- 1 Mm): 

Payroll w/cost accounting $249 

Accts. Payebk/Accts Receivable $249 

Central ledger w/cesh journal $J4J 

08A(CBASIC Books leal $20 

GAMES 

Adventure $14 

I ride* Challenger $14 

Stat Trek III $14 

Cnbbage $10 

Sargon Chess $19 

Saigon II (Cassette) ..$29 

(Disk) $J3 

Hani $|9 



II Mi Cash check oi aoaey order tank wwt transit! COO m credit iMl 1 10 00 i>ii-io> Charttordorsnvitincivdeiipuatioiidate PerclUMorderielloetceetidlrowrocagnijedioitilolions i«i«*ti»ii»hoiw*ii«rwi»>»aii 
orders n*ieiliiedi»«ei are tor prepaid eiders F0I shipping point Charge and cedd orders add 2*t COOs rteairedISS deposit CeMomie residents addi - sales Mi For smpemg •» U S odd 'II torn* ir-w«»iu S IMesiof 
■Vsntiipfi athtrxsttixtM collect tin strvi<eaiiei(appi<allt I Foitign wo«ii mull be Kcanjuawd by paynwnt * U $ tones and iwclode 10*- lor shipping Qvant<t<otniayktliinl*d detail r«esMiyfiO»«eii order Alienees 
tabiect lo Chang* and an offers suttocl lo wHkVimiI with** notict AH »o»i» — t is now wdk aunvfjctiirvrs aerioMy oalets otherwise indicated 



rVMOMAIc 



COMPUTER " m Call or Write For Free Catalog 
PRODUCTS (714) 744-7314/744-9595 

910 W. San Marcos Blvd. u 105, San Marcos. California 92069 



.- flesder Sarvica— see page 226 
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THE ASSEMBLY LINE 



B8B8 


00100 


ORG 


8000H 








00110 


FAST MULTIPLY 


BY STEVE NELICIC, 


WASHINGTON, DC. 


8888 58 


00120 HUL LD 


I ( | 




.-MULTIPLICAND 


8881 1611 


00130 


LD 


D,a 




;NOW IN DE 


8883 62 


00140 


LD 


H,D 




[ZERO HL 


8084 6A 


80150 


LD 


L.D 






8IIS 07 


00160 


RLCA 






;ROTATE N'lER BIT TO CY 


81*6 3111 


00170 


JR 


NC.SO 




;GO IF N'lER BIT - ■ 


888c 19 


00180 


ADD 


HL.DE 




.-ADD H'CANB TO TOTAL 


80(9 29 


00190 


ADD 


HL,HL 




; SHIFT RESULT ONE BIT POS LEFT 


800A 17 


00200 


RLCA 






;SHIFT M' IER BIT 


8MB 3181 


00210 


JR 


NC,S*3 




;GO IF N'lER BIT - 


8MC 19 


00220 


ADD 


HL.DE 




;ADD B'CAND TO TOTAL 


800E 29 


00230 


ADD 


HL.HL 






803r 07 


00240 


RLCA 








8118 3081 


00250 


JR 


NC.SO 






8012 19 


00260 


ADD 


HL.DE 






8013 29 


00270 


ADD 


HL.HL 






8014 07 


00280 


RLCA 








8015 3001 


00290 


JR 


NC.SO 






8017 19 


00300 


ADD 


HL.DE 






8018 29 


00310 


ADD 


HL.HL 






8019 07 


00320 


RLCA 








801A 3001 


00330 


JR 


NC.SO 






801C 19 


00340 


ADD 


HL.DE 






801D 29 


00350 


ADD 


HL.HL 






801E 07 


00360 


RLCA 








801F 3081 


00370 


JR 


NC.SO 






8021 19 


00380 


ADD 


HL.DE 






8022 29 


00390 


ADD 


HL.HL 






8023 07 


00400 


RLCA 








8024 3001 


00410 


JR 


NC.SO 






8026 19 


00420 


RUB 


HL.DE 






8027 29 


00430 


ADD 


HL.HL 






8028 07 


00440 


RLCA 








8029 D0 


00450 


RET 


NC 






802A 19 


00460 


ADD 


HL.DE 






802B C9 


00470 


RET 








0000 


00480 


END 








00000 TOTAL 


ERRORS 














Program Listing 8. Fast 


Multiply Winner. 

^___ — 



This approach avoids the garbage collection 
problem by moving DATA values to a dummy 
string made up initially by legitimate string 
values. The location of this type of string is 
always within the statement itself, rather than 
being in the separate string area. (You may 
want to verify this by some experimentation 
with the V ARPTR.) The size of the string must 
be at least equal to the number of machine code 
bytes to be stored. The 255 byte maximum size 
limitation remains. Relocatable code must be 
used. This approach is shown in Program 
Listing 6. 

DATA Value lo Array 

A final method was suggested by Charley 
Butler of the Alternate Source. In this case, the 
DATA values are moved to an array. As arrays 
are allocated once and are not reshuffled, there 
is no garbage collection problem. Also, the ar- 
rays may be as large as is necessary, and any 
size machine language program may be used. 
Relocatable code must be used as the array 
location is not known beforehand. This ap- 
proach is shown Program Listing 7. 

The Great Second Assembly 
Line Programming Contest 

There was an excellent response to the sec- 
ond contest problem posed in this column in 
June: Write the fastest subroutine possible to 
multiply two eight-bit unsigned numbers in the 
A and B registers with the result to appear in 
HL with A and B preserved. 

Entries were in four categories; those that 
used huge tables to precompute the result, 
those that used repetitive addition (too slow), 
those that used standard eight-iteration loops 



(some very elegant), and those that wrote in- 
line code to repeat the computations eight 
times, avoiding the loop overhead. 

As the decision of this blear-eyed judge is 
final, the winner belongs in the last group, hav- 
ing (he fastest worst-case multiply that did not 
use extensive prc-computed tables in memory. 
He is Steve Nelick of Washington, DC and his 
fast 157.85 microsecond multiply is shown in 
Program Listing 8. He will shortly receive a 
copy of the new computer science bestseller 
Godel, Escher, Bach by Hofstadter and a copy 
of my new Radio Shack fiction book Program- 
ming Techniques for Level II BASIC. 

Honorable mention goes to Foulk, Van Pelt, 
Mignery. Wallen. Lee. Craig, Thomas, and 
Smith. 

I appreciate all of the entries. Some of you 
went to elaborate documentation and I am in 
awe of the amount of work you performed. 

Many have asked me to keep the problems 
coming, so I am duty bound to pose a third 
problem: Write an assembly language sub- 
routine to draw a line between any two screen 
character positions. (Not points! There are 16 
lines of 64 character positions.) There will be 
two winners, one for the most elegant version, 
and one for the fastest version. Again, token 
prizes will be awarded. Send entries to the ad- 
dress at the end of this column. 

Next month we'll discuss the mysteries of the 
Radio Shack Disk Assembler and review some 
assemblers for the Model I LB 



William Barden. Jr 

MlMPalmada 

Miuton Viego. CA <&>i2 



SO INPUTS 

from page 16 



Double Size Graphics 

In Bertram Thiol's article, "Double Size 
Graphics" which (June SO), states that the onl> 
\sa> to escape the double character mode is 
with u CIS. or as he goes on to describe later, a 
series of PLLKs. Actually, he is in error, the 
TRS-80 provides an escape from this mode via 
the CHRS(28), which returns the cursor to 
home, and resets the screen back to 64 charac- 
ters. It is the exact opposite of CHRS(23) and 
can be used as such. 

Jeff Eistn 
Huntington \ alley, PA 



Super Program 



I would like to commend Delmer Hinrichs 
for his super BASIC Word Processor program 
that appeared in the May issue of 80 Microcom- 
puting. 

The program runs perfectly with just minor 
changes to accommodate my printer and pro- 
vide for a stop between printed pages so that 
single sheets can be used. The changes I made 
are: 

1 U»e LPR1NT" " at the end of line ItWO 

2 Add line 1675 to provide top margin of one inch on vingic 
vheetv and paper advance on tolled paper 

167? J-ORZI I TO* :l PRINT CHRSOH) NIXI/1 
J. Delete I PRINT I HRK2H) and O0TOMM from line 1740 
4. Add new line 1745: 

1745 INPUT "NEW PAGE— PRESS ENTER WHEN 

READY";7.l:CX)TOI67S 

There is one apparent misprint in line 880 (a 
lowercase 'P'). I'm guessing, but I think that 
the misprint should be replaced with a zero. 

Morris L. Krome 
Owings Mills, MD 



Recorder Variation 



For the past three years Grant Union High 
School in Sacramento California has been de- 
veloping a TRS-80 based microcomputer pro- 
gram as part of our math and science curricu- 
lum. During this period we have continued to 
acquire systems and build an extensive library 
of programs on tape and disk. Many of our 
programs were CSAVEd on the CTR-41 re- 
corder. Most of our recorders are now 
CTR-80S. 

We developed an equation to convert refer- 
ence numbers from one tape recorder to anoth- 
er. We checked our results on several different 
tape recorders and found the maximum varia- 
tion to be one to two percent. 

The equation relating the two systems is as 
follows: 

CTR-41 (#) = (1.66KCTR-80<#)) 
CTR-80 (#) = (.6MCTR-41(#)) 

Madeleine Fish (Teacher) 

Steven Emert (Student) 

Sacramento. CA 
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Word Processing HMCT Style 



MM 



MWGfcW 



Wll*»"*' 




Using the best in word process- 
ing software the Magic Wand™ . 
the best in letter quality printers 
the NEC Spinwriter™. and the 
well-known TRS-80™ MOD II. 
You have looked and looked for 
the best and now it is available 
from the Complete Computer 
Company. HMCT. Word Process- 
ing at its best from $7500. 

Magic Wand available separate- 
ly for the MOD II and other com- 
puters $400. 

UMPT The Complete Computer Company 

IllfflOl 5313 Bissonnet Bellaire, Texas 77401 (713)661-2005 ^33 

Magic Wand is a trademark of Small Business Applications, Spinwriter is a trademark of NEC, and TRS-80 is a trademark of Radio Shack. 



friNEWS 



edited by Nancy Robertson 



"77ie fn>o existing and 

complex sets of standards 

have led to classification 

chaos of the buyer. " 



COBOL on the 80: Prospects & Pitfalls 



If the item about Tandy's new COBOL 
( COmmon Business Oriented Language) com- 
piler didn't catch your attention in "80 News" 
last month, take another look. And take a peek 
at June's issue where you'll find the Nevada 
COBOL compiler. Then there's May with Mi- 
crosoft's COBOL announcement. 

Chairman of the American National Stan- 
dards Institute (ANSI) COBOL Committee 
James Panttaja explains that the introduction 
of COBOL for microcomputers "may put mi- 
cros in a different market place, taking them 
beyond the home, where they started their ex- 
istence, into the business world." 

One of the first things anybody hears about 
COBOL is that there are hundreds of thou- 
sands of business programs written in the lan- 
guage and hundreds of thousands of program- 
mers trained in COBOL. Like Panttaja, many 
people believe that the TRS-80 compilers, 
which convert COBOL to machine code, will 
open the door for 80 owners to the wealth of 
tried and true COBOL business programs. 

COBOL was first introduced to the market 
in 1959 — about one and a half decades before 
the advent of microcomputers. The language 
was designed to be self-documenting. It is writ- 
ten in full English words, in statements and 
paragraph-like formation. The idea was that a 
group of people could develop programs joint- 
ly, with each program continually stating its 
objectives and progress in plain English. 

Although COBOL originated from an effort 
to organize national libraries, Microsoft's Mike 
Orr explains that, "Over the years, COBOL 
has been tuned to be just what people want it to 
be." It began with good text movement capa- 
bilities and now exceeds BASIC and word pro- 
cessors in screen formatting, generating rows 
and columns of data, report generation, In- 
dexed Sequential Access Method (ISAM) filing 
and graphs. 

But because of its vocabulary and syntax, 
COBOL is a bulky language that can take up a 
great deal of memory. And it is a slow process 
to develop COBOL programs. Programming 
in BASIC is both faster and easier. Yet. BASIC 
cannot be applied to business applications as 
thoroughly. 

The situation is not simple. In its short 
history, BASIC has already been written in 
many versions. There are BASICs for every 
level of the TRS-80, the Apple and the Pet. 
There are BASICs for disk operating systems 



and others for cassette systems. In the long 
history of COBOL, it is hard to say how many 
versions of the language exist. Because of these 
differences in COBOL, programs will need to 
be translated, not only from machine to ma- 
chine, but from one version of COBOL to an- 
other, to operate on the 80. 

Languages dubbed COBOL range from 
scant, specific application languages to gargan- 
tuan languages that can operate in 12 modules 
serving countless applications. The price range 
of the three COBOLs with compilers that have 
been listed in "80 News" is indicative: Business 
Microproducts' Nevada COBOL for TRS-80 
Models I and II with CP/M costs $99. Tandy's 
TRSDOS COBOL for the Model II costs $299. 
Microsoft's TRSDOS COBOL-80 compiler 
costs $750. 



"Programs will need to be 
translated, not only from 

machine to machine, 
but from one. . . 

COBOL to another. " 



In an effort to limit the confusion caused by 
the proliferation of COBOLs, ANSI estab- 
lished the first COBOL standards in 1968. They 
were updated in 1974, and a corollary set, the 
Federal Information Processing Standards 
(FIPS). was issued in 1978. 

Deciphering COBOL types and standards is 
undoubtedly more difficult than programming 
in COBOL. The importance of this standards 
maze is its impact on the translation of the 
thousands of COBOL business programs 
already in existence. 

The ANSI-74 standards divide COBOL into 
12 possible modules and require only sufficient 
performance in the first three to classify a 
language as COBOL. These three modules are 
termed Nucleus, Table Handling and Sequen- 
tial I/O. The complete ANSI standards are ex- 
plained in the ANSI X3.23 manual. The 1978 
FIPS standards separate COBOL into four 



classes: low; low intermediate; intermediate, 
and high. 

ANSI's Panttaja asserts, "If the levels of 
FIPS or the modules of ANSI-74 are the same, 
very little rewrite is necessary to write a com- 
prehensive and comprehensible translation 
from any machine to another." Without the 
standards, COBOL translation can be just as 
difficult as any other machine translation. 

The two existing and complex sets of stan- 
dards have led to classification chaos for the 
buyer. Further, any distributor of COBOL will 
be quick to tell you that the standards do not 
account for non-standard extensions of their 
language. There are also factors of speed and 
run time programs to be considered. 

When and if you get the standards sorted 
out, there's still a hitch. As Panttaja explains, 
"There's no means of verifying ANSI stan- 
dards." And although the government, 
through FIPS, has devised tests to validate 
COBOL language compilers, they arc ad- 
ministered by manufacturers. There is no 
government grading or verification of the test 
results. 

New ANSI standards are being developed 
now and are expected to be released in the next 
few years. The COBOL Information Bulletin, 
citing what can be expected of the future stan- 
dards, is available from the ANSI COBOL 
Committee, 1430 Broadway, New York, NY 
10018. 

Despite the lack of software, both Microsoft, 
Bellevue, WA, and Business Microproducts, 
Livermorc, CA (who have had their separate 
TRS-80 COBOL compilers on the market for 
several months), are satisfied with their sales. 
Business Microproducts' Jim Smith says that 
they have found a market among high schools 
"and even universities" that are teaching 
COBOL programming. Mike Orr of Microsoft 
explains that despite a low advertising take off, 
their $750 compiler has "sold in the dozens in 
its first two months on the market." 

But unless the COBOL standards are quickly 
clarified, it's doubtful that the advent of 
COBOL for the TRS-80 will have the immedi- 
ate and dramatic impact on the business market 
that many people are expecting. Those thou- 
sands of existing business programs can't be 
run on the TRS-80— yet. ■ 

By Nancy Robertson 
80 Staff 
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Confused by the New 
Level II Two-chip ROM? 



Know what? Radio Shack is selling a revised 
two-chip version of ROM for Level II BASIC 
machines. These new 6K chips have given some 
users problems because the new ROM does not 
function in quite the same manner as the old. 

In their monthly newsletter, Microcomputer 
News, Radio Shack ran a list of command cor- 
rections for the new ROM, and some other in- 
teresting tidbits. They are rehashed here in an 
effort to clarify the confusing situation which 
has resulted from the introduction of this new 
two-chip ROM. 

First, the new power-up query is: MEM 
SIZE? The BASIC sign-on prompt is: R/S L2 
BASIC. The memory space saved by condens- 
ing these messages is now devoted to a key- 
bounce fix. The old KBFIX keyboard driver is 
no longer necessary and will not work with the 
new ROM. 

Second, free memory space has been reduced 
by two bytes resulting in a 15570 answer to the 
MEM? query in a 16K machine. 

Third, one can no longer CLOAD from ei- 
ther tape input when an expansion interface is 
bing used. Only tape drive number one may be 
used. CSAVE#-N procedures still allow the op- 
erator to select the destination drive in multi-re- 
corder set-ups, however. 

Fourth, pressing SHIFT and the down arrow 
simultaneously will result in control characters. 
You are in the control mode as long as both 
keys are depressed. 

Fifth, you can now perform multiple 
PRINT® operations by simply constructing 
your print statements as follows: 

PRINT® IO,"A".®50, , B",@2000."t" 

In addition, about ten of the Shack's tapes 
will not CLOAD with the new ROM. If you en- 
counter this situation, a new tape will be sup- 
plied by Radio Shack. 

This ROM is not interchangeable with pre- 
vious ROMs. If you want it, be prepared to 
shell out $150 (Level II) for a complete conver- 
sion kit. The kit is only available as an installed 
modification and, as one might expect, only 
certified Radio Shack service centers will be do- 
ing the installations. Installation is extra by the 
way, but how much extra is not mentioned. The 
model number for the new Level II ROM is 
#26-1 120, and it is available now. ■ 

By Chris Brown 
80 Stqff 



Please Be Patient 



At 80 Microcomputing we are under- 
going some staff changes that have re- 
sulted in a backlog of mail and manu- 
scripts. We are reading manuscripts as 
quickly as possible. The editors apolo- 
gize for any delay. 




The Infancy of Electronic News Delivery 



July I , The Columbus Dispatch became the 
first newspaper in the country to offer electron- 
ic home delivery. Owners of microcomputers 
can now dial their phones, connect their mo- 
dems and read the evening news from their vid- 
eo screen. 

77ie Dispatch is one of 1 1 Associated Press 
(AP) newspapers which will be offering elec- 
tronic home delivery through the CompuServe, 
Inc., Columbus, OH, data network. The other 
papers which will participate in electronic deliv- 
ery are: The Washington Post; The New York 
Times; Chicago Sun times; The St. Louis Post- 
Dispatch; The Minneapolis Star and Tribune; 
The Norfolk Virginian-Pilot and Ledger-Star; 
San Francisco Chronicle and The Middlesex 
News (Framingham, MA). 

CompuServe's president, Jeffrey Wilkins, ex- 
plains that the 1 1 papers were chosen from more 
than 40 that were interested. Several of the 
publications are expected to join The Dispatch 
in electronic delivery sometime in September. 

July 14 Knight-Ridder Newspapers, Inc. also 
began electronic delivery of their paper on an 
experimental basis in 30 homes. Calling the 
project Viewdata, Knight-Ridder is working 
in conjunction with American Telephone and 
Telegraph. 

However, because microcomputers do not 
need to be dedicated to data sharing only, the 
prospects for the future of electronic delivery 
seem more likely to pivot on the reception of 
the CompuServe program. There are 1,300 
daily papers and 3,500 radio and television sta- 
tions who own AP. Most of them are curious: 
Does the public have any interest in microcom- 
puter, electronic delivery of the news? 

As it stands now, electronic delivery through 



CompuServe begins with a local phone call 
from the subscriber, answered by a local com- 
puter, which in turn communicates with Com- 
puServe's data base in Columbus. Via tele- 
phone wires and modems, news enters the 
home microcomputer at 300 words per minute. 
A directory or menu allows users to scan news 
sections and headlines. Stories can be called, 
read, saved or printed from each section. 

However, computer subscribers will have to 
say good-bye to Mary Worth, Steve Canyon 
and Charlie Brown. The comics, political car- 
toons and photographs will not be transmitted. 

For the time being, advertising is also absent 
from computer editions. Advertising generally 
accounts for about two-thirds of newspaper 
revenues. Although electronic delivery may 
prove less expensive than paper printing, it is 
argued by many people in the business that new 
concepts in advertising will be vital to the sur- 
vival of computer news delivery. 

The Dispatch has already made plans to in- 
corporate classified ads in their CompuServe 
edition. They are also working on an advertis- 
ing index system that will make it possible for 
space advertisers to sponsor several articles. 

Philip Meyer, marketing director of Knight- 
Ridder's Viewdata project, does not believe 
computer delivery will completely replace pa- 
per delivery. "The newspaper is not an ineffi- 
cient information retrieval device," he said. 
"You can scan it very quickly. The main threat 
to newspapers is not competition for informa- 
tion, but competition it (data sharing) provides 
for advertisers." 

Publishers and advertisers may adjust to 
electronic delivery of the news, but what will 
become of Sundays without the Sunday com- 
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Utilities for Businesses 



ACCT-M2 from Micro Architect, Inc. con- 
sists of five programs that carry out the on-line 
accounts receivable functions of a small busi- 
ness or a medical clinic. 

The three basic functions are initialization, 
data base management and report generation. 
Initialization allows users to specify the system 
parameters, such as company name and ad- 
dress, late charge policy, etc. It also can sort the 
customer names or change most of the system 
parameters. The data base management lets 
users add, inquire, delete and adjust transac- 
tions and customer information. 

Reports consist of sales journal, receipts 
journal, aging analysis, end of period process- 
ing, data base listing, labels, statements and 
deleted customer reports. A consistency check 
is included. 

ACCT-M2 is priced at $149, including a disk 
and user's manual. The user's manual is avail 
able separately for $5. A simplified version of 
the program is available for the Model I and 
costs $69. 

L216 is another business package from Mi- 
cro Architect for systems with at least I6K and 
Level II BASIC. It consists of the following 
programs: a cassette data base manager, a word 
processor, an inventory control system, a stock 
management program, a check balancing pro- 
gram, a label printer, a deposit calculator, a 
statistics program, a sort utility and a key- 
access utility. 

The complete package costs $59. 

For more information on either of these 
products, contact Micro Architect Inc., % 
Dothan St., Arlington, MA 02174. 

Reader Service ^ 174 



Color Graphics Circuit Board 



Integrated Service Systems, 1011 W. Broad- 
way, Minneapolis, MN, 5541 1 is selling a 
TRS-80 color graphics circuit board. It is de- 
signed for use with a standard color television 
receiver and a 4K to 48K Level II. The board is 
sold in two different packages: Model C-2000 
and Model C-1000. Both include all electronic 
components. Minor assembly is required to 
complete the RF modulator section. 

Models C-2000 and C-1000 are fully buf- 
fered and expanded to ten display modes. 
ASCII and eight-color semi-graphics can be 
mixed on the screen. Five four-color graphics 
modes and four two-color graphics modes are 
included. 




Mikro-di.sc Disk Drives 



COLPRT is a machine language program 
that allows ASCII and semi-graphics informa- 
tion to be displayed by LPRINT. COL- 
SCREEN is the program which transfers the 
TRS-80 graphics to a color screen. (COL- 
SCREEN is not available yet, but is expected to 
be on the market by October.) 

Model C-2000 includes the circuit board, 
COLPRT and power supply for $189.95. 
Model C-1000 costs $129.95 for the circuit 
board and software without the power supply. 

Reader Service »^333 



80 Music Synthesizer 



Software Affair, Ltd. is selling Orchestra-80, 
a TRS-80 music synthesis system written for a 
16K Level II TRS-80. The system consists of 
software and hardware. 

The software is a five part machine language 
program: a digital synthesizer which produces 
four simultaneous voices in a six-octave range; 
a music language compiler, a full function text 
editor with blinking cursor, and a file manager. 

The hardware is a single 1 '/: by two inch PC 
board, completely assembled and tested, which 
plugs into the expansion connector of the 
TRS-80 keyboard or the screen printer connec- 
tor on the expansion interface. 

Tape and disk versions arc supplied on 
cassette, with sample music programs. For 
more information, contact Software Affair, 
Ltd., 473 Sapena Court, Suite 1, Santa Clara, 
C A 95051. 

Reader Service ^ 340 



Production to Begin on 
New Winchester Drives 



New World Computer Company, Inc., 3176 
Pullman St., Suite 120. Costa Mesa. C A 92626. 
has added the Minimikro-disc V Series of 
5 '"4 -inch fixed disk drives and an enhanced 
double-density system called Mikro-disc VIII- 
1TF to its product line. 

According to the company, standard 
5'/4-inch floppy disk drives have an average ac- 
cess time of 298 milliseconds. The Minimikro- 
disc V-ITF can access data in an average of 
eight milliseconds. 

The original Mikro-disc 211, has doubled 
storage capacity and has been renamed the 
Mikro-disc VIII-ITF. 

The Minimikro-disc V-ITF and Mikro-disc 
VIII-ITF are priced at $700 and $1 100 respec- 
tively, in dealer quantities. Production is 
scheduled to begin by the end of the year. 

Reader Service ** 328 



VTOS 4.0 Plus Manual 



Virtual Technology. Inc., Dallas, TX 75234, 
has a new disk operating system available, the 
VTOS 4.0. 

VTOS 4.0 will support five inch (35, 40 or 77 
tracks), eight inch (single or dual density), or 
ten M hard disks. Speed-up kits that are on the 
market will also be supported. Backup is sim- 
plified so that users only need to indicate the 
type of drives used. Improved chaining offers 
15 chaining commands that can handle most 
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I'M fi BELIEUER !! 



I Love it !!. . .Its really a incredible O/S. It' just great! 
Now I see why people who have seen it say they are now 
believers. I know I am." lance micklus 



1) Larse (8") drivt support. 

2> Double Sided drive supuort. 

3^ Double Density drive support. 

4> 80 Track drive support. 

*NOTE a 1 1 above drives may be 
mixed on any one system and can be 
Configured at Syssen t 1 we or dur 1111 
any Backup! 

5) Winchester technoiosy fixed drive 
support . 

0i Suppoi ts any combination of the 
above drives up to a max. of 8 
dr ■ ves. 

7' Supports double-speed processor 
Clock modifications. (ArChbOid for 
example ' 

8' FOSTER' Improved overlay 

structure us ins ISAM accessing 
techniques improves loading times by 



purpose output spoolers 

synbi : r it desisri provide 

out Put and program 

without any user 



up to 1600V-. 
9> Genera 
of a true, 
s 1 mu 1 taneous 
execut 1 on 
1 nter vent 1 on. 

10) Keyboard - ' Type-Ahead feature 
permits you to enter keystrokes before 
your programs need them. 

11) User definable keys. all. 2E 
letters. 

12' Built ■ n Graphic string packer 
i *ts you enter graphic symbols into a 
BASIC program from the keyboard 
through the use of the <Ciear> Hey. 
The (Clear) key is s ■ hip i y held down 
fjust like the (Shift) keys' during 
other keystrokes and 

v i 01 a. . . s nph id! 

131 Dated f 1 1 es. All f 1 1 es ar* 

accompanied by the date of their last 
modification 1 creation or wr.te'. 

14) Marked files. Ai i files are 

accompanied by a 'mark' if they have 
been Modified since they were last 
backed up. This Permits the BACKUP 
utility to copy only those files which 
have actually been updated since a 
previous backup. 

1B> File transfer by class. Allows 
transferr ing of ail f 1 I es of a similar 
directory classification such as /CMD. 
/BAS. /PCL. etc. 



VTOS 
4.0 

VTOS 4.0 

Opera t ing System 

Diskette with 
Operator's Gunk 1 

$99.95 

VTOS 4.0 

M ast er 

Reference Manual 

$29.95 

VTOS 4.0 

Combinat ion - 

1 .0 disk. 

Operator's Guide. 

and Master 
Reference Manual 

$125.00 



10) Built-in SYSTEM command contains 
lower case d ■ sp I ay driver. screen 
print. br.ak key disable. blinking 
cursor, disk drive stepping rate and 
motor-on delay modifications. and 
more. 

17» User may SYSGEN a custom VTOS 
system configuration containing 
spec 1 a 1 I/O drivers. device LINK ing 
and ROUTE. ng. SPOOL 1 ng and DEBUG 
tasks. etc. wh.ch Mill be 
automatically loaded during the BOOT 
process w.thout requiring a more 
lengthy AUTO and CHAIN procedure. 

10) Ncn-BREAhab 1 e AUTO and CHAIN 
commands. 

19) Hi Id-care DIRectory. Permits you 
to locate a 1 1 f 1 1 es of a certain 
classification such as '/BAS'. 
Uniformly indicates file s 1 ze in K 
< 1026 bytes' regardless of drive type. 
"DIR D" wC'U 1 d g 1 ve you an your files 
that start with "D". 

20> Dynamic file name defaults in 
APPEND. COPY, and RENAME commands 
allow you to specify only minimal 
information about file names. 

21 1 COPY and APPEND commands 
up to 300% faster. 

22 > ALLOCate 
pre-ai location and 
of file space. F. le space 
shrink if this option used. 

23> MEMORY command for directly 
setting upper memory 1 itiit. 

24) Variable Length file support is 
incorporated which automatically 
blocks short user data records both 
within a sector and across sector 
boundaries thereby taking maximum 
advantage of d ■ sk file space. 

20) No security disk needed to make 
backups or to run the system' 

20) Though many 0/S bear his design 
and code VTOS 6.0 is the only Fully 
Aproved Operating System by Randy 
Cook! And .t is FANTASTIC 

27) Endorsed by Scott Adams and Lance 
M. ck 1 us' 



execute 



command for 
non-rei easi bi 1 ity 
1 never 



VTOS and VTOS 4.0 are registered trademarks of VIRTUAL TECHNOLOGY. INC. - Dallas. Texas 75234 

Available from the following distributors or 
your local computer store, dealer inquiries invited 

S% Discount Just For Mentioning This Ad. (Valid month of this publication ONLY) 



QUALITY 

SOFTWARE 

DISTRIBUTORS 

11234 Park Central PI Suite C 
Dallas Texas 75230 
• (214) 692-1055 

- Micronet - 70130,203 
SOURCE - TCC293 



M%Adventur& 

^^0r INTERNATIONAL "* 7 

ADVENTURE INTERNATIONAL 

Box 3435, Longwood, Fla. 32750 
(305) 862-6917 - Voice 
after 8:00 - same number 
as FORUM 80. (SOURCE - TCC957; 



^0 Ma 



SMALL BUSINESS 

SYSTEMS 

GROUP 



Main St. and Lowell Road 
Dunstable, Mass. 01827 
(617) 692-3800 - Voice 
(617) 692-3973 - FORUM 80 
Micronet - 70310,236 



Prices subject to change without notice. 



• /l ea Per Sanrfce— set page 226 
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types of routines, including timed functions. 

There is a built-in graphics screen packer. 
Graphics can be designed on the screen, listed 
and combined with BASIC LOOK-AHEAD. 

Printer and keyboard speed buffers make it 
possible to use the system for two functions at 
one time. For instance, it is possible to operate 
the printer and run a program simultaneously. 

The VTOS 4.0 Master Reference Manual 
claims to offer "the detailed handholding in- 
formation that so many people have been ask- 
ing for." 

Together, the manual and VTOS 4.0 are sold 
for S 1 25 . The manual is available separately for 
$29.95. 

Reader's Service ^ 330 



Speed Loading Cassettes 



Personal Micro Computers, Inc. (PMC), 475 
Ellis St., Mt. View, CA 94043. is selling Fast- 
load to input cassettes to Level II computers at 
one kilobyte per second. PMC claims this is 16 
times the normal speed. Any cassette saved at 
normal speed (500 baud) can be loaded with 
Fastload at 800 baud. 

Unlike other high speed program loading 
devices, Fastload docs not require transferring 
programs to another media first. This PMC 
product is also able to search for BASIC pro- 
grams at high speed, but it does not provide for 
high speed recording of cassettes. 

The Fastload cassette interface plugs into 
either the back of the TRS-80 Level II 16K 
keyboard or expansion interface. PROM 
memory is located above ROM and below 
RAM. It also contains a keyboard debouncc 
program . 

A CTR-41 tape recorder must be used with 
Fastload. Modifications must be made on stan- 
dard CTR-4Is with instructions provided; a 
new recorder with the modifications is sold by 
PMC for $95. The Fastload cassette interface is 
sold for $188. 

Reader Service s 349 



Model II System Monitor 



RSMII is a relocatable system monitor for 
the Model II sold by Small System Software, 
P.O. Box 366. Newbury Park, CA 91320. 

RSMII includes commands to insert break- 
points, dump memory in hex and ASCII, test, 
search, modify, verify, zero and fill memory, 
etc. These features are also included in the com- 
pany's Model I system monitors. 

Features that are new with the RSMII in- 
clude a video editor to modify both memory 
and disk sectors. Disk commands can access 
four drives and can read and write single and 
double-density disks. There are controls for 
split screen scrolling and adjustable scroll 
speeds. 

RSMII will operate printers through either 
parallel or serial printer ports at baud rates 
from 1 10 to 9600. An image of the screen may- 
be printed at any time. Page-length control and 
RS-232-C handshaking are supported. 

The system monitor comes on a self-booting 
disk with a relocater. It is sold for $39.95 with 
an instruction manual. 

Reader Service • 167 

General Ledger System 

Sturdivant & Dunn, Inc., 124 Washington 
St., Box 277, Conway, NH 03818 is selling Full 
Charge Bookkeeper, an advanced general led- 
ger system for small businesses. 

It gives users an efficient method of posting 
income, expense and adjustments to obtain fi- 
nancial statements plus cumulative detail on an 
annual basis. It can handle 12 characters of al- 
pha and 4520 posted entries in up to five de- 
partments. 

Full Charge Bookkeeper is written for a 
TRS-80 Level II with 48K, three disk drives and 
printer. The package, which includes manual 
and programs is priced at $199.95. It will be 
sold for $129.95 through September as an in- 
troductory offer. 

Reader Service ^181 





Fastload Interface and Cassette 



Radio Shack's Self-teaching Guide to Pro- 
gramming 



RS Game and Guide 



A new game from Radio Shack, Dancing 
Demon, displays an animated figure dancing to 
music that can be heard by connecting the com- 
puter to an amplifier and speaker. The program 
is supplied on cassette and includes two prepro- 
grammed selections. The user can also program 
other tunes of up to 248 notes and choreograph 
dance routines to go with the music. 

The program is designed for a Model I Level 
II TRS-80 with at least 16K RAM. It is priced at 
$9.95. 

Radio Shack also has a compact 200 mW 
speaker-amplifier that can be used to produce 
the musical accompaniment for Dancing De- 
mon. The Realistic Micro-Sonic Speaker- 
Amplifier is priced at $1 1 .95. 

TRS-80 Level II BASIC, a self-teaching 
guide to programming and using a Level II mi- 
crocomputer, is another new product from 
Radio Shack. Each chapter is composed of 
short, numbered sections which present ideas 
or topics on BASIC, the TRS-80, or a program 
that is being developed. 

TRS-80 Level II BASIC, is priced at $9.95. 

Reader Service ** 326 



Time-sharing Peripheral 

The Micromint Inc. is selling a new data 
communications product, the Chatterbox. The 
Chatterbox is a combination of the presently 
available Comm-80 I/O interface for the 
TRS-80 and an acoustic modem, to turn 
TRS-80 into a timesharing terminal. 

The Chatterbox includes a built-in program- 
mable 50-19200 baud serial port, a Centronics 
compatible parallel printer port, a 300 baud 
acoustic originate modem, and a spare TRS- 
BUS expansion connector. 
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TRS-80 



EXPAND YOUR MEMORY AT 
AN INCREDIBLY LOW PRICE 



16K RAM- $59.50 
32K RAM -$109.50 



NEW FROM 



Pretested 

One year warranty 

Available now 




MICROTEK^ 



9514 Chesapeake Drive 
San Diego, CA 92123 
Tel. (714)278-0633 
TWX 910-335-1269 *™ 



•Trademark Radio Shack, Div. Tandy Corp. 



-Reader Service— see page 226 
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Comm-80 of Chatterbox Package 



Model I555S Analog-to-digital Converter 



It comes with power supply, connection 
cable, user's manual, and terminal software for 
immediate operation. It is hardware and soft- 
ware compatible with existing TRS-80 products 
and connects either to the keyboard connector 
or screen printer port on the RS expansion in- 
terface. It does not require the RS expansion in- 
terface for operation. 

The Chatterbox is sold for $259.95 from The 
Micromint Inc., 917 Midway, Woodmere, NY 
11598. 
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TRS-80 to H-14 Interface 



The Model PTS-3 (for use with an expansion 
interface) and the Model PTS-4 (for use with- 
out an expansion interface) are printer inter- 
faces from Multi Media Systems. They make it 
possible to connect the TRS-80 microcomputer 
with the H-14 Serial Printer. 

The PTS-3 plugs into the parallel printer port 
of the TRS-80 interface. The PTS-4 can be used 
with the PTS-3 in systems that do not include a 
Radio Shack expansion interface. The H-14 is 
connected to the DB-255 connector of the 
PTS-3. 

A software driver is not needed with this 
system, because it will support all printer com- 
mands in BASIC or machine language. 

The PTS-3 and the PTS-4 are each priced at 
$73.45 for an introductory period from Multi 
Media Systems, P.O. Box 41081, Indianapolis, 
IN 46241. 
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E.S.P. Lab for Research 



E.S.P. Lab has been designed by Manhattan 
Software, Inc., P.O. Box 5200 Grand Central 
Station, New York, NY 10017, as a program 
for research into possible extrasensory pheno- 
mena, as well as for casual testing of the possi- 
bility of telepathy, clairvoyance, precognition 
and telekinesis. 

Based on Duke University experiments, 



E.S.P. Lab selects randomly from among a set 
of five symbols (square, triangle, cross, wavy 
lines and oval), presenting one symbol at a time 
on the screen for telepathy experiments. All 
symbols are programmed in machine language 
and appear on the screen instantaneously. For 
clairvoyance and precognition testing, the pro- 
gram selects the symbol before or after the 
response, prompting only with a question mark 
on the screen. 

Complete records are kept in memory of 
each symbol and response for a series of ten 
trials of 25 symbols each. Tables of results are 
constructed, with analysis of matching symbols 
and responses. For TRS-80 Level II 16K, 
E.S.P. Lab costs $9.95. 
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Packing Program 



Data Assoc., Box 882, of Framingham, 
MA 01701, has released Pack8, designed to 
pack BASIC programs for faster loads and 
runs. Pack8 can reduce memory as much as 40 
percent. 

Pack8 is written for 32K and 48K Model I 
computers using one disk drive. All the lines in 
the program can be compacted, or a block of 
inclusive numbers. At the end of the packing, a 
summary is presented of the number of bytes 
and lines in the original program. 

PackS is provided on cassette with instruc- 
tions, and is sold for $19.95. 

Reader Service * 169 



1555S Analog-to- 
digital Converter 



Tustin Electronics Co. has added the Model 
1555S to its series 1500 analog-to-digital con- 
verter product line. 

The new model provides a complete conver- 
sion of an analog voltage to a 15-bit digital 
number in less than five microseconds. It is a 
monotonic unit. 

The Model 1555S can be used by itself or 



with other analog modules to form a complete 
system. The converter price is $1500 from 
Tustin Electronics, 1431 E. St. Andrews PI., 
Santa Ana, C A 92705. 
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Software Programming Tools 



PROgrammer by Rational Software, 963 E. 
California Blvd., Pasadena, CA 91106, pro- 
vides professional-quality programming tools 
to users of Level II BASIC. 

After a short machine language routine is 
read, five functions are continuously available. 
A single keystroke directs keyboard input, 
which interprets and executes the command 
line. After execution, control is automatically 
returned to Level II BASIC. 

The program also includes a keyboard de- 
bounce routine. PROgrammer costs $25. 
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Property Management System 



A-T Enterprises has a new income property 
management software package for TRS-80 
Model II. The Property Management System 
(PMS) is designed to meet the Institute of Real 
Estate Management recommended computer 
system capabilities. 

It is suitable for all types of income proper- 
ties including apartments, mobile home parks, 
office buildings, warehouses, etc. The system is 
a full general ledger system that keeps track of 
all income and expenses providing formatted 
financial statements, management reports and 
exception reports upon request. 

The PMS software operates on the Model II 
with 48K of RAM, two eight inch disk drives 
and a printer. It is written in CBASIC, runs 
under CP/M and is also compatible with most 
Z-80 and 8080 systems. 

PMS, including one year maintenance, costs 
$650. A demonstration disk is available for $35 
from AT Enterprises, 221 North Lois, La 
Habra.CA 90631. 
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If you 

just bought 

another 

printer, 

boy are 

you gonna 

be sorry 




Epson. 



The Epson MX-80. It's not just another worked- 
over rehash of last year's model. It's our top-of- 
the-line 80-column printer. It's new. From the 
ground up. And it's the most revolutionary 
printer to hit the market since Epson invented 
small printers for the 1964 Olympics in Tokyo. 
Don't take our word for it, though. Compare. 
There simply isn't a better value in an 80-column 
printer. Period. 

But here's the fact that's going to stand the 
printer world on its ear. The MX-80 sports the 
world's first disposable print head. After it's 
printed about 50 million characters, you can 
throw it away. Because a new one costs less than 
$30, and the only tool you need to change it is at- 
tached to the end of your arm. 

Now that's revolutionary, 
but that's only the beginning. 
The MX-80 also prints bidirec- 
tionally at 80 CPS with a logi- 
cal seeking function to mini- 
mize print head travel time 



The world's first disposable print 
head. It has a life expectancy of over 50 
million characters, yet it's so simple, 
you can change it with one hand. And it 
costs less than - repeat less than -$30. 




and maximize throughput. It prints 96 ASCII, 
64 graphic and eight international characters in 
a tack-sharp 9x9 matrix. And it provides a user- 
defined choice of 40, 80, 66 or 132 columns and 
multiple type fonts. 

We spent three long years developing the 
MX-80 as the first of a revolutionary series of 
Epson MX Printers. We employed the most ad- 
vanced automatic assembly and machining 
techniques in existence to produce a printer that 
is incredibly versatile, remarkably reliable and 
extraordinarily inexpensive. It's a printer that 
could only come from the world's largest man- 
ufacturer of print mechanisms: Epson. 

If it sounds like we're proud of the MX-80, we 
are. Not only does it do things 
some of the world's most ex- 
pensive printers can't do, it'll 
do them for vou for less than 
$650. That's right. Under $650. 
And if that isn't revolution- 
ary, we don't know what is. 



k-404 



EPSON 

EPSON AMERICA, INC. 



^Reader Service - see page 226 



23844 Hawthorne Boulevard, Torrance, California 90505, Telephone (213)378-2220 
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10 Print "The beginning 

of a series" 



20 Pf> int 

"Into the 80V 

30 Print 

"by I R Sinclair' 
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/. R. Sinclair 

89 Alexandra Road 

Sible Hedingham 

Halstead, Essex C09 3NP 

England 



Many articles are written for those of you 
who have owned a TRS-80 for some time 
and know what programming is all about. So, 
this series is dedicated to the thousands of read- 
ers who are just about to buy a TRS-80~or 
have just bought one— and want to know what 
they've gotten into. 

Throughout the series, we'll be talking about 
the Model 1 Level II TRS-80. Level is Tandy's 
word to indicate the complexity of program- 
ming language its computer is able to under- 
stand. We're dealing with the Level II only for 
two good reasons. First of all. Level II is much 
more useful. And, secondly, the Level I com- 
puter is already accompanied by an excellent 
manual for the beginner. 

One measure of a computer's power is its 
memory. Memory dictates the amount of infor- 
mation (data) a computer can store and is mea- 
sured in units called kilobytes, shortened to K. 
The 4K computer can store four kilobytes of 
data. Nothing in this series will cause you to run 
out of memory space on a 4K TRS-80. 

Before you proceed, be assured of one point. 
The computer does exactly as you instruct it, 
nothing less, nothing more. 

If you have not put in the instructions to print 
letters or numbers on the video screen, then 
these letters or numbers just don't get printed. 
One of the humiliating things about being a 
computer owner is knowing that whatever goes 
wrong is your fault. 



Practical Pointers 

Take a look at the sockets at the back of your 
80. They are European DIN-type sockets and 
match five-pin plugs. There are three of them, 
one each for power in (from the transformer 
unit), cassette in/out (I/O) and video out. 

Before you start using your 80, take the ad- 
vice of an old hand and label these plugs and 
sockets with differently colored tapes. I use red 
for the power plug, green for video and yellow 
for the cassette. If your 80 sits in the same place 
and you never unplug it, this isn't significant. 
The odds are, however, that some day you'll 
want to shift it, and you could easily end up with 
plugs in the wrong sockets, since they are iden- 
tical and easily confused in poor lighting condi- 
tions. 

Keeping your system cool is another useful 
tip. Try not to have a desk lamp shining on the 
keyboard, for instance. It doesn't help, either, 
if you've used the computer all day with bright 
sunlight heating up the keyboard casing and the 
electronics inside. High temperatures also 
damage cassette recordings. 

I've found that a normal room temperature 
of 70-75 degrees won't cause the TRS-80 any 
distress, even if you use it all day. It's another 
story if you have an expansion unit attached, 
but we won't go into that. Just make sure that 
that little black box which is the transformer 
unit is on the bench or on the floor, with room 
for air to circulate around it; don't put it inside 
a box or surround it with books. 

Power It Up 

You're ready to power up. Plug all the line 
plugs into the wall sockets and switch on. 
DON'T switch on the keyboard first — always 
have power on the cables before you turn on the 



"If you have not put in 

the instructions to print letters 

or numbers on the video screen, 

then these letters or numbers just 

don't get printed. One of the 

humiliating things about being a 

computer owner is knowing that 

whatever goes wrong is your fault" 



units, because the switch for the keyboard does 
more than just switch powei 

Start the countdown by switching on the 
monitor. (On the one I use, the brightness con- 
trol must be pulled to switch on.) Let the 
monitor warm up for a minute, then switch on 
the computer keyboard. The ON/OFF switch is 
at the back . next to where the power supply plug 
enters the casing. It's deliberately made a bit 
hard to find, because when you switch off a 
computer, all the program material you had 
stored in it is lost, gone forever, unless you 
recorded it en a cassette previously. 

As you press the ON/OFF switch, you'll see 
the video screen suddenly filled with a mixture 
of numbers, letters and odd shapes. That's 
"garbage," caused by the computer memory 
being activated. Each little cell of memory can 
store a bit of information; zero voltage repre- 
sented by a zero, or + 5V represented by a I . 

Upon power up, when all of these cells arc ac- 
tivated, some come on as Is, some as Os. About 
8192 of these memory cells send signals to the 
video screen, the cells which are set to I cause 
parts of the video screen to light up, and the 
cells which are left at keep the screen dark. 

The result is a display of light and dark pieces 
at random or almost at random. Circuits inside 
the computer force these light and dark places 
into patterns, the patterns which we call letters, 
numbers and graphics blocks, and this is the 
pattern we see just as we depress the ON/OFF 
switch. When you release the power switch, the 
garbage clears, because the switch operates a 
memory clear routine for the video screen and 
memory — that's why it isn't a good idea to 
switch the keyboard on before plugging in the 
line and powering up. 



The Mystery Message 

Shining on the video screen in all its glory is 
the message MEMORY SIZE ? It has floored 
many a beginner. Did no one back at Fort 
Worth tell the machine what its memory size is, 
you ask? Ignore it for the moment, press the 
ENTER key, and these more reassuring words 
appear: 



RADIO SHACK 
READY 

> 



EV0 II BASK 



Your computer is prepared for programming 
in the BASIC program language. 

What about the MEMORY SIZE? message? 
Well, as it happens, a lot of computer tasks can 
be performed faster and more efficiently by giv- 
ing instructions directly to the microprocessor 
chip inside the computer. This chip needs 
special instructions, called machine code or ob- 
ject code, and these instructions can't be loaded 
into the computer in the same way as an or- 
dinary BASIC program. 

Unless you're going to use machine code pro- 
grams right away, though, you can ignore the 
MEMORY SIZE? question. 

The one time you can't ignore it is when it ap- 
pears while you're running a program. When 
that happens, it's an unwelcome sign, called a 
re-boot, that something is very wrong with your 
program. The computer has started its power- 
on sequence again. There's no harm in it, but 
you will have lost your program unless you 
saved it on cassette earlier. 

The READY signal is an invitation, but 
unless you know what it's inviting you to do, 
you can't take advantage of it. At the READY 
signal, you can either load a program from a 




cassette or you can type urn yourself Since 
you'll learn more about the 80 from writing 
your own programs, howevei simple, we'll start 
there and leave the frustrations ol cassette 
loading for a later date 

READY is an invitation for a BASK pro 
gram. BASIC is an acronym fin Beginners All- 
purpose Symbolic Instruction C ode, and it's the 
easiest of programming languages to learn. 

Why should we have to learn BASIC? 

It's all bound up with the way computers 
work and are designed. The fastest and most el 
ficient programs are written in machine code, 
but learning and using machine code is a painful 
business, and writing machine code is a 
frustrating experience. 

For these reasons, computer designers have 
continually sought to make it possible to give in 
structions in simpler forms, using English 
words (or Spanish, French, Italian and others) 
and stringing them together in a way which is 
reasonably simple to understand. 

If you've looked at some of the programs 
printed in the back of the TRS-80 Manual or 
published in 80 Microcomputing, you might not 
quite believe this last statement, but compared 
to most other computer languages, BASIC is 
reasonably easy to understand. We can devise 
simpler languages, but the penalty for using a 
simpler language is either that it doesn't do as 
much as we would like, needs more memory or 
takes longer to run. Right now, your TRS-80 
comes with its BASIC language built in. 

Like any other language (and I've had to cope 
with Latin, French and Greek in my time), 
BASIC is best learned by using it. Unless you in- 
tend to use your computer simply to run pro- 
grams written by other people and obtainable 
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on cassette, you haven't much choice— learn 
BASIC! 

Unlike other computer languages, BASIC 
isn't standardized. A program written in 
BASIC for another computer may not run on 
the TRS-80, and vice versa, unless you make a 
few changes. 

It is possible to write BASIC programs that 
will run on any computer equipped with the 
BASIC language (the Adam Osborne programs 
are good examples of this), but you can get a lot 
more out of your 80 if you know the peculiar- 
ities of its dialect of BASIC. 

This dialect, incidentally, is one of the most 
advanced BASICs fitted to a small computer. 
We can't hope to show all the features of 
BASIC programming in this series, but we can 
try to fill the gap between elementary BASIC 
textbooks and Radio Shack's Level 1 1 Reference 
Manual that comes with your computer. 

Program Proverbs 

If you've never programmed a computer 
before, learning BASIC on your own can create 
as many ulcers as guarding a bank during a 
revolution. Computers are fussy about the way 
you use the language. It the manual says that a 
word must be followed by a comma, then it real- 
ly must be followed by a comma, or your pro- 
gram won't run. 

If, on the other hand, a word needs a semi- 
colon after it, you can't get by with just a com- 
ma or a colon. This punctuation is translated in- 
to instructions by the computer, and different 
marks denote different instructions. 

Translated? That's just what happens. There 
are about twelve thousand bytes of memory in- 
side your TRS-80 which you can't alter. The 
professionals call it ROM, or read-only mem- 
ory. It reads your BASIC program and converts 
each letter or word into machine code instruc- 
tions to the microprocessor. Because each in- 
struction is converted and then carried out, the 
instructions are much more long-winded than 
those in a machine code program. 

Bigger computers can do what's called com- 
piling, which means translating the entire pro- 



gram into machine code in one run, and then 
running the machine code. The TRS-80, like all 
small computers, only interprets — it converts 
each instruction in the BASIC program into 
code, runs it and then goes on to the next part. 
The difference is between dictating directly to a 
secretary, with all the urn's and er's of speech 
and delivering an edited tape to an audio typist. 

Let's start again with the READY signal star- 
ing us in the face. Your first response toward 
writing a program is to type a line number. The 
line number is a tag we can attach to an instruc- 
tion so that we and the computer know where to 
find that instruction. 

Take any number between I and 65529. Nor- 
mally, you start at 10 or 100. It doesn't matter 
what numbers you choose, since you don't use 
more memory by numbering lines 100, 200, 300 
than by numbering them 10, 20, 30. Important 
to remember is that the program should flow 
from the lowest numbered line to the highest. 

Since we have to start somewhere, type 10 
and a space. Your program now starts at the line 
numbered 10. Since it's a bit depressing to stare 
at a blank screen, we'll get the computer to 
PRINT my name. 

10 PRINT "IAN R SINCLAIR" 

Remember, the quote marks must be in place, 
because they indicate to the computer that the 
words between them are to be printed on the 
video screen and are not part of an instruction. 
Marks that divide one kind of word from 
another are called delimiters, and the quote 
marks are the easiest of these delimiters to work 
with. Make sure that anything you want printed 
to the video screen starts and ends with quote 
marks. 

Made a mistake? We're not all trained typ- 
ists, so the TRS-80 is very forgiving. Use the 
backspace, the arrow which points to the left, 
on the key next to the @. Each time you press 
this key, one letter of your instruction is wiped 
out, and you can type another one. Keep on un- 
til the line is perfectly typed. 



Now that you've typed the line, you must 
press ENTER to make certain that it's planted 
in the computer's memory. Even if you forget 
the line number, you still get a result— the 
words which were inside the quote marks will be 
printed, but you don't have a program because 
it won't repeat, and you must start again. If 
your line was entered correctly, it is now a very 
simple program. We can run the program by 
typing the word RUN and then hitting ENTER 
again. 

All right, so it's not impressive, but each time 
you type the word RUN and hit ENTER, you'll 
get my name printed on the screen. Makes me 
feel good at least. 

Try typing the instruction with no space be- 
tween the 10 and the PRINT, so that it reads 
I0PRINT "IAN R. SINCLAIR". Does it make 
any difference in the way the program runs? 
Did I say that computers were fussy? 

Now type LIST10 and hit ENTER. This 
prints your instruction line on the screen again. 
Notice anything about it? Right, the space has 
been put in again between the 10 and the 
PRINT. You can't cheat your TRS-80 this way! 

Now try some more deliberate errors. It 's just 
as well to know at this stage what effects they 
have, rather than be tangled up with an un- 
familiar error message later on. For a start, 
leave out the first set of quote marks. Then try 
typing PPRINT or PRIINT instead of PRINT. 
Doesn't run, does it? 

Instead, you get the words SN ERROR. SN is 
a shortened version of SYNTAX, a word that 
language teachers use to mean the way in which 
a language is constructed. If you say in English, 
"I am here since yesterday," your syntax in 
English is poor, but the same phrase in French is 
grammatically correct. 

Syntax is a matter of rules, and a SN error 
means you have broken a rule of BASIC, by 
leaving out a delimiter, or misspelling an in- 
struction word. Some newer computers, in- 
cidentally, reject a syntax error the moment it is 
entered, but the TRS-80, like its entire genera- 
tion of home computers, doesn't spot the error 
until you try to RUN. 



Rat's R*veng«! 
Featuring 3-D Graphics! 

Rat s Revenge allows you to run a maze irom 
the inside' Exceptional use of the TRS-80 s 
often maligned graphics capabilities produces 
3-dimensional pictures ot hallways, dead-ends 
openings to right and left, and more Rat's Re 
venge generates a new maze tor each game 
You must fina the cheese before you starve As 
starvation approaches, hallucinations appear 
and mysterious poems are heard At the end of 
each game the maze is displayed and your 
wanderings traced out Additibnai features in- 
clude help hint quit, and acceleration com- 
mands, two levels of difficulty, and two sizes of 
maze Either thefourarrowbuttonsora numeric 
keypad can be used fO' movement 
TRS-80 Level li 16K cassette $1295 

Mad Systams Software unconditionally 
guaran'ees satisfaction Oders are mailed 
withm two days of order receipt Write for 
our complete catalog of software 



Med Systems Software 

PO Box 26/4 Cha pel hill NC 27514 
(919)933-1990 ^128 



VISA 
MX. 




These 


popular, professionally 


dere loped 


•ppll 


cations are low-priced. 


Guaranteed 


performance! Detailed booklet 


Included. 


• 


BUDGET S. INVESTMENT 


117.95 




BUDGET t, CHECKING 


• li. .95 


• 


HOKE INFu RETRIEVAL 


•11.95 




MATH (age* 5 and up) 


• 7.95 




STOCK PORTFOLIO 


•18.95 




AUTL'MCBILE 


•12.95 




MASTERMIND gene 


•10.95 




MONTE CARLO gaae 


• 7.95 




and others from 


• «U95 



Send order, or 11.00 for descriptive 
catalogue (free with order) to: ^ 1 1 6 

NEWiV SOFTWARE DEVELOPMENT CO 
2M OAWLISH AVE TORONTO CANADA M4N 1 J6 



779 UPPER CASC/tOWOr COS* 

"Conversion Kit r 

Expand the capabilities of your 779 line printer to 
include word processing" Available to a« Centronics 
779 TRS 80 Printer i owners is the option of lower 
case and changing siasn Zero to standard No etch 
cuts or soldering needed installs in minutes with a 
screwdriver no program modification or additional 
interface is reauired Pries $125.00 

Motor control "COWVIRSION kit ii- 

PO« All OKTItONKi 779 TW SO RwJNTS* I UM PwJNTBW! 

Our Conversion Kit n Motor Controller gives your 779 
the ability tc turn the motor on and off automatically 
Removes the annoying noise of constant run 
increasing me life soan of your 779 TRS 80 line printer 
motor 1 no soiaenng software or hardware changes 
needed installs easily Pries $95.00 

SAVE! Buy Service Technologies Conversion Kit i 
and Conversion Kit u together for the single price 
Of $199.00 

To order please send check or money order in the 
proper amount ro f Til- <l 

r hrvirt 'i rnm It tin * Jne. 

52 Nightingale Rd 
Nashua NH 05062 ••'297 
(605I 885-5569 
visa and Master Charge accepted (please include 
signature expiration date and phone number 

Service Technologies will pay all snipping and 
handling 
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64K RAM 

FOR YOUR MODEL 1 TRS-80 



•Release your software chains with the NEW 
FREEDOM OPTION, a pluggable board that 
restructures thi TRS-80*. on command, to perform 
like a large Zfr) system. All the TRS-80' features 
are retained. A I TRS-80* software will run without 
interference Tie option has a FREEDOM BOARD 
& TBVOSon ■ 5 .."disk. Tt/OS allows your TRS-80* 
to execute sof'ware originally written for CDOS . 
TSAX)S>& CR/M.opereting systems T«/OS opens 
the door to higt er level languages such as COBOL. 
FORTRAN 8 UCSD PASCAL 

*To further enhance your TRS80* processing power 
a MEMORY EXPANSION OPTION is available to 
replace (on command) the ROM and provide a full 
64K RAM This jption ,s switched into operation by 
the FREEDOM BOARD providing 54K of user RAM 
with Tfuos loaled & 61K with BIOS only Both op 
tions assume a 48K disk system & both tit inlo the 
keyboard case 6 month board warranty 

FREEDOM OPTION $245 

MEMORY EXPANSION OPTION $295 
TRANSLATOR $ 22 

•TRANSLATOR s a DOS compiler that provides a 
universal character translation for the printer II 
solves the aire' character problem 

Send Check or Money Order to: 

(MASS RESIDE!* TS PLEASE INCLUDE 5°» TAX] 

F.E.C. ltd. „mi 

P.O. Box 2368, Woburn, Mass. 01888 
(617)944-5329 



STAT-BALL 
Baseball Simulation 




% STAt-BALL % io not an arcade type game bul a 
comprehensive J pan slalislical baseball simulation 
package trial uses real Me pitcher and batter statistics 10 
simulate game play 

During tne game 12 performance categories are 
computed and displayed lor batters 10 lor pitchers These 
slats rellecl the player s game performance and will folic"* 
closely a player s actual ability Slats may be viewed on a 
per game basis or kept tor many games 

Agonize when your best power hitter drops a routine 
My leel the inmi oi victory wrien he hit's a deep fry over the 
wall AH aclion is descrfted as it happens lo add tension and 
encilement to this engrossing game 

YOU Hb THE MANAGER 1 Select your own lineup 
make all lypes 01 substitutions call your own strategy and 
Nve with il'i Play modern old hmer. or mixed teams 

This package consists of 3 programs: 

III UAML 

U) HbCOHUS (Sorts up to • bO players 

into 14 categories based 

on relative performance 
[3) WUHKUP/fcDlT (Establish edit or mix 
playersl 

features include 

• Soinare or head lo head competetion 

• balte's ability ratings include bunting 

running and errors 

• Richer firing lactor 

• ') offensive and defensive strategy 

Options 

• bull 2b man rosters 

• Printer option (32 chr/ln or morel 

• lop quality tape 

• Detailed inslruclions 

• bHbb IV Pirates and Orioles loi series 

replay 

bor prompl 1st class delivery send 
S2b 00 check or money order to 

J L S SOFTWARE ^ 315 
PO Box 10385 
Chicago Illinois 60610 

(We pay shipping and handling) 

C Trademark TANDY CORP I 



SOFTWARE CPU ,m 

IF you're learning an instruction set. or anaiyz 
mg an alien machine code program, or creating 
your own super software structures, then you are 
keeping instructional effects of CPU architecture 
and RAM all together in your head in a complex 
running menial map Whew! Instrument your 
imagination' TBUG linking SOFTWARE CPU'** 1 
series of microprocessor simulations on the Level 
II 16K TRS-«0'm display a complete parallel 
before/after set of Processor Programming 
Models with scrolling disassembler, CPU 
Registers, flags and stack, plus an intelligent 
RAM Window reacting selectively to RAM 
interactive instructions It's your entire 
imaginative overhead, clicking away in Single-step 
or variable speed TRACE modes under your 
dynamic control Plus a slug of debugging 
features you'd never imagine would be available in 
such low cost development software Reify 
program flow with a SOFTWARE CPU tm 
SUD«r STEP: Animated Z80 Programming 
Models, Disassembler, Single steprTRACE modes 
with Intelligent RAM Window, S user-selectable 
Windows, single and cumulative Instruction times 
in microseconds, Reference Space, much more 
Sig booklet, a 280 Software CPU. t6K Level II 
TRS-80. TBUG required No BL-O $19 95 

EMU 02: Animated 6502 Programming Models. 
Disassembles to 6502 mnemonics. Single 
step/TRACE modes. 6502 counterparts to *B. #J. 
ffl. «F and fG commands, teat Cross interpreter, 
keyboard acan port with p. instructions DB. EB 
control, paging in virtual address space, more Big 
booklet & SYNERTEK card, it's a 6502 Software 
CPU. 
16K Level II TRS-80 TBUG required No BL 1 $24 95 

ACCEL: from Southern Software of England, is 
a COMPILER for Level II TRS-80 INTEGER BASIC 
Properly structured (no dynamic redefinitions, 
correctly nested loops etc.) error -tree BASIC 
programs are compiled by ACCEL to fast Z80 
machine code for potentially spectacular 
speedups 
ACCEL Compiler for 16K Level II TRS-80 $44.95 

AUbNGUWH SObTWARf 
Box 1 W?' Mam Post Office 
Sar. Francisco CA 94101 
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Omikron's Mapper + NEWDOS/80 
8 Drives for the TRS-80 



NCVDOS/80 is Apparat's latest upgrade to 
NEW DOS. Features include variable length 
records, chaining, and drivers specifically con- 
figured for Omikron's MAPPER II. $150. 

MAPPER II adapts the TRS-80 to run both 5" 
and 8" drives. With NEWDOS/80, storage is 
incr-ased to 300 K per 8" drive. $99 plus $10 
per able connector. 

MAPPER I adapts the TKS-80 to run the vast 
library of CP/M software as well as the TRS-80 
software. AH Lifeboat Software may be ordered 
for tie MAPPER I. All MAPPER I CP M soft 
ware is compatible with the CP/M for the Model 
II. Wilh MAPPER II and 8" drives, the Model 
I bo dines disk compatible with the Model II. 



Standard features include lower case support, 
serial and parallel printer drivers, and an ad 
dressable cursor. MAPPER 1 is supplied with 
complete utilities including a memory test, a 
disk test, a copy program, and a proprietary 
program for converting TRS- DOS files to CP/M 
files. $199. 

WORD PROCESSING- MAPPER I supports 
professional word processors like the Magic 
Wand and Word Star (see reviews in June 80 
Kilobaud l. Omikron's implementation includes 
a blinking cursor, auto repeat, shift lock, de- 
bouncing, and an input buffer that eliminates 
missed characters. Magic Wand super discount 
price $299. 



FIELD PROVEN DESIGNS- After one year of 
MAPPER production, Omikron has established 
an impeccable reputation for reliability, integrity, 
and user support. Omikron's customers include 
the US Government, major corporations, uni- 
versities, medical doctors, and professionals in 
all fields. 

SYSTEMS — Omikron sells complete systems 
featuring Model II compatible Shugart disk 
drives. Call for prices and delivery. 

FOREIGN ORDERS must include full payment in 
US funds plus $25 for air shipping and handling. 



See reviews in July 80 and August 80 BYTE By Jerry Poumelle. 
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How much can you PRINT in one instruc- 
tion? Try it! Type 20 PRINT " and then 

type as many words as you like. You'll find that 
the words don't run off the edge of the video 
screen, but form new lines of text on the moni- 
tor. The video monitor accepts only 64 charac- 
ters/line, while the computer allows up to 250 
characters/line. The computer no longer re- 
sponds to keyboard input when the 250 charac- 
ter limit is reached. 

PRINT Plus Spaces 

Now try the one-liner below: 



10 PRINT- 



SPACED ALONG" 



Because we've labeled this line as line 10, it 
has wiped out the old line 10. Notice that the 



space between the first set of quote marks and 
the first letter of the word affects the way it 
prints. This is one way of adding spaces. 

Another way is by indicating tabs. Tab means 
the same as it does on a typewriter, tabulation. 
The width of the video screen is divided into 64 
starting points, numbered from to 63. Using 
TAB( ) selects one of these as a starting point 
for what you print. 

10 PRINT TAB(25)"IN THE CENTER" 

Notice the syntax — parentheses after TAB 
enclose the number, between and 63. The 
quote marks surround the words to be printed. 

If you had put the first set of quote marks be- 
tween PRINT and TAB, you would have print- 
ed, at the left-hand side of the screen, the phrase 



'A trademark of tha Tandy Corporation 




A year ago, when nobody had ever 
heard of me, I said these disks could turn 
a TRS-80* into a serious computer. 

Now they tell me I'm "the standard 
of the industry." 



I'm Irwin Taranto, and times have changed. 

In the first twelve months, almost a thou- 
sand businesses put me to the test. 

You can buy my TRS-80 systems all over the 
country —dozens of companies sell them. Some 
are my dealers, some aren't. And this creates 
a new set of problems. 

You sea, learning to use a computer — any 
computer — is like learning anything else. It 
takes some getting used to. If you sit down 
with a computer program and the manual and 
try to figure it out all by yourself, you'll prob- 
ably just give up and feel you've been had. 

You have to hang in there for a month, 
make a few phone calls, and have somebody 
who really understands the system help you 
work it out. 

That's why I still answer the phone. And 
why, I guess, people say all those nice things. 

The Model I systems 

So far, I have six systems for the Model I, at 
$99.95 each, plus $20 each for the books where 
required. For the Cash Journal option on the 
General Ledger, add anothei $50. 

Accounts Payable 

Accounts Receivable 

Invoicing 

General Ledger (Cash Journal optional) 

Payroll 

Inventory Control 



And the Model II programs 

Some brand new, highly-sophisticated 
programs for the TRS-80 Model II. at $249.95 
each, plus $20 for the book where required. 

General Ledger/Cash Journal 

Accounts Payable/Purchase Order 

Accounts Receivable/Invoicing 

Payroll/Job Costing 

For the Model I programs, you can tell us 
what you need in a letter or by phone. You get 
the disk and all the instructions you need. Any 
problems, just call me. 

For the Model II programs, I ask you to fill 
out a questionnaire before I send you any 
materials. The systems have so much flexibil- 
ity we tailor them to your needs. 

That way, I make sure you get a system that 
works. If you have any doubts about that, I'll 
give you the names of some people in your area 
who've already been through the process. 

Let them tell you whether I really deserve 
that fancy new reputation. 



^45 



Taranto 



«. ASSOCIATES, INC 
121 Paul Drive, San Rafael CA 94903 • (41b) 472 2670 
Add $4 00 pei order (oi handling 6% sales tax in 
California only Master Charge, Visa, COD. 



TAB(25) IN THE CENTER, which isn't exactly 
what we wanted. 

Why TAB(25)? Well, I counted the letters 
and spaces in IN THE CENTER and made it 13 
characters. I rounded that to an even number, 
14, then subtracted from 64, leaving 50. Half of 
50 is 25, and that's the tab number. Why? Well, 
the number of letters and spaces gives the num- 
ber of positions on the line which are used to 
print. If we want these words to be centered, 
then there has to be an equal number of spaces 
on each side, and we find this by dividing the 
number of unused places, 50 in this example, by 
two. 

Try printing your own name centered on the 
screen. 

Notice, by the way, that we're still entering 
each one-line program as line 10, deleting the 
previous program in line 10. Later on, we'll 
look at other ways of removing old programs, 
getting rid of unwanted lines or running only 
the lines we want. 

TAB is one of the BASIC commands or func- 
tions that not all small computers have, but it's 
only the start of the options which are available 
to the TRS-80 owner. Type the next line very 
carefully. 

10 PRINT •SPACE", "THE", "WORDS", "OUT" 

See the commas? Each comma lies outside 
the quote marks that set off the words, because 
we don't want the commas printed. If we type: 

10 PRINT "SPACE, THE, WORDS, OUT" 

hit ENTER, type RUN and hit ENTER again, 
the printout on the video screen would be: 

SPACE. THE, WORDS, OUT 

As it is written, the effect is quite different, as 
you will see. The commas have commanded the 
computer to space the four words across the 
width of the screen. Each comma instructs the 
computer to start printing the next word at the 
next print zone. There are four print zones, each 
of which can take up to sixteen characters (let- 
ters, numbers or spaces). If you PRINT more 
than sixteen characters in a zone, the comma 
causes a skip to the next zone. Try the following 
program. 



10 PRINT"SEE THE EFFECT"; 
20 PRINP'OF A SEMICOLON"; 
30 PRINT-ON THE PRINTOUT" 



Example 1 



10 PRINT "SPACE"TAB(POS<0) + 5)"THE"TAB 
(POS(0) + S)"WORDS";TAB(POS(0) * 3) 
"EVENLY" 



Example 2 



10CLS 

20 PRINT TAB<28)"HEADINC" 

30 PRINT 

40 PRINT TAB(5)"TH1S IS A 

NEATER WAY OF PRINTING" 



Example 3 



10 PRINT "THt- ZONES WILL TAKE". "SIXTEEN 
CHARACTERS EACH" 

The comma is used as a print delimiter. We 
can also use the semicolon as a delimiter, but 
with a very different action. Try entering the 
program in Example 1 . With more than one line 
of program, you must remember to push 
ENTER at the end of each typed program line. 
When you run the program (type RUN and hit 
ENTER), what happens? 

The semicolon is another signal to the com- 
puter when it's used in this way. Typed after a 
printed quantity, the semicolon means: use the 
same line and keep printing, so that the words 
we typed in three separate instruction lines end 
up on one single line of type. This would hap- 
pen, incidentally, even if we had several other 
lines of instructions between these PRINT in- 
structions, so watch carefully for these semi- 
colons if you are entering a program which has 
been written in BASIC by someone else. All 
small computers use this form of instruction. 

What happens if you leave out the semi- 
colons? Try it! Each PRINT command causes 
the video to start on a new line. This is one way 
you can space out your printing vertically. 

Meanwhile, look at Example 2 for a very 
powerful command which few small computers 
have in their BASIC. It's the POS function. 
POS means position, and it means the position 
of the cursor mark, that short line which shows 
where the next letter will appear on the screen 
when you type a program line. 

As a result of the POS instruction, the com- 
puter makes a note of how far along a line you 
have printed. Add five to that place number, as 
we've done in Example 2 and the result is five 
spaces between each word. 

When you type line 10, by the way, don't hit 
ENTER until the end of the instruction after the 
last set of quote marks. If you hit ENTER 
before then, you're indicating that you want to 
start another numbered instruction line. The 
other point is that you should type DELETE 
20-30, and hit ENTER before running the pro- 
gram. If you don't, you'll print the words in 
lines 20 and 30 of the previous program, unless, 
of course, you have switched off between work- 
ing Examples I and 2. 

By this time, your video screen must be look- 



I0CLS 

20 PRINT047J.-GREET1NGS" 
30 PRINT07O4,"THIS USES THE PRINT® 
COMMAND TO SPACE LINES" 



Example 4 



iocls 

20 PRINT USING ••SSM.ifiJI.tfl 



Example 5 



10 CIS 

20 PRINT USING" It ••"-.2.7J6 



Example 6 



ing a bit cluttered, so let's look at another useful 
function that helps clear things up. Example 3 
shows a four-line program (we're getting more 
adventurous) which makes your video printouts 
look better. The new instruction, CLS, means, 
simply, clear the screen. 

When the program is run, the screen clears, 
removing the program lines. After the CLS 
instruction has been used, the next PRIN 1 in- 
struction will place the words in quote marks on 
the top line. 

In line 30. I've used the word PRINT by 
itself. What does that do? Try leaving it out by 
typing DELETE 30 and hitting ENTER. Then 
type RUN and hit ENTER again. See the differ- 
ence? The PRINT command in line 30 causes a 
one-line space between HEADING and the 
words in line 40. Want a two-line space? Then 
type 30 PRINT, hit ENTER, type 40 PRINT 
and hit ENTER again. Now run this one and 
watch the larger gap appear between the head- 
ing and the line of words. 

Time to take a look at the program. Type 
LIST and hit ENTER. Your program appears 
under the last lot of printing, with the lines in 
correct order. That's just one example of why 
the BASIC language uses these line numbers. 
We can place any line number against a line, 
and the computer sorts them into order. If we 
use the same number for two different lines, 
then the last one typed and entered wins, the 
older one is deleted. We can also delete lines by 
typing DELETE, then the line number and hit- 
ting ENTER. 

Can we delete more than one line at a time? 
Sure we can. Just type DELETE 10-40, and 
every line of the program in Example 3 will be 
rubbed out. The other way we can remove a 
whole program, but this time without needing 
to know how many lines it has or what their 
numbers are, is to type NEW and then hit 
ENTER. 

More Spaces 

Suppose we want to print a word at the center 
of the screen. There are sixteen lines of print on 
a full screen, so we could print on line eight. We 
could type seven lines with PRINT, but no 
words, to make the print position move down 
one line at a time. We could then use the com- 
mands PRINT TAB( ) to space the word to 
the center of line eight. 

There's a much easier way of doing this sort 
of thing with a TRS-80, by using the PRINT© 
command. It must be entered correctly, with no 
space between the T of PRINT and the @ sign, 
and a comma immediately after the @. If you 
put an unwanted space in, you'll get the SN er- 
ror message when you try to run it. A much less 
obvious error is typing @ with the SHIFT key 
depressed. If you hit SHIFT and @ at the same 
time, the @ appears as usual on the video 
screen, but the code number which is fed into 
the computer is NOT the correct one. You'll get 
the SN error report when you try to run it, but 
the line will look good on the screen. 

With these warnings in mind, try the program 
in Example 4. Remove the previous programs 
by typing NEW and entering. Now type in the 
three lines of the new program and run it. In- 
teresting? The word GREETINGS appears 
around the center of the screen, and the next 



line of print is four lines under that. 

Take a look at page El at (he back of your 
Level II manual. Turn the page so that the num- 
bers are all correct way up, and you can read off 
the PRINT® numbers and the TAB numbers. 
The numbers in heavy type at the top are the 
TAB numbers for each line, and also the 
PRINT® numbers for the first line, the top 
line. For the second line of PRINT® the num- 
bers start at 64 (see the columns down the left 
and right-hand sides), for the third line, 128. 
and so on. 

To find a PRINT® starting number for any 
position on the screen, pick your spot, locate 
the TAB number at the top of the page and the 
PRINT® number for the start (at the left or 
right-hand side), then add the two. For exam- 
ple, if you want to start around the center, try 
TAB(3I) on the line starting at 448. That gives 
us a PRINT® on the number 448 + 31 =479, so 
we type PRINT@479, then add the quote 
marks and the message. Remember the syntax: 
PRINT, no space, @, no space, comma, then 
quote marks for the message, and keep your 
fingers off that shift key when you are typing 
the @. 

Using More 

The TRS-80's big, big BASIC allows us yet 
another way of printing which isn't available to 
people with other types of machines. The new 
instruction this time is PRINT USING, and it 
instructs the computer to arrange the printing to 
suit some definite pattern which must be speci- 
fied in the PRINT USING command. PRINT 
USING is most useful when you have to print 
out a number in standard form, such as a price 
or a sum on a check. It's also useful when you 
want to round off a fraction. 

Since the number of times you are likely to 
want to use this command in your own pro- 
grams is limited, compared to the everyday ones 
such as TAB and PRINT®, we'll look at only a 
few of the PRINT USING commands. 

Example S shows PRINT USING applied to 
rounding off a fraction. Enter the program and 
run it to see how the number is printed. This is a 
smart way of making sure that your printout 
doesn't contain lots of figures after the decimal 
point. After all, you wouldn't like to think that 
you had just printed a check for SS6.2357. 

Another useful feature of the PRINT USING 
command is that it can insert a floating dollar 
sign. Now, if you thought that the dollar was 
sinking rather than floating these days, let me 
explain that phrase. You might want to print 
out something like amounts of SI. SO, 526.40, 
$147.30 and so on. What the floating dollar sign 
does is position itself ahead of the first figure of 
the number, so that you don't print 1 S27.50 and 
$02.40. Try it out with the program in Example 
6. 

The Level II manual has a large number of ex- 
amples of PRINT USING, so we'll leave this 
one, which is a more specialized command than 
most of the ones we shall be using in this series. 

BBug BBreak 

Depending on the age of your 80, you may 
already have met the dreaded kkeybbounce. 
You type PRINT, and it appears on the video 
screen as PPRINT or PRIINT or some other 
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Listing I 



weird combination of repeated letters. 

When you try to run a program with an un- 
wanted double letter in a command word, you'll 
get a SN error message, meaning that the inter- 
nal circuits of your computer simply don't 
recognize the word. Of course, if you have an 
unwanted double letter in a message which is en- 
closed in quote marks, then it will simply be 
printed out that way. 

Keybounce is a problem that plagues any 
mechanical switch, like keyboard switches. You 
press a key, and the electrical contacts close. 
But, because they're made from springy mate- 
rial, they bounce open again before finally clos- 
ing and staying closed. Each time the switch 
closes, it completes an electrical connection, 
and if that happens to be the electrical connec- 
tion which prints the letter P on the video 
screen, then you get two of them. 

Every manufacturer of computers gets 
around this by using a time delay each time a 
key is pressed. The computer takes no notice of 
the key until the time delay is over. Only a small 
time delay of about a thousandth of one second 
(one millisecond) is needed. 

Radio Shack seems to have given short 
measure to this problem on the older TRS-80s. 
On some models, keybounce can be fixed by 



pulling off the keycaps and cleaning the con- 
tacts. That's what Radio Shack says, anyway, 
but my own TRS-80 has fixed keycaps that 
don't come off easily, and it bounces very bad- 
ly. The keybounce is so bad, in fact, that if there 
were no cure for it, I would have scrapped the 
whole thing months ago. 

Yes, there is a cure, and it works. Radio 
Shack supplies a program on a machine code 
tape entitled KBFIX. Enter this one, and your 
keybounce troubles are over until the next time 
you switch on. Incidentally, more recent 
TRS-80s have no trace of keybounce. 

Sometimes keybounce is just a nuisance. 
Other times it can cause a complete hangup of 
your computer, and one of these other times is 
when you type LIST and get LLIST. LLIST is a 
command word which was unfortunately 
chosen for printing a list on the Radio Shack 
line printer. Run LLIST and the result is — noth- 
ing. No keys have any effect, nothing appears 
on the screen, and the computer appears to have 
died on you, with just that accusing word 
LLIST staring at you from the screen. 

What's happened is that you have command- 
ed the computer to print a list on the printer, 
and because there's no printer connected, it's 



waiting for you to connect one. Don't rush out 
with a fistful of dollars, because you can re- 
cover from this stall in two ways. 

One is to switch off completely, but that way 
you'll lose any program you had in the comput- 
er. The easier way is to push the RESET button 
at the back of the computer, at the opposite end 
from the ON/OFF switch. On my 80, this is 
under a small flap which also houses the con- 
nector for expanding memory. Pushing and re- 
leasing this switch removes the hangup, and the 
computer is ready to run again. Whatever your 
manual says, you don't lose your BASIC pro- 
gram when you use RESET unless the Radio 
Shack expansion interface is connected. 

The keybounce problem can also be avoided 
by using a short BASIC program, shown in 
Listing 1. It's a sight longer than the others 
we've used in this part, and you have to be sure 
that you've typed each character correctly. Run 
it, and it sorts out the keybounce and then 
deletes itself! 

At this stage, it's not easy to explain how it 
works, because it makes use of parts of memory 
we don't normally use, the reserved RAM. The 
purpose of these memory parts is kept a close 
secret, and it's only when someone with a bit of 
time to spare investigates them that we even get 
to know about them. 

Keybounce is just one example of what folks 
in the computing business call a bug — a flaw in 
a system. A bug may be in the operating system, 
or it may be in a program. Wherever it is, these 
articles will show you how to stamp out some of 
the most active bugs. ■ 
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SOFTSTUFF, established by Heath Company, offers you a selec- 
tion of software tools at affordable prices. All SOFTSTUFF programs 
have been checked and confirmed on the hardware indicated. Documen- 
tation, though not as extensive as standard Heath Company documentation, 
has been completely reviewed and judged acceptable. All SOFTSTUFF prod 
come on a 5V4-inch diskette and all initial offerings require HDOS. For valu 
performance... SOFTSTUFF is good stuff. 

Full Screen Editor: The SOFTSTUFF text editor uses H89 or H1 9 screen as a window into a file. 
Cursor motion keys position the cursor so changes can be typed anywhere on the screen. Function 
keys perform character and line insert and delete, string search, move and copy single and multiple 
lines, and scrolling of text in the window. For H89 and H8+H19. HDOS Model #SF-9000: $49.95 V 

Text Formatter: Performs fill and justification (straight right margins) of text previously prepared by your editor. 

Page numbering, headers and footers, indents, hanging indents, centering and underlining. INCLUSION feature 

allows automatic insertion of up to 26 user defined strings and merging of documents. HDOS/H19/H89. HDOS Model w 

#SF-9001: $54.95 

Microsoft Macro 80: 8060/Z80 MACRO Assembler. Intel and Zilog Mnemonics supported. Relocatable linkable output. Package 

includes LINK 80 and Cross Reference List utilities. Complete documentation and HDOS common deck MACRO included. For 

H8 and H89. HDOS Model #SF-8002: $69.95 

TELINK: A utility which provides file transfer between the H89 or H8/H19/H17 and Information Services (MicroNET). Features 

include user defined keys which provide for auto-login, mail check, etc. Full error checking and elapsed time clock on screen. 

Very easy to use. Use on other time sharing systems too. HDOS Model #SF-9003: $39.95 

SORT: An extremely fast assembly language routine that sorts records up to 255 characters in length with user defined sort 
fields. Could be called by MBASIC or stand-alone. Source code provided. HDOS Model #SF-8004: $29.95 

To order: 

1 . Send check or money order to Heath Company, Dept. 351-698 Benton Harbor, Ml 49022. Michigan residents add 4% sales tax. 
Write model numbers clearly. 

2. Call toll-free 800-253-0570 and use VISA or Master Card. In Michigan, Alaska, & Hawaii, call (616) 982-3411. 

3. Visit your Heathkit Electronic Center where SOFTSTUFF is on display. See your telephone white pages for the location 
nearest you. 
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SOFTSTUFF is a trademark of Heath Company. •" 383 
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SIMPLE AS BASIC 
BUT VERY FAST— BALCODE 



You can now program your Model I TRS-80 using Op codes based on IBM 370 BAL Why 
devote your time to BASIC or to Z-80 assembly language when the BALCODE editor/assem- 
bler is now available for only $79? We mail you a monthly Newsletter covering all the fine 
points of assembly language programming. This package comes with a Programming's 
Manual and a Demo program to walk you through all the BALCODE commands. 

Our EDITOR is tops Includes COPY. MOVE. FIND and CHANGE Commands with stop at CRT 

fill-up 

Our BALCODE MACRO Assembler assembles floating point numbers. 

Our System all resides in memory at the same time You edit, assemble and run without 
reloading. Origin is at 7000H and object code is 12,000 bytes 



BALCODE 80A $79. CHECK, MO, VISA OR MASTER CHARGE. 



Write for tree listings or send $10 for Programmer's Manual Applies towards pun base 

BALCODE SOFTWARE, INC. 
12 LEEDS LANE, N. BABYLON, NY. 11703 (516)-242-1665 EVES. -»' 
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60 Cycle 
Sine Wave 

U.P.S. 

(Uncnterruptibe Power Supply) 

• •••for those systems that need 
60 cycle sine wave keeps 
computer & disk systems 
on when the power goes 
out For less than S500 00 * 

• •••Rated 250 Watt 
continuous operation 

• •••will provide 400 Watts 

for 5 minutes 
Model II TRS-80 
with 4 disk drives) 

* Standard MAYDAYS available 
starting at $195.00 for 150 Watt 



from. 






,--151 

Box 210 New Durham. NH 03855 
(603) 859 7110 TWX 510 297 4444 



»- Reader Service — see page 226 
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GENERAL 



Blow by blow accounts. 



A Bout with the I.R.S 



Fred Blechman 
7217 Bernadine A ve. 
Canoga Park, CA 91307 



In one corner, weighing 29 pounds, in black 
with gray trim, we have the $750 Radio 
Shack TRS-80 Level II 16K Microcomputer. In 
the other corner, weighing tons, in red, white 
and blue, we have the multi-million dollar IRS 
worldwide computer network. Come out fight- 
ing, and may the better machine win! 

Round 1: Getting it together 

It wasn't a referee who introduced me to the 
IRS. It was a plain brown envelope advising me 
of an office audit appointment and detailing 
the items I should bring. Needless to say, that 
bit of mail destroyed my day — and most of the 
next few weeks! 

I have had a small business with no employ- 
ees for 15 years and always wondered when the 
day of reckoning would come. My tax preparer 
told me many times that my records were com- 
plete and accurate and that I would coast 
through an audit. 

Still, there were always gnawing doubts 
about whether I could provide satisfactory 
verification for various expenses. Like 
everyone, I had heard IRS audit horror stories, 
and my impression was that no one comes 
through unscathed. Furthermore, I assumed 
the auditor would be nasty, intimidating and 
threatening. 

The audit was for 1977. In the three-year in- 
terim, we had moved and still had not un- 
packed cardboard boxes with business records 
going back 15 years! To further complicate the 
picture, my wife, Ev, had her own retail busi- 
ness before we married in 1977, so we had filed 
a joint return, with separate Schedule C's for 
each business. 

The auditor's letter specified that we furnish, 



to my surprise, not only our business records 
and checking account statements, but all per- 
sonal checking account statements and checks 
and all savings account passbooks! 

Yes, all\ That meant every statement and 
savings passbook from December 1976 to Jan- 
uary 1978! 

For many people this might only amount to a 
few accounts, but for Ev and me this meant 
eight checking accounts and four savings ac- 
counts that showed activity in that time period. 
It took considerable time and effort to get 
everything together, especially since Ev had 
closed her business at a considerable loss (that's 
what triggered the audit!) and delegated, in 
disgust, a lot of records to the round file! 

Finally it looked like we were ready to face 
the almost infinite resources behind the IRS 
paper tiger. 

Round 2: The $45,000 Punch 

The auditor, Edward, was very congenial, as 
he led us to his cubical on the third floor of the 
imposing local Federal Building. Edward spent 
the first half-hour or so interviewing us about 
our individual businesses and establishing 
background information. 

"Any inheritances received in 1977? Gifts? 
How much cash do you keep around the 
house? Why so many checking and savings ac- 
counts? Any loans?" 

I suppose if I were cheating, or more 
paranoid than I had already become, I would 
have objected to some of the questions as being 
too personal (practically the only thing he 
didn't cover was our sex life!) 

Instead, I was fascinated by his thorough- 
ness. I did not realize he was slowly but surely 
peeling away my defenses, preparing for a blow 
to the solar plexus! 

During this time, he was furiously making 
notes of our replies to his questions. Reading 
upside down, I saw "T/P claims" in various 
places. "T/P" means taxpayer. 

Asking for our bank statements, he proceed- 



ed to list every monthly deposit total on a sheet 
of lined paper! He did this with every bank 
statement for every month in 1977! Then he did 
the same thing with the savings passbooks, 
listing every single deposit by date! 

He used eight sheets of paper and took 
almost three hours— into his lunch hour— and 
came up with a grand total of $141,531.86 
deposited in all our accounts in 1977. 

Then he checked our 1977 Federal Income 
Tax Return and added the gross income: 
$96,091. 

"Mr. Blechman," Edward said, "We have a 
difference of $45,440.86 between your deposits 
and your reported income. Some of this dif- 
ference may be transfers between accounts or 
non-reportable income we may not have cov- 
ered in our initial discussion — loans, social 
security, gifts, unemployment insurance and so 
forth. Any of this $45,000 plus you can't iden- 
tify and verify will have to be considered non- 
reported taxable income. Our next appoint- 
ment is " 

The fact that it rained that day, that my rain- 
coat had a big hole in it, and that I lost my 
rainhat, only added to the feeling that I was 
down for the count! 

Round 3: The Pussycat's Claws 

Wondering what I'd look like in stripes and 
how the food was in Leavenworth, I carefully 
assessed my situation. I knew we moved money 
around to pay bills, kept balances equalized 
and made major purchases through the check- 
ing accounts. I had a policy of keeping small 
balances in the checking accounts, since they 
earn no interest . Sometimes cash-flow needs re- 
quired transfers from my savings accounts. But 
$45,000 worth of transfers? That much? It 
didn't seem possible. 

I looked for errors in the auditor's figures 
and couldn't find any. Still over $45,000 unac- 
counted for. I felt helpless and overwhelmed, 
so I picked up my February copy of 80 Micro- 
computing to escape and let my subconscious 
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BUSINESS CONTROL PROGRAMS 



PAYROLL ~] GENERAL LEDGER ACCOUNTS PAYABLE r ACCOUNTS RECEIVABLE 



These business systems are designed with the business man 
ager m mind Major changes m your current bookkeeping meth- 
ods are not necessary to make these programs work (or you. 
Data may be entered into any one of the systems either directly 
or through subprograms, so that duplicate data entry is not re- 
quired Tnis avoids mistakes 

Accurate reports of financial activity may be obtained on a 
scheduled basis or at irregular intervals 

The systems require CP M and CBASIC Customization, mstal- 
adon and training are available at additional cost WRITE FOR 
SAMPLE REPORT AND TRIAL DISK — S25 00 (credited toward 
purchase price) 



A Totally Linked Single Entry 
Accounting System 
Completely Screen Oriented Systems 
Provide User Prompting for Each Entry 
User Assignable Account Numbers 
Flexible. Reliable and Efficient 
Installation and Training Available 



AS LOW AS 



CP M 2.2 Control Program for Microcomputers 
Enabling You to Run Software Published for 
CP M 1.4 on the TRS-80 Model II <fcrin. M c ■ 






CP M is considered the industry standard disk operating system be- 
cause it gives you the hardware-mdeoendent interface you w i 
make your computer *or1< tor you FM0 CORPORATION NOW OFFERS 
THE CP M 2 2 FOR THE TRS-80 MODEL II The latest n tie evont or 
ol a reH aoie and efficient software system. CP M 2.2 features ar en- 
hanced upward compatible tile system and powerful new random ac- 
cess capabilities From mimd>sks and floppy disks a I the way to Higr- 
capacity hard disks (when available), the flexibility of CP M 2 2 make* 
it a truly universal operating system The package includes an 6" sys- 
tem disk editor assembler debugger and communication sottw. 
the TRS-80 Model it Special utilities not available with other CP M sys- 
tems are also included m FMG's CP M 2 2 

iCP Mis a rtgottred trademark of I 

Dqita Research. Corp Tfl.S-60 is a < 

re$ siced trademark of Rada) Snack) 



$WS? TRS-80 PROJECT 




THE PASCAL/MTse~$250.00 

PASCAL MT • a native code PASCAL compiler designed tor 8080 8085 
and Z80 microcomputer systems provides an efficient development 
cycle as well as efficient execution of object programs. 



CORPORATION 



P.O. BOI 16020 

Ft. Worth. Texas 76133 
Ptoone (817) 294-2510 



.-!.' 



•441 



Send for FREE CATALOG 




Compel** eiecuie* under the CP M 
operating system m as little as 32 
K bytes o» RAM 
irteracave Symbo < Debugger «•*** 

and trace 

procedure cans interactively at run 

wne 

Comp*n el the '•*• C eOO bnee per 

Ttnuta on a 2 MMZ 8080 

Programs Eiecuie up 10 10 TIMES 



Pascals 

The code generated « 8080 object 

cooe *n*h « ROMebte eith a mm.- 
mum fun feme c^emeed or i.sk bytes 
1 interrupt procedures e*o<» the pro 



PASCAL MT 



ya mm er to wnte "terrupt otvars to* 
Fo and other reel erne leans m Pas- 
cal MT 

■ B* mantputeaons of vanaotes ti> be 
performed wHti the buill-m proce- 
dures S45TWT. ClRBIT T8TBIT, 
SHL SMR SWAP. LO. HI 

1 Aassnb'y language sutroutnea may 
wceiedlrom Pesos' MT 

1 Bus^ees amnmeac venvort of Pascal 
MT « atoo avaiacis 



TYPES RECORD ARRAY. REAL 

INTEGER CHAR, and BOOLEAN 
Not implemented at SETS. GO T 
GET PUT 



ASCALMT * includes compiler and a real time symbolic debugger 
ne system requires 32K minimum and 2 mmi disks or one 8" drsfc 
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To add siring function to "Household 
Accountant," change the following 
program lines: 



540 


Change 


C to c$ 


550 


Change 


- 1 to END 


950 


Change 


CtoCS 


%0 


Change 


- 1 to END 


1000 


Change 


CtoCS 


20000 


Change 


- 1 to END 




Example 2. 



mind look for a solution. 

Fate smiled on me, as ! turned to page 1 14 
and saw David C. Andreasen's "Household 
Accountant" with the kicker "Keep track of 
how much, to whom and when— up to 32,767 
accounts." 

Well, I didn't have that many accounts, so I 
looked closer. 1 got excited— this could do it. 
This could sort out and add transfers between 
accounts! 

I sprang into action. 1 keyed the program on 
page 116 into my 16K Level II TRS-80 pussy- 
cat. She almost purred as I ran and tested the 
program, using dummy DATA. It worked! 

Then, I realized, I was limited to check 
number entries only, so I made a few program 
changes (Example 1) to accommodate strings 
(loan, cash, etc.). 

I started with one checking account and 
entered each check that transferred money to 
another account. I assigned a category number 
to each "path" (Bank one to Bank two was 
category one, Bank one to Savings one was 
category two, and so on). I ended up with 18 
different paths, or categories, between ac- 
counts! 



I made some additional changes to the pro- 
gram (Example 2) to accommodate my printer. 
The program added and printed the totals for 
all categories, for each month and for the year, 
listed all transfers individually, printed and 
added each category— fourteen pages on my 
printer! 

With the help of this program, I was able to 
account for almost $43,000 of the $45,000 plus 
"unexplained income"! 

Round 4: The Technical K.O. 

Armed with my computer printouts, plus six 
cardboard boxes full of records, wheeled in on 
my dolly, we faced Edward a second time. 
Once he understood what I was showing him, 
he was delighted. He said it saved him hours of 
work! 

However, just to make sure I was correct 
(after all, how can a $750 computer do any- 
thing but play games?), he spent two hours go- 
ing over the figures, asking me for checks, 
deposit books, etc., to verify the printout. It 
was not one penny off! Personal computing 
had scored a technical knockout! 

You may wonder about the other $2,000 plus 
that was not accounted for in my analysis. We 
explained that it was probably garage sale cash 
and checks deposited in checking accounts, 
since Ev sold a lot of her furniture and 
housewares before we got married that year. 
No problem. You usually sell things at garage 
sales for less than you paid, so this is usually not 
taxable income. 

Round S: The Next Match 

Forewarned is forearmed! Keep good 
records. The burden of proof is on the tax- 
payer, not the IRS. Despite the fantastic help 



the "Household Accountant" provided, it is 
useless without correct data. 

Fortunately for me, I have a habit of jotting 
remarks next to every deposit or withdrawal in 
my savings passbooks, so 1 can identify the pur- 
pose of each transaction. Without these re- 
marks I doubt if 1 would have been able to dis- 
cover a lot of transfers, and that would have 
been more unreported income on which tax 
would be due, plus penalty and 12 percent in- 
terest for two years! 

An auditor told me that the majority of tax- 
payers end up paying extra taxes as the result of 
an audit simply because they can't identify, 
document or verify deductible or non-taxable 
income. 

While an IRS audit is about as pleasant as 
swimming with a bleeding leg in shark-infested 
waters, it can be a real challenge and a learning 
experience. ■ 



To add primer output tor "Household Accountant" 


add the following program lines: 


105 


Ct.S:i>RINT:INPUT"l'RINTbR(YES=l, 




NO = 0)":PR 


790 


IEPR-1 GOSUB2000 


1025 


IK PR- 1 OOSUB2000 


2000 


IORT = 0TO 15 


2010 


SS(T) = " " 


2020 


POKE VARPTR(SS(T)),64 


2030 


POKE VARPTR(SS(T))+ 1. (T'64 +15360) 




AND 255 


2040 


POKE VARPTR(S$(T)) + 2, (T»64* 15360)/ 




256 


2050 


NEXTT 


2100 


FOR T = TO I5:LPRINTS$(T):NEXT 


2110 


RETURN 


In line 470. i+anxe - 1 to END 




Example I. 



For Canadian^ 
* OwnersT^ 

Lower Case Modification . . $65.00 
Cassette Load Modification . $20.00 
Radio Shack Numeric Keyboard 

Installation $50.00 

(You supply numeric pad) 

RS232C Serial 1/0 Port for Printer 
etc. (Complete with connectors) 
For Use With or Without Expansion 
Box $169.95 

For a complete catalog and credit 
vouchers worth $25.00 on future 
purchases send $5.00 to: 

•AM Quotas in Canadian Funds 

COMPUTER 



ORTHON 



^108 



12411 Stony Plain Rd.. 
Edmonton, Alta, T5N 3N3 



sjM 



Tost your mind— not 

your reflexes— with 
SQUADRON LEADER Games 

Command a fighter Squadron 
in any of six of the decisive 
campaigns of World War II 

•At Itw Soma 01 Irlloin 




►>W OutDOSt C 

NungngMlto, 
OvwCr-ro '03' 'M? 

Saoadron leader games ore not lust shoot em op arcade 
games out detailed historical simulations Each of these 
gomes gives you a choice of dozens of combinations of 
fnendty aircraft (controlled by you) and enemy ewetaft (con- 
trolled by me computer) Eoch is carefully researched and 
simulated for factors of speed, monueverabiiity. firepower, 
sturdiness and rate of climb Success or foilure depends on 
your ability to learn and exploit the advantages ana 
weaknesses of every aircraft 

Each gome includes on oudtotope cassette tor 16K TBS80 
Level ll. Apple ll (16K or larger), and the new 16K PET. loading 
instructions, a tactics reference card and plover's manual, in 
an attractive bookshelf box Price is S 19 05 

O-tcatmn Game* • KM W Mwy 36 • SI Paul. MN 53113 



►^412 




eal 
World 

nterface 



A/fm**tr i.-OandtfA /la* »•*) m HAS* 

Real World ( Analog > to Dtgaal Conversion for use in 
your BASIC programs wah better than 5*i accuracy 
DajNal to Analog real world audio, test, and control 
tokages generated with tame accuracy b> your programs 

Lastly incorporated into your present BASIC programs 
Support software frre» TRS «r* 10 run other programs 
concurrcntl) . updating only when vohage change MOM 

I xpanuon interface not required H v 
I anguagc wuh Level II I *ahk with I orl 1 4K and TBI 'C 
i Machine language ■ 

Ready to connect and use Includes interface hardware, 
software documentation, and complete instructions. 

*.\<embied and icmo! 

Florida residents add 4«» vales t*« 



Rand Laboratories 
pxx box 552 
melbourne, f lorida 



32901 



Mas** « are u aaVa. i T. 
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c?\t Last! 
Orchestra-80 

A TRS-80™ MUSIC SYNTHESIS SYSTEM 

WRITTEN BY JON BOKELMAN 



Turns Any 16K Level II TRS-80 Into A High Quality Musical Instrument 

3$e Software-' 

A five part machine language program consisting of: 

2 Digital synthesizer— produces up to four simultaneous voices in a six-octave range. For 
example, you could have a trumpet, oboe, clarinet, and organ playing in four-part 
harmony or alter any of the voices to imitate other instruments. 

2 Music language compiler —a simple and easy to use language allows you to enter your 
favorite written music in any key or time signature. Plays all note values from whole notes 
to sixty-fourth notes which may be single, double, or triple-dotted and/or played as triplets. 
Supports single and double accidentals, stacatto, pizicatto, two forms of articulation, 
repeats, second endings (with or without retard), and modulation. 

3 Full screen editor— a full function text editor with blinking cursor is provided for easy 
entering and modifying of music programs. Functions include insert/delete characters, 
insert/delete line and global character string search, and automatic error detection/display 

4 File manager— provides the orderly storing and retrieval of named program files on tape 
or disk. You can even seauence several songs for automatic loading and playing. 
5 Initialization— this set-up routine allows you to alter the voices, select the standard 
four-voice synthesizer or a special high resolution, three-voice version and choose the 
standard (1.77 MHz) or the enhanced (2.66 MHz) clock rate. 

3$e Hardware-* 

A single 1 Mr* by 2" PC board plugs into the expansion connector on the TRS-80 keyboard or the 
screen printer connector on the expansion interface. This board contains the electronics 
required to convert the computer output into a high fidelity audio signal. Just plug in the 
board and connect to the aux/tape/tuner input of any audio amplifier. No external power 
supply is required. 



Includes: 

• Tape and disk versions on cassette 

• Completely assembled and tested 
PC board 

• Detailed and complete instruction 
manual 

• Sample music programs 



SEND CHECK OR MONEY ORDER TO: 



Orchestra-80 
$79.95 

PLUS $2.00 POSTAGE AND HANDLING 
CALIFORNIA RESIDENTS ADD 6% SALES TAX 



Software Affair 

4/3 SAPENA COURT SUITE 1 SANTA CLARA, CALIFORNIA V50M 



,' i'rf. 



SPECIAL DEMO LINE! HEAR ORCHESTRA-80 ON (408)727-8194 



TRS-80 IS A TRADEMARK OF TANDY CORPORATION 



v Reader Service— see page 226 
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TUTORIAL 



Manipulate your world. 



Pulling Strings Together 



John D. Adams 
13126 Tripoli A ve. 
Sylmar, CA 91342 



Computers differ from calculators in a 
number of ways. One of the most signifi- 
cant differences is in the computer's ability to 
process alphanumeric data (data containing let- 
ters, signs and symbols as well as numbers) and 
to handle "strings." 

In computerese, a string is a group of alpha- 
numeric data which is regarded as a single unit. 
A "prompt line," such as ENTER YOUR 
NAME, in a program is entered and stored as a 
string. In a program which must stop to allow 
manual input of data, the line PRESS ENTER 
TO CONTINUE might be added to continue 
execution, after needed data has been typed. 
Again the line is treated as a string. 

A Giant Leap 

As with arrays, the distance from Level I to 
Level II is a giant leap. Level I allows two 
strings, AS and B$, each of which can be up to 
16 characters long. Now we suddenly have hun- 
dreds of string locations available, each of 
which may contain up to 255 characters. 

An extensive set of string handling instruc- 
tions has also become available, allowing us to 
make some pretty classy moves. We will deal 
with those instructions in detail in part two. As 
a beginning we will discuss some basic facts 
about strings and how computers "recognize" 
them. 

String and non-string data are handled dif- 
ferently by the TRS-80. Because of this differ- 
ence we must tell the computer how we want in- 
formation stored. One way to do this is to use a 
declaration sign in the variable name. In many 



dialects of BASIC, the dollar sign is used for 
this purpose. 

With this sign we can use the names A$, 
A(l)$, Al$ and A AS, and these variables will 
all be designated as different string variable 
names. This is a simple way to indicate string 
input, if you have only one or two strings, and 
they will not be referred to very often in the 
program. An example of this might read: 

10 DJ i "DISTRICT # r 

A second and more efficient method involves 
the DEFSTR instruction. Inserting the line 10 
DEFSTR A - D at the beginning of a program 
causes the computer to automatically regard 
any variable starting with A, B, C or D as a 
string variable, and the dollar sign may be omit- 
ted. Combinations such as B(l), DW, A7 or 
single letters such as C are now valid string loca- 
tions. 

Using these methods makes getting strings 
into and out of the computer quite easy. We 
can simply put the string into a program line, 
such as 10 AS = "JANUARY". Note that the 
data must be enclosed in quotation marks. If 
you omit the quotes, when the RUN starts the 
computer responds with a ?TM (type mis- 
match) error message. Even though the dollar 
sign is there, the computer does not "see" the 
word JANUARY as proper input. We must 
remember that a computer uses complex pro- 
cedures to convert those letters into numbers, 
after which it proceeds with operations. 

Strings may also be entered using the INPUT 
instruction. Very often this is done with a 
prompt line, such as: 10 INPUT" ENTER 
MONTH";A$. Inputting strings this way does 
not r equire quotation marks, unless the string 
contains commas, colons or leading spaces. If 
any of these conditions exist, quotes must be 
used. 

When you enter a lot of string information, 



perhaps the best method is to utilize the READ 
and DATA pair. The line, 10 READ Al$: 
DATA JANUARY" loads the name of the 
month into string location Al$. Once again, 
quotes must be used if commas, colons or 
leading spaces are part of the string. 

The following lines illustrate three ways of 
loading strings: 

10 AS = "JANUARY" 

20 INPUT-ENTER SECOND MONTH";B$ 

30 READ CS 

40 DATA MARCH 

SO PRINT. AS.BS.CS 

Line 10 loads the string manually through in- 
sertion in a program line, line 20 by using the 
INPUT instruction, and lines 30 and 40 by 
using the READ/DATA pair. Output is shown 
in line 50. The comma after the PRINT instruc- 
tion places the three strings in zones two, three 
and four on the monitor screen. 

Loading large numbers of strings may be 
done quickly and efficiently by using the 
READ/DATA instructions along with a FOR- 
NEXT loop. The following lines load the days 
of the week into an array: 

10 DEFSTR N 

20 FOR A = I TO 7 

30 READ N(A) 

40 NEXT 

50 DATA SUNDAY.MONDAY.TUESDAY, 

WEDNESDAY.THURSDAY.FRIDAY. 

SATURDAY 

The commas in line 50 separate the data into 
individual "portions" which are picked up in 
order as the loop cycles. As each portion is 
stored, the computer marks it off so that it will 
not be used again without a RESTORE state- 
ment. When the loop finishes, the word SUN- 
DAY will be stored in N(l), MONDAY in N(2), 
etc. through SATURDAY in N(7). Outputting 
these strings is also accomplished with a loop. 
Add the following lines and RUN them: 
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at last, a 

***PROGRAM EDITOR 
FOR TRS-80 BASIC*** 

IirMl or one line .it a time program editing' Now 
Wittl the help m THf SOUTHEASTERN TEXTAN vou 
i an i-ntcr you) HAMC programs in a video oriented 
t.'>t eiiitur SimpK Mart typing To make a change iu»t 
move the non-destructive cursor over the character 
and type on top ol It! 

1 his editor was written tor TRS-80 BASIC not 
adapted to it THE SOUTHEASTERN TEXTAN is totalis 
in machine code lor speed and (ompai tries'. 

FEATURES INCLUDE: 

Hi-.irl- tapes written in BASIC 
Returns In BASIC with program ready 
One kev entry o( key words like PRINt 
Selectable aulo line numbering 
Idit any line while in invert mode 
Append programs 
Block delete 
Search and replace 

Auto repeat any key 

Requires Level II and 16K or more 
REPEAT KEY 

Repeats any key held down tor more than one second 
until kev is released Requires Level II BASK WBI 

work with almost am amount ol memory- 

lill SOUTHEASTERN TEXTAN $4000 

SOUTHEAST I RN TEXTAN MAN ..$ 7 50 
AUlORFPFAl KEY... J 7 50 

liotli are tape only 
Disk to be released soon 

Southeastern Software*' 316 
1604-9th Ave. S., Apt. 9B 
Birmingham, AL 35205 

Allen: |eff Lyons, DEPT M 



SPECIAL 
PRICE 

TRS-80* -I Or -II 

MEMORY EXPANSION 

CHIPSET: $59!! 

We ve done it again 8 low power. 250 
ns 16K dynamic RAMs at a trend-setting 
price. Expands memory in TRS-80*. Apple, 
Heath H89, Exldy Sorcerer, newer pets, 

etc. Don t be impressed with fancy packag- 
ing or four color ads, our chip set gives all 
the performance you want at a price you 
can afford. Offer good while supplies last. 
Add S3 for TRS-80' compatible DIP shunts 
and complete installation instructions. 



I tne Tanay Corporattc 



(41SI S62-0656 COD ox with street address tor ups, 
Prices suriiPct to cnangp without notice 



WE ALSO MANUFACTURE AN EXTENSIVE 

LINE OF S-100 PRODUCTS; SEE C0MPUPR0 

S-100 BOARDS IN PERSON AT FINER 

COMPUTER STORES WORLD-WIDE. 

Bldo. 725. Oakland Airport, CA 9*614 



ASSISTANT 



Get Control of Your Level II 

Add 8 new and 3 user definable 
commands. Break key control 
(on/off) - enable/disable all monitor 
printing - 245 computer speeds and 
more. Use as programming tool and 
under software control . . . includes 
debounce routine. 
Special Introductory Vi Price Offer 
until September. Basic listing $5.00. 
Tape $7.50. Complete documenta- 
tion and sample applications. Spec- 
ify 4, 16, 32, 48k, 449 byte utility. 



The GREAT CRANE 
GAME MACHINE- 



"ACTION GRAPHICS" — machine 

language speed. In this construction 
skill game you pick up beams and col- 
umns with the crane, then lower 
them into position . . . but be careful if 
not properly supported — 
DESTRUCTION! 
Watch out for the trolls. $7.50. 16k 
tape. Add $1.50 tape orders. 

Where proven software is still affordable 
FREE CATALOG 



The Berg Works 

BOX 742 A " 351 

JANltSVILLE. Wl 53545 




LYisnc 

makes your TR 
a whole new 
animal. 



LYNX isn't just a telephone coupler. 

LYNX is a one-piece total telephone linkage 

system for TRS-80 Level I and II computers. It 

contains all the functions you need to tap The 

Source. Engage your business computer. Play 

games with a computer friend. Or do nearly 

anything you wish. 

Best of all . . . LYNX costs only $239.95*. A mere 

fraction of what you used to have to pay for 

equipment to do the same job. 

LYNX. To get your paws on one, call or write: 



EMTROL 
SYSTEMS, INC. ^s 

1262 LOOP ROAD LANCASTER, PENNSYLVANIA 17601 

Phone 717/291-1116 

VISA or Master Card Welcome 




*M| ■ ■ ■ "c-c«--; H<Mdh| 

route tm« program on c*st* iwnjcwn mjnu* 



'- - '■ •■ 



■ Reader Service— see page 226 
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60CL&FOR A- I TO 7 

70 PRINT N(A) 
80 NEXT 



String Handling 

Now that we have had a look at inputting 
and outputting strings, we can stop to discuss 
some idiosyncracies of string handling. Earlier, 
I mentioned that string and non-string data are 
handled differently. What is this all about? As 
a visual aid to our discussion of "string 
literals," enter and RUN the following lines: 

10 A - 5 

20AJ = "?'■ 

V) PRINT A ♦ A 

40 PRINT AS + AS 

Hmmmmm. I'm pretty certain that 5 + 5 = 
10, but look what line 40 has produced! What 
happened? When a number is introduced into a 
string it is thereafter regarded as a symbol and 
not as a value. No computation may be done 
with that number as it exists in memory. You 
may recall the figure 5, but not the value 5. 
Level II does give us a way to get around this 
problem and it will be dealt with later. 

Line 40 illustrates an operation called "con- 
catenation," a fancy word for joining or link- 
ing strings together. In line 30, the computer 
took the value S, added it to the value S and 
returned the value 10. Line 40, however, took 
the symbol 5 and linked it with the symbol 5 to 
produce a new string which reads 55. We could 
change line 40 to read; B$ = AS + AS and the 
new string (55) would then be stored in BS. 

This brings us back to the string/ non-string 
matter. You will recall that we could not load 
AS = "JANUARY" without using quote 
marks. Trying to load A = "5" results in the 
same mismatch error message. The dollar sign 
and quote marks must be used in conjunction 
with each other. 

In the JANUARY case we had specified a 
string location by using a dollar sign with A. 
The quotes said, in effect, "We contain the 
string to be stored, not the values." The quotes 
around the 5 say the same thing, but using A 
without the dollar sign indicates that the loca- 
tion is set aside for a value and not a string, so 
the line is rejected. The computer does not 
know the difference; you must tell it. We must 
be constantly aware that string data cannot be 
loaded into a non-string location and vice 
versa. 

String operation is also quirky about spaces. 
Enter and RUN the following lines: 

10 READ AS.BS.CS 

20 DATA JANUARY. FEBRUARY. MARCH 

» PRINT A$;BS;CS 

Hey wait a minute! I put semicolons in line 
30 like I was supposed to for spaces between the 
words. Why are they all run together? When 
using strings, the computer neither assumes nor 
furnishes spaces, unless you put them in. There 
are good reasons for this. As an example, enter 
and RUN these lines: 



10 AS = -GROSS RECEIPTS FOR 1979 ARE $" 
20 INPUT-ENTER GROSS RECEIPTS FOR 1979";R 
30 PRINT AS;R 

Why is there a space between the dollar sign 
and the amount? I didn't want it there. How 
can I get rid of it? When the TRS-80 prints a 
number, it allows a space for the sign of the 
number. Numbers without signs are assumed to 
be positive, and we use a sign only if the 
number is negative. 

The computer follows the same rules. Our 
unwanted space was provided for a sign that we 
didn't need. To get rid of it, edit lines 20 and 30 
to read R$ instead of R. Now we get the first 
digit snuggled up to the dollar sign like we 
wanted. Putting the number in a string elimi- 
nates the space for the sign, because the number 
is now regarded as a symbol and not a value. 

Of course, now we cannot do any computa- 
tion with the number, but we'll get around to 
that. By not furnishing spaces, we are allowed 
more flexibility in building strings. Here is a 
simple example of the potential acquired by 
using concatenation and space allotment: 

10 READ AS.BS.CS.DS.ES.FS 

20 DATA rRS,-,80,COM,PUT.ING 

W PRINT AS ♦ BS * CS • " " » DS i IS I FS 

Notice the " " in line 30. That space is the 
only one I wanted in the string. 

We are ready to get our JANUARY, 
FEBRUARY, MARCH problem unraveled. 
Remember how they were all run together? 
There are two ways to fix this. The first is to in- 
clude the spaces as part of the string so that line 
20 reads: 

20 DATA JANUARY. " FEBRUARY". " MARCH" 

February and March need quotes and not 
January, because of the leading spaces. An 
alternate method to handle this, instead of 
quote marks, is with concatenation. Change 
line 30 to read: 

30 PRINT AS+" ,, + BS+""+C$ 

We have accomplished the same goal. This 
short example merely scratches the surface of 
what can be done with the various string han- 
dling instructions and routines furnished by 
Level II. 

No Arguments 

There is one last thing that should be cleared 
up before moving on. The CLEAR instruction 
has two uses. Used without an argument (with 
no number following it) it zaps all data out of 
variable locations and sets all strings to null 
(erases them). 

Used with an argument, as in CLEAR 1000, 
it still zeros all memory locations containing 
data, but in addition it sets aside 1000 bytes of 
space for strings in memory. When the TRS-80 
is powered up, it automatically reserves 50 
bytes for strings, and if you attempt to enter 
more than that you will get an ?OS (out of 
string space) error message. 



When you need more than 50 bytes you must 
reserve such space with the CLEAR(n) instruc- 
tion, preferably at the very beginning of the 
program. Should the computer encounter a 
CLEAR after data has been entered, all such 
data will be lost. And that can get irritat- 
ing—fast. 

Strings may be tested or compared, just as 
numbers can in Level II. This makes possible 
such operations as alphabetizing or searching 
files for a particular name. This process nor- 
mally involves using the IF-THEN instruction 
and what are called the "relational operators." 
There are six of these operators: equal to. not 
equal to, greater than, less than, greater than or 
equal to and less than or equal to. 

In string comparisons, these operators work 
exactly as they do for numerical operations. 
This brings up an interesting question. We 
know that the TRS-80 operates on numerical 
data and that before numbers can be operated 
on, they must be converted to base 2 or binary 
numbers. So, how can it tell the difference be- 
tween A and B or know that the name Brown 
should come before the name Williams? For an 
answer we must digress for a moment and take 
a quick look at what are called the ASCII 
codes. 

The letters ASCII stand for American 
Standard Code for Information Interchange. 
Looking at pages C/I and C/2 of your Level II 
manual, you see that certain control operations 
(page C/l) and all signs, symbols, letters and 
digits (page C/2) are assigned a code number. 
The dollar sign, for instance, is assigned code # 
36. uppercase letters numbers 65 through 90. 
lowercase letters numbers % through 127, 
digits through 9 numbers 48 through 57, and 
the graphics characters numbers 129 through 
191. 

These code numbers were assigned to assist 
in transferring information between various 
pieces of equipment, but they also carry some 
fringe benefits. The computer cannot tell the 
difference between G and M, but it can dif- 
ferentiate between 71 and 77. The ASCII code 
numbers are compared when working with 
alphanumeric information. 

To compare the letters G and M for 
alphabetical precedence, the BASIC language 
looks at the ASCII codes and not the letters 
themselves. Since the letters' codes are in 
ascending numerical order it simply finds the 
lower number. The computer then sends, on 
the basis of some test, execution to a specified 
location or address. 

If the strings to be compared contain more 
than one character each, the computer begins 
by comparing the first character in the strings, 
then the second, third and so on, until a match 
is either found or not. By using multiple IF- 
THEN tests, very intricate directions can be 
given; for example, if the first letter precedes 
the second, go to location A, if the letters are 
the same, go to location B, and if the second 
precedes the first, go to location C. Let me 
stress that strings must be identical to be 
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from PROGRAMMA 

HI-RESOLUTION GRAPHICS FOR THE TRS-80 




LOWER CASE 

The 80-GRAFIX board includes 

two sets of lower case characters 

at no additional cost. 





DEMONSTRATION PROGRAMS 

The 80-GR AF IX board is supplied 
with a Character Generator software 

and several demonstration programs. 




FINALLY. AT LAST. . . 

HI RESOLUTION GRAPHICS is available for your 
TRS80 computer system. The 80 GRAF IX board from 
PROGRAMMA International. Inc. gives your TRS-80 high 
resolution capability that is greater than the Commodore 
CBM/PET or even the revered APPLE II. 

80-GRAFIX gives the TRS-80 an effective screen of 
384X192 pixels, versus the normal 127X192 for the 
TRS-80. 80X50 for the CBM/PET. or the 280X192 of an 
APPLE II. As an added feature. 80-GRAFIX offers you 
lower case characters at no additional cost. Of course, you 
;an also create your own set of up to 64 original characters 
using the supplied Character Generator software. 

The 80-GRAFIX board is simple to install (note that this 
voids your Radio Shack warranty), and programming is 
done through BASIC. 80-GRAFIX opens up a whole new 
realm of software development and excitement never 
dreamed of for the TRS-80! 







REAL TIME GRAPHIC GAMES 

With the 80-GRAFIX board you can 

write exciting real-time games using 

BASIC 



EASY INSTALLATION 

The 80-GRAFIX board is simple to 

install and fits inside the TRS-80 case. 




INVERSE VIDEO 

The 80 GRAF IX board allows you to 

do inverse video to high-light your 

screen displays. 
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CHARACTER GENERATOR 

The supplied character generator 

software allows you to create your 

own character set of up to 

64 original characters. 
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»l»l » ,T ,M4 f ""♦< 



<snmm 



GRAPHICS GALORE 

The80GRAFlX board and 

the supplied Character Generator 

allow you to become an artist 



IM our is M «t 

a nun 

mtmtu 
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ELECTRONIC DESIGN 

The 80 GRAF IX board has unlimited 

application in Electronic design 

and Education. 




80-GRAFIX HI RESOLUTION 

Finally, the only means to protect 

your computer investment is to order 

an 80-GRAFIX board TODAY' 




EXCITEMENTS FUN 

Open up a new realm of software 

development with the 80-GRAFIX 

board. 



Available exclusively through PROGRAMMA at the cost of $149.95 

Please check with us for availability prior to ordering 

VISA and MASTERCHARGE accepted 

TRS-80 is a registered trademark of the Tandy Corp. ^21 



PROGRAMMA 
INTERNATIONAL, INC. 

3400 Wilshire Blvd. 

Los Angeles, CA 90010 

(213) 384-0579 • 384-1116 * 384-1117 
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DEFSTR 


A,B:DEFINT I 


j 






20 


FOR J=l 


TO 7:READ A(J) 


NEXT 




30 


DATA B, 


2,A,D,G,C,F 








40 


F-0 










50 


FOR I«] 


TO 6 








60 


IF A(I) 


<» A(I+1) THEN 


90 




70 


B-A(I) : 


A(I)-A(I+1):A(I+1)-B 




80 


P-l 










90 


NEXT 










100 IF F-] 


THEM 40 








110 CLS: PRINT-HERE ARE 


THE LET: Li 




IN ORDER:" 








120 F ■!■: I 


1 TO 7: PRINT 


A(I) + 


:NE 




XT 


Listing 1 









matched, down to the last space or period. In a 
long ring one character can prevent a match- 
up. 

Appli -lions 

Program listing 1 illustrates a very simple 
sort routine that takes seven letters and alpha- 
betizes them. In computer jargon a sort is a 
program which can put data into some speci- 
fied order. There are numerous sorting rou- 
tines, including Shell sorts, bubble sorts, ripple 
sorts, quicksorts and binary search sorts. All 
depend on string comparisons and branch in- 
structions. 

Line 10 of the routine designates A and B as 
string locations and I and J as integer locations. 
Sorts run a little faster if the loop counters are 
defined as integers, as this eliminates some of 
the comr ••uion necessary for single precision 
numbers. ' ines 20 and 30 read data into the 
computer using an array loop. 

lines 40 and 80 have to do with setting and 
resetting a flag in the variable location P. This 
flag defines an escape route from the loop when 
all of the data is in alphabetical order. 

The heart of the program is the loop in lines 
50 through 90. After the flag is set to zero in line 



40, line 50 establishes the loop and sets 1 to 1 . 
Line 60 compares the letter in A(l) with the let- 
ter in A(2). Remember, (he letters are not being 
compared, but rather their ASCII numbers. If 
the letters are in the right order, execution 
branches to line 90, then to line 50, which in- 
crements 1 by one and then tests to see if the let- 
ters in A(2) and A(3) are in the right order. 

If all of the letters had been in the right order 
originally, this process would continue until I 
had been incremented to seven, dropping ex- 
ecution to line 100. Since the flag is still set at 
zero, the test fails, and lines 1 10 and 1 20 are ex- 
ecuted to print the results. 

If, however, line 60 uncovers two letters 
which are not in order, execution proceeds to 
line 70. Let's say that the letters in A(3) and 
A(4) were not in proper order. The computer 
then puts the letter in A(3) into a temporary 
location named B, transfers the letter in A(4) to 
A(3), and then puts the original letter which is 
stored in B into A(4). The two letters are now 
reversed in position. The letter which was in 
A(3) is still in B, but will either be written over 
or ignored. 

After line 70 has completed the exchange, 
line 80 sets the flag to 1 , and line 90 returns ex- 
ecution to line 50, which increments I and starts 
the loop cycling again. The I in location F told 
the computer that a change had been made and 
that it was not finished. This continues until all 
letters are in order, at which time line 60 sends 
execution to line 90, until the loop completes 
and line 100 sends execution to line 40, resetting 
the flag. 

On the next pass the computer escapes to 
lines 110 and 120 for printout. One of the 
disadvantages of this routine is operating time. 
With only seven letters it loads, sorts, and 
prints out rather quickly. It takes more time 
relative to the elements increasing in number 
and/or complexity. 



The ability to compare strings is very handy 
in locating a particular name or file stored in an 
array. Program I isting 2 shows an elementary 
example. Line 10 defines variables by type. 
Lines 20 to 40 load five names into an array 
named N. Line 60 allows you to enter the name 
to be found and stores that name into location 
A($). lines 70 through 90 set up a loop and 
compare what is in A to each member of the ar- 
rays. If it cannot find the name, line 100 sets up 
a default instruction and returns you to line 60 
for another try. If the name is found in line 80, 
execution branches to line 1 10 to return the file 
number. Any other information that was in 
that file could, of course, be retrieved at this 
point. 

Try adapting or changing these routines to 
accomplish a specific task. A good exercise is to 
combine I isting 1 v»ith I isting 2 to allow you to 
enter names in any order. Then have the com- 
puter alphabetize them and search for a par- 
ticular name. As you gain fluency in handling 
strings, you will be amazed at what this little 
machine can do.B 



10 DEF1NT I: DEFSTR A,H 

20 FOR 1-1 TO 5 

30 READ N(I) 

4 DATA BROWN T. , CARVER J ., FRANK J., 

MILLER J., WILLIAMS B. 
50 NEXT 
60 INPUT'ENTER NAME YfXI WANT FOUND* 

»* 
70 FOR 1=1 TO 5 
80 IF A»H(D THEN 110 
90 NEXT 
100 CLS:PKINT"T11E NAME YOU SPBCIFIE 

D IS NOT LISTED" :GOTO 60 
110 CLS:PRINT'THE NAME YOU SPECIFIE 
D IS IN FILE I"; I 



Listing 2 
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COVER YOUR INVESTMENT 



-Cloth Bached N«ug*hro> V 
•imptond H.I.MHI,! , 
•long* HI* 



:=£TC 



-Wele<p'ool I OuitfMOo' 






incluM S' OB 'or poiligt inrj handling 

')«•'!•. i ordt't mclud* 13 00 poii«q« 

DEALER INQUIRES INVITED 



liWPl£Wfcft IV100 
P Bo. 1?4 .Oral C- 



p.1 LAs r 

TRS-80' 
SOFTWARE AT 

DISCOUNT 

TRS-80 is a trademark of Tandy Corp 



2 % 



List 



D S 
Price 



'24 95 Temple o» Apshi $ 19 96 

14 95 Morloc's Tower 11.96 

14 95 System Savers 11.96 

19 95 Disk Ut Hi t y (Acorn) 16 96 

14 95 P i n b a I I 1 i 9e 

send check or M O plus $1.00 p&h(per order) 
~or— 25c & s a s e for complete list to. 

® 

Discount Soft ware ^424 
PO Box 9985 
: Washington DC 2 001 5 
« ~ 



SYSTEM 



■^r 
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Your TRS-80™ Mod I May Not Be The Problem! 

Normal household and ,um . s /I 

commercial electrical Jl 

power (AC) can vary as 

much as 200% and can ^^^^ ^^ 

VANISH loi a hall second 01 JR^M ■? -^K^ 
morei The TRS-80- Pow &' , ^B»» >' r»« 

ei Supply was not de- 
signed to cope with 
this typical AC condition! 

P & L BUSINESS/COMPUTER SYSTEMS 

Power modification stabilizes system voltages al- 
lowing up to 2 seconds' uninterrupted operation with 
AC OFFI (Depending on power supply you use ) 
Detailed Instructions lor Processor & Expansion Interlace 
(w/parts list & pwr supp selection data) S9 95 
Level 1 Kit For Processor only 
(instructions, parts, cables & power supply 

selection data) $31.95 

Level 2 Kit For Processor and Expansion Interface 
(instructions, parts, cables & power supply 

selection data) $49 95 

Send check or money order to 

P & L BUSINESS/COMPUTER SYSTEMS 
P.O. Box 333. Ramona. Calif. 92065 ^354 
California Residents please add 6% sales tax 
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ANNOUNCING THE FIRST 

TRUE ELECTRONIC MUSIC 

SYNTHESIZER FOR THE 

TRS-80* 

NOT A SIMPLE SOUND EFFECTS 
GENERATOR BUT A COMPLETE 

MUSIC SYSTEM! 

TRS— 80* Synthesizer 

• 3 SIMULTANEOUS NOTES PER BOARD 

• PLUGS INTO ANY STEREO SYSTEM 

• NO EXPANSION INTERFACE NEEDED 

• DEMO CASSETTE INCLUDED 

$130 KIT $180 ASSEMBLED 

QCUO CASSETTE 13 00 S(PARATf I V 

MUSIC EDITOR 

ENTER SHEET MUSIC VIA WELL TESTED ENTRY SYSTEM 
$10 CASSETTE $15 DISK 

TRS-80 Hardware: 

2 Pluo in Game Paddles . . 74.98 

Lowercase Modification IBM 

Light Pen 19 95 

Beeper 29.00 

I 

NEW WAVE ELECTRONICS. INC. 
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TRS-80*TRS-80*TRS-80*TRS-80 

Model I system owners 
SYSTEM TOO SMALL? 

Wc take trade-ins on Modd II 

We also buy used systems outright 

Call or write for quotation 

USED TRS-80 SYSTEMS 

W'e sell used keyboards, exp.int . 

disk drives, etc. 

C all or write for quotes 

NEW HARDWARE IN STOCK 

I6K Level II S749.00 

Radio Shack disk drives $449.00 

I6K Memory- Lifetime warranty $89.00 

Centronics 730-1 1749.00 

IDS 440 Paper Tiger $949.00 

SOFTWARE 

Data Management System-Mod I or II 

An excellent design-it-yourself 

software package- $99.00 

Utilizes and requires Race) Computes 

CSF and COMPROC 

PENCILFIX 

Save your warranty. Use Pencilfix to avoid custom con- 
trol key on your keyboard. Uses Radio Shack lowercase 
mod with electric pencil— $14.95 



Completely integrated automatic 

letter writer for Model II 

Consists of WORDSCRIBE. WORDMAU . 

MAI I I IST-S2S0.00 

PRINTER SPOOLER FOR MODEL I 

Incrcaset ihtupui of primer operations Fully retocatabk 

Buffer uk user defined Executes as a BASK profram 

A must when using Radio Shack printers 

$14 95 



VERN STREET PRODUCTS 

IMWTaft Sapulpa, OK 
74066 (918)224-4260 



We handle a lull Ink ol 
Radio Shack products. 



TERMSCOD WEI COME. CASH. CHECK. OB MONEY ORDER 
ADD i'/.FOR MASTER CHARGE AND VISA 
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Electrolabs 

Announces •us 



User Friendly, Big Software for your Micro; 
THIRD GENERATION SOFTWARE for your 

S-100, Multi-Bus, TRS-80, Zilog, Mostek or Prolog 



NEW" UIN |S?e» Operating System f ?_ BO 



OS-1 



OS-1 is truly a breakthrough in the micro 
world' OS-1 is NOT a "control program for micros" 
but is. instead a large, orofessional operating system 
designed to lower the cost and improve the quality 
ol programming efforts. OS-1 provides a "friendly" 
human interface lor both system programmers and 
users. Finally, with OS 1. the capability of a Z 80 
system is vastly expanded 

OS 1 appears exactly like UNIX to the usei. 
and includes virtual i/o, "set tty" and "login" comm- 
ands, a shell, a hierarchical "tree" type lile structure 
with 16Mby file size and an unlimited no. of files 
and devices. OS-1 allows the extremely useful "pipes" 
and "filters" to be implemented. OS-1 also provides 
for up to 1024 users and 64 groups and security 
foi users, groups, files and devices. OS-1 occupies 
12Kby and comes with a 4Kby "enhanced" cp/m 
adapter which runs ALL cp/m and most CDOS pro 
grams. Source code is supplied with adapter. 



EXTRA! 

8" Dual Floppy Add-On for TRS-80 Now Available! 
Runs CP/M Programs! Includes. Dual/Single Density 
(Up to 1 mBy), RS232 Port. All for $2495.00 



0S-1 (Including Debugger. "UNIX-type" 
editor. Linker Loader & 1 Yr. update) 

S249 
"C" Compiler (Whitesmiths') $600 

Microsoft Compiler Interface (interfaces 

MS Fortran & Cobal compilers directly 
to OS-1. This allows compiler output 
to "Command" OS-1 Routines. The 
Electrolabs' Software Group considers 
this interface indispensable. Contains 
over 100 separate routines) $49 



Manuals: 

(fJnce applies to OS-1 purchase) 

Introduction to 0S-1 (60pg) $15 

0S-1 Users' Guide (150pg) $35 

Sys-Gen Manual for OS-1 (40pg) $10 

SET $45 



Now Available Exclusively Through: 



SOFTWARE LABS 

735 Loma Verde. Palo Alto. Ca. 94303 
Phone: 415 493-8186, TLX 345567 



Name Property of Digital Research "Name Property of Western Electric 
'Reader Service— see page 226 
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UTILITY 



Use your input buffer to beat the SYSTEM. 



Free Space 



David Cornell 
335 Parkside Rd. 
Harrington Park, NJ 07640 



Sooner or later you'll get an 
out of memory message 
from your computer. Then what? 
The simplest way to increase 
space is to use a utility program 
that deletes spaces, line feeds 
and remarks. There is, however, 
an interesting catch: When the 
utility is most needed, there is 



no place to put it. Having it per- 
manently reside in memory only 
contributes to the problem and 
may be the cause of the OM ER- 
ROR in the first place. 

The solution is to load this 
utility into the input buffer, as 
this part of RAM is always avail- 
able. The program can be load- 
ed and run after an out of memo- 
ry message is received without 
disturbing the BASIC program. 

This also means that this utili- 
ty program must be executed 
immediately after it has been 
loaded and can be used only 
once per load. 

As a practical matter, this pre- 
sents no problem. A utility of 
this type is not needed continu- 
ally. It can be loaded and run 



when needed and will take up no 
memory when it is not. 

Clever Idea 

Using part of the buffer in this 
manner is such a clever idea 
that the SYSTEM command 
uses it for its stack area during 
system loads — so much for 
originality. The utility, therefore, 
must straddle the SYSTEM 
stack to avoid being wiped out 
by it. 

When the tape has loaded, its 
execution follows directly. 
There is no prompt for a / or en- 
try point. 

The program offers one user 
option: Remarks may be re- 
tained or deleted. Before the 
program executes, a prompt is 



Source Program 

ADDRESS RAM 



Decision 



Object Program 

RAM 



42E8 

42E9 
42EA 

42EB 
42EC 
42ED 
42EE 
42EF 
42 FO 
42F1 
42F2 
42F3 
42F4 

42F5 
42F6 
42F7 
42F8- 



END OF LINE 
NEXT LINE AT 
42F7 

LINE NUMBER 
10 

PRINT 

SPACE — 

SPACE 



00 
F7 
42 
0A 
00 
B2 
20 
20 
22 
48 
20 
49 
22 



00 END OF LINE 

00 END OF BASIC 



SAVE- 
SAVE- 



SAVE- 



DEC. 



00 




*- ENDOFLINE 

► POINTER WILL BE 
CALCULATED 

► LINE NUMBER 
10 DEC 
PRINT 



ENDOFLINE 

ENDOF BASIC 
PROGRAM 



00 



0A 
00 
B2 
22 
48 
20 
49 
22 
00 

00 

00 



ADDRESS 

42E8 
42E9 
42EA 

42EB 
42EC 
42ED 
42EE 
42EF 
42F0 
42F1 
42F2 
42F3 

42F4 
42F5 

42F6 



PROGRAM 
BEGINNING OF THE VARIABLE TABLE(S) - 



Example 1. 



displayed and the option is se- 
lected. For purposes of debug- 
ging or documentation, it may 
be desirable to retain remarks; 
in some programs a remark may 
be the target of a GOTO or a 
GOSUB. 

Upon completion, the number 
of bytes deleted from the BASIC 
program will be displayed at the 
upper left of the screen. 

The discussion has been di- 
rected toward a Level II system. 
But it applies as well to a disk- 
based system, with the excep- 
tion that there are other areas of 
RAM available in disk systems. 

BASIC 

Basic Commands are stored 
in RAM as one-byte tokens. 
When a BASIC program line is 
keyed, it is first written in the in- 
put buffer. Then, routines in 
ROM rewrite the line, substitut- 
ing one-byte tokens for each 
reserved word found. Numbers 
80H and above are used. These 
will be greater than the ASCII 
character set, and when the 
BASIC interpreter encounters a 
number in this range, it knows 
that it has found a command. 

The end of line marker is 0. 
Zeros never appear in the text. 
When the interpreter encoun- 
ters 0, it knows it has reached 
the end of the line. (A may, 
however, be part of a line num- 
ber or line pointer.) 

While you can find the end of 
the current line by advancing un- 
til is encountered, you cannot 
back up to find the end of the 
previous line as the encoun- 
tered could be part of a line num- 
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ber or pointer. 

The first two bytes ot a line 
point to the address of the next 
line. The next two bytes of the 
line are the number of the line. A 
line pointer of 0000 indicates the 
end of the BASIC program. 

The Z-80 stores two-byte num- 
bers, least significant byte first. 
40A4 would appear in RAM, or in 
the assembler program listing, 
as A4 40. All bytes which have 
no program function will be 
deleted. The BASIC program is 
altered as described in the fol- 
lowing text. 

Formatting Commands 

Any byte in the range 1 to 32 
decimal is deleted. These are 
usually a space (ASCII 32) or a 
line feed (ASCI1 10, entered from 
the keyboard or by the down ar- 
row). The tab (right arrow), en- 
tered when the line is initially 
keyed, also writes spaces (ASCII 
32s) in the line which will be de- 
leted. 

Formatting bytes preceded 
by a DATA token or a comma 
will be deleted, not saved. All 
other bytes will be unaffected, 
or protected. 

Remarks can be deleted or 
saved depending upon user op- 
tion. The remark begins with the 
REM or ' command and preced- 



ing bytes may be deleted. 

There are some special 
cases. A legal BASIC line with 
no text will be deleted. For ex- 
ample: 100 :. This would be ac- 
cepted by BASIC, but does noth- 
ing. Superfluous colons will also 
be deleted, as in the example 
below: 



100 FOR I = 1 TO 6:: 



How it Works 

The original BASIC program 
is treated as a source program 
and is used to write an object 
program. Each source byte is ex- 
amined and is either saved or 
not saved in the object program. 

HL is the source program 
pointer for the byte of the source 
program which is being exam- 
ined. DE is the object program 
pointer that points to the loca- 
tion where the next byte of the 
object program will be written. 

A byte is saved by writing it in 
the address indicated by the ob- 
ject program pointer and incre- 
menting both the source and ob- 
ject program pointers. A byte is 
deleted by incrementing the 
source pointer without writing 
the byte to the object program. 

The BASIC source program, 



1 " 

THIS IS A 


TEST FOR THE UTILITY PROGRAM 'SPACE' 


ii 

10 PRINT "H E L 


L O": H E L L O 


20 PRINT "HELLO 


: GOOD-BYE 


3 DATA 1, 2, 5: DATA 1,2,3 


»»0 DATA 1, 2, 3, 


":":data "test": test 


50 REM TEST 




60 'TEST 




70 'TEST 




80 A: 'TEST 




90 B: 'TEST 




100 AA: 'TEST 




110 BB: 'TEST 




120 : 




130 : 




1«»0 a:rem test 




150 B: REM TEST 




160 AA:REM TEST 




170 BB: REM TEST 




180 DATA MONDAY, TUESDAY, WEDNESDAY, 


THURSDAY, 


FRIDAY, SATURDAY, 


SUNDAY 




190 X$=" 




MONDAY 




TUESDAY 




WEDNESDAY 




THURSDAY 




FRIDAY 




SATURDAY 




SUNDAY" 




15360 :'TEST 




20000 END 






Source program. 



10 PRINT "H I", produces the ob- 
ject program. Example 1 illus- 
trates the pointers. 

The main program is con- 
trolled by TEXT. TEXT sets itself 
as the return address by push- 
ing its address into the stack. 
On RET, the top of the stack is 
popped into the Z-80 program 



counter. This allows the program 
to be arranged into small callable 
blocks and it always returns con- 
trol to the same point after 
whatever branching takes place. 
TEXT then checks for the 
cases which will be handled by 
special processing routines: the 
end of the source program line 



BASIC PROGRAM APPEARS IN RAM AS 



REM 


93 




3C 93 FB 


10:' 


0A 00 3C 3C 93 FB 


10' 


0A 00 3C 93 FB 


15360 REM 


00 3C93 


15360' 


00 3C 3C 93 FB 


15360:' 


00 3C 3C 3C 93 FB 


15538 REM 


B2 3C 93 


PRINT:REM 


B2 3C 93 


PRINT:' 


B2 3C 3C 93 FB 



Table 1. 



AUTO Auto execute 

START Start the program 

DISPR Display prompt 

DISSTR Display string (pointed to by HLl 

SCAN Scan the keyboard 

REMOPT Remark option chosen (save remarks) 

NOREM No remarks to be saved 

TEXT Text of BASIC line 

SAVE Save byte in Object Program 

NOSAVE Do not save byte m Obiecl Program 

ENDLINE End ol the line (in Source Program) 

NOTEND Not the end ot the BASIC program 

FIRST First byte ot the text 

BEGSMT Beginning ot the BASIC statement 

EXITSP Exit the SPACE program isorry'l 

QUOTE Quote found in Source Program 

REMDEL Remarks to be deleted 

REMSAV Remarks to be saved 

DATA DATA statement found in BASIC program 

PROMPT Prompt 

Table 2. Assembler Mnemonics and Derivations. 



1 " 








THIS IS A TEST FOR 


THE UTILITY 


PROGRAM 


SPACE' 


10 PR1NT"H ELL 0" : HELLO 








20 PRINT"HELLO : GOOD-BYE 








30 DATA1,2,3:DATA1 ,2 ,3 








"*0 DATA1,2,3,":":DATA"T E S 


T":TEST 






80 A 








90 B 








100 AA 








110 BB 








1*»0 A 








150 B 








160 AA 








170 BB 








180 DATAMONDAY, TUESDAY, WEDNESDAY, THURSDAY, FRIDAY, SAT 


URDAY, SUNDAY 








190 x$=" 








MONDAY 








TUESDAY 








WEDNESDAY 








THURSDAY 








FR I DAY 








SATURDAY 








SUNDAY" 








20000 END 








Object 


program. 
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OURS 
WORK! 

ACCOUNTING 
PROGRAMS 

from the company with 

years of experience 

on small computers 

and thousands of customers 

prices resulting from 
volume sales 



PACKAGE OF 
5 PRODUCTS 

PRODUCTS 
EACH 

MANUALS 
EACH 



$395. 
$95. 
$20. 



TRS-80 Owners: 
Turn Your Typewriter Into A Printer 

...With the KGS~80 Keyboard Actuator 

• Plug-in compatibility with the TRS-80 . . . attrac- 
tive enclosure contains actuator and interface. 

• Least expensive way to get letter quality printing. 

• No mechanical modifications to the typewriter 
are necessary. 

• Rests firmly above the typewriter keyboard Can 
be installed or removed in 5 seconds. 

• Does not require any software to operate . . . 
works with Pencil. Scripsit and other word pro- 
cessing programs. 

• Solenoids with soft plastic tips strike typewriter 
keys with the same force a typist would exert. 

KGSI KOGYOSHA CO., LTD. 

Dealer Inquiries Invited. * > 179 Riveredge Rd.Tenafly. N.J. 07670(201)568-8769 




GENERA L LEDGER 

PA YROLL 

A CCOUNTS RECEI VABLE 

A CCOUNTS PA YABLE 

DEPREC1A TION 

for 

TRS-80* 

MODEL I with TRSDOS* 
MODEL II with CP/M + 

OTHER CP/M+ SYSTEMS 



Product Info & 

License/Order 

Form. 

FROM..... 



MANAGEMENT SYSTEMS SOFTWARE 

ANNOUNCES 
TWO NEW BUSINESS PROGRAMS FOR THE SMALL BUSINESSMAN 

BY 

|EROME S. OSTERYOUNG. PH.D. 

RENOWNED BUSINESS EDUCATOR AND AUTHOR OF 5 BUSINESS TEXTS 

PROFORMA CASH-FLOW PROGRAM * LEASE-PURCHASE PROGRAM 

FORECASTS CASH NEEDS AND LIQUIDITY EVALUATES LEASE VS PURCHASE DECISION 

FOR UP TO 12 PERIODS INCORPORATES LATEST TAX IMPLICATIONS 

$125.00 NEW LOW PRICE $50.00 

EXTENSIVE DOCUMENTATION WITH EACH PROGRAM 

CASSETTE OR DISK 

WRITE FOR BROCHURE 

MANAGEMENT SYSTEMS SOFTWARE 

5200 BRITTANY DRIVE, #1006 ST PETERSBURG FL 33715 

^•87 



MP U TE X 17710 HERITAGE Ct. WEBSTER TEXAS 



This Month Only 
LNW KITs 

IfJILD TOUR OWN TUSH* 
EXPANSION INTEIIMCE 
COMPUTE KIT LESS DIM 
CASSETTE RELIT I CASE 

$229" 

ASSEMBLED- - S299 95 

Custom Cabinets 
fll INK STSTE M EXPANSION 
CIOINET •• I SIMS 
HOLDS INN 101110 J POfttB 
SUPPLIES 

CIIIIETm 2 Sll 15 
N010S INN. POWEH SUPPLIES) 
tSP TO 2 ISM OIIVES 



TRS80 DISK DRIVES 
*$325* 

Your : Tandon , MPI 
Choice : or Shugart 
INCLUDES CASE & SUPPLY 
DISK DRIVE CABLES S21 95 



NEW!! mpi- 

PRINTER MODEL88T 

• ADJUSTABLE TRACTOR FEED 

• lOO.o, UPPER- LOWER CASE 

• BIDIRECTIONAL PRINTING 

• RS232 i PARALLEL IF 

• FRICTION FEED 

• PLUS MORE FOR 



$749 



COMPONENTS O O 

FOR LNW SYSTEM EXPANSION 



53 

33 
I 05 

33 
.SI 
I 

111 

I II 

I 00 
I IS 

1 IS 

2 2S 
FD1771B-01 DISH CTIll 
TR 1602 II I I I 
MPU 131 II 

10.000 if Mill CAPAC I TOI 3 IS 



74LSOO 
74LSOI 
74LS14 
74LS3I 
74 IS 74 
74 IS 1 3 9 
741SI55 
MLS 1 i 1 
MLS1 li 
I4LS2II 
7 4 L S 24 1 
74LS244 



; * s o * 

74S32 

7411 

7412 

7413 

/•OS 

7112 

71 12 

7S452 

1411 

1411 

741 S3! 7 



3S 
If 
.41 
.41 

i 
99 
I! 
II 
35 
99 
.11 
II 
23 IS 
315 



• ORDERING INFORMATION 

• VISA A MASTFRCHARGE 

• ORDERS ADD 4% 



PERSONAL CHECKS 
TAKE 2 WEEKS TO 
CLEAR 



COD. REQUIRE 10% DOWN 
TEXAS RESIDENTS ADD4% TAX 




PHONE " 44 

(503) 476-1467 

840 N.W. 6th STREET, SUITE 3 
GRANTS PASS, OREGON 97526 

'Trademark Radio Shack, Div. Tandy Corp. 
* Product Digital Research, Inc. 



THE MICRO CLINIC **" 



SYSTEM DIAGNOSTICS FOR THE MODEL I TRS-80* 



THE FLOPPY DOCTOR 2.2 

• Complete write/read testing lor 35 or 40 
track drives 

• Tests all controller functions and status 
bits 

• Tests drive motor speed and allows 
adjustment 

• Complete error logging and summary for 
I to 4 drives 



MEMORY DIAGNOSTIC 2.1 

• Wnte'Read section tests each address 260 
times per pass 

• Checks for correct refresh operation and 
address uniqueness 

• Ml Worm" test executes machine code 
from each address 

• Complete error analysis is performed when 
errors occur 
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Both diagnostics are written in Z-80 machine code and can be run continuously 
to verify long-term system reliability. Complete instruction manual includes 
hints to troubleshooting. Supplied on diskette for a minimum 16K single disk 
system. • ths -hois a reqistehe n trademark of Tandy corporation 

PRICE $19.95 CA residents add 6% Sales Tax. Add $1.00 P/H. 
•THE MICRO CLINIC • 17375 Brookhurst • No. 1 14 • Fountain Valley CA 92708- 



or a quote. If neither is encoun- 
tered, a check is made for a for- 
matting command. 

If the byte is a formatting 
command, there is a jump to 
NOSAVE in the object program. 
If the byte is not, it is considered 
necessary to the BASIC pro- 
gram and is saved. 

RET returns to TEXT to begin 
the process all over again for the 
next byte. Note that SAVE and 
NOSAVE also update the point- 
ers, return the source byte in the 



accumulator and set the Z flag if 
the end of the source line has 
been reached. 

Endline 

This module is entered if the 
end of the source line has been 
reached. On entry A = 0; HL 
points to the end of the source 
line; and DE points to the ad- 
dress where the end of the ob- 
ject program line will be written. 

A check is also made to deter- 
mine if this is also the end of the 



EXAMPLES OF REMARKS WITH POINTERS 

On entry to the remark pro^ essing routine, the pointers will be as follows: 
Example 15360 REM 



IX points here DE points here 

in Op] ect_ Prog ram . in Qbiect Prog ram 



0O3C3C 



Line Number 



HL points here in Source Program 



REM Token 



Example: 



10 PRINT:' 



IX points here DE points here 

m Ob|gC Program in Qbiect program 

0A0OB2 3C3C93FB 



Line Number 



ft 



HL points here in Source Program 



'End of Statement 
PRINT Token 



Example 2. Remarks with pointers 



42D1 53 S 15600 

42D2 41 A 

42D3 56 V 

42D4 45 E 

42D5 20 

42D6 52 R 

42D7 45 E 

42D8 4D M 

42D9 41 A 

42DA 52 R 

42DB 4B K 

42DC 53 S 

42DD 20 

42DE 20 

42DF 59 Y 

42E0 2F / 

42E1 4E N 

42E1 20 

42E3 3F ? 

42E4 00 15700 

00 00 TOTAL ERRORS 



DEFM SAVE REMARKS Y/N T 



DEFB 



.END OF MESSAGE MARKER 



Example 3. Hexadecimal Representation of ASCII Charac- 
ters. 



BASIC program. If this is the 
case, a jump is made to the exit 
routine, EXITSP. 

In the first byte of a statement 
a number of unique situations 
may occur. These are treated as 
special cases and handled by 
BEGSMT. A check is made for 
DATA and REMark commands, 
which occur only at the begin- 
ning of a statement. Also, a 
statement may have no text, as 
mentioned earlier. In this case, it 
is treated as a remark and is de- 
leted by the remark delete rou- 
tine. Extra colons may have 
been entered through user error 
or keyboard bounce and are not 
saved. A RET is used again to re- 
turn to TEXT. 

Remarks present a problem. 
Processing remarks is made 
complicated by the fact that 
there are two different remark 
formats. REM is stored in RAM 

as 93H (REM token). is stored 

in RAM as 3C 93 FB ( : REM FB ). 
The colon may also indicate the 
end of a statement which in turn 
may precede a REM token. 

Things are further compli- 



cated by the need to know 
whether the remark is at the be- 
ginning of a line or at the begin- 
ning of a statement in a multiple 
statement line. Once all this has 
been figured out. the source and 
object program pointers are ad- 
justed accordingly. Table 1 
shows several example remarks 
as they appear in RAM. 

Table 1 also shows the prob- 
lems of backing up. One solu- 
tion is to save the address of the 
first byte of the object text in 
register pair IX. If, on entry to 
the remark processing routine, 
DE = IX, then the remark pro- 
cessing routine, DE = IX, then 
the remark is at the beginning of 
the line. If DE is not equal to IX, 
then the remark is in - a state- 
ment in a multiple statement 
line. Note that the colons as the 
first character of the text will not 
be saved. Example 2 shows re- 
marks with pointers. 

In addition to containing the 
display message SAVE RE- 
MARKS Y/N ?, the prompt string 
contains a number of ASCII con- 
trol codes. When the prompt is 



Our new program 
package for the 

TRS-80 
sounds terrific. 



So does the price* 

There are lots of programs with sound that 
are worth about a dollar. Trouble is, thev cost a 
lot more. 

But at Basics &. Beyond we've just developed 
Microcosm III, 20 programs with sound— each 
just as good as our competition's $15 and $20 pro 
grams— for $24.^5. That's a 20-program package 
for $24.95. 

It includes "Pinball," replete with ringing 
bonuses, spinners, buzzers and flippers; torpedo- 
firing "Submarine" that explodes with underwater 
excitement; and the right/wrong buzzer in "Long 
Division" teaches step by step. 

At Basics &. Beyond we underscored our 
point that most other program packages are over- 
priced with Microcosm I and Microcosm II, $19.95 
each. Now a lot of people will start hearing about 
our third package and stop listening to high prices. 

You see, it's not that our program packages 
for the TRS-80™ microcomputer are so cheap. 
It's just that theirs are so expensive. 

BASICS & BEYOND, INC, 

Box 10'Amawalk.N.Y 10501 'Or call 9U.962.2m s A9 
Maaterchanje and Vi&a accepted. 
No charge for postage or handling. NY residents add S'»- tale* tax 
TRS-JtO is a trademark of the Radio Shack diviiion of 'Tandy Corp 



s Reader Service— see page 226 
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Program Listing 




"♦OA"* 




00500 


BPRPTR 


EQU 


40A4H ; 


BASIC 


PROGRAM POINTER 


0093 




00600 


REMTOK 


EQU 


93H i 


REMARK 


TOKEN 


0088 




00700 


DATTOK 


EQU 


88H | 


DATA TOKEN 


40F9 




00800 


SCLRPT 


EQU 


40F9H ; 


POINTER TO VARIABLE TABLE (SCALARS) 


0021 




00900 


FORMAT 


EQU 


• •♦! ; 


ASCII 


CONTROL CODE C SPACE, 1 TO 32 DEC. 


01C9 




01000 


CLS 


EQU 


01C9H ; 


CLS ROUTINE IN ROM 


28A7 




01100 


DISSTR 


EQU 


28A7H ; 


DISPLAYS STRING AT HL UNTIL BYTE=0 


OFAF 




01200 


DISNUM 


EQU 


OFAFH ; 


DISPLAYS DECIMAL REPRESENTATION OF NUMBER 






01300 












41E2 




01400 




ORG 


41E2H 






41E2 


C3E6m 


01500 
01600 




JP 


AUTO 






(*1E6 




01700 
01800 




ORG 


41E6H 






41E6 


3EC9 


01900 


AUTO 


LD 


A,0C9H 




;' RE TURN' COMMAND 


41E8 


32E241 


02000 




LD 


(41E2H),* 




; TO RAM 


41EB 


21CB42 


02100 


DISPR 


LD 


HL, PROMPT 




; POINT TO MESSAGE 


<»1EE 


CDA728 


02200 




CALL 


DISSTR 




jDISPLAY MESSAGE 


41G1 


CD49Q0 


02300 


SCAN 


CALL 


0049H 




;SCAN UNTIL KEYBOARD INPUT 


41F4 


FE4E 


02400 




CP 


•N' 




;="N" ? 


41F6 


2809 


02500 




JR 


Z, NOREM 




;YES, DELETE REMARKS 


41F8 


FE59 


02600 




CP 


lyl 




;="Y" ? 


UFA 


20F5 


02700 




JR 


NZ.5CAN 




;NO, UNACCEPTABLE INPUT 


MFC 


3E52 


02800 




LD 


A,REMSAV- 


REMJP- 


2 ;JR OFFSET 


41FE 


324742 


02900 


REMOPT 


LD 


cremjp+i: 


,A 


; MODI FY PROGRAM 


1*201 


CDC901 


03000 


NOREM 


CALL 


CLS 




; CLEAR SCREEN 


4704 


2AA440 


03100 




LD 


HL, (BPRPTR) 


j POINT TO BASIC PROGRAM 


•♦207 


2B 


03200 




DEC 


HL 






4208 


E5 


03300 




PUSH 


HL 






4209 


Dl 


03400 




POP 


DE 




;HL AND DE POINT BEG. PROG. -1 


420A 


AF 


03500 
03600 




XOR 


A 




;SET AS FOR END OF LINE 


420B 


E5 


03700 


TEXT 


PUSH 


HL 




; SET 'TEXT' 


420C 


210B42 


03800 




LD 


HL,TEXT 




; AS 


420F 


E3 


03900 




EX 


(SP),HL 




| RETURN ADDRESS 


4210 


B7 


04000 




OR 


A 




;A = ? 


4211 


2817 


04100 




JR 


Z, ENDLNE 




;YES, END OF LINE 


"♦213 


FE3A 


04200 




CP 


i • t 




;= •:• t 


4215 


2005 


04300 




JR 


NZ,TEXT1 




;NO, NOT END OF STATEMENT 


4217 


CD2442 


04400 




CALL 


SAVE 




;SAVE END OF STATEMENT MARKER 


421A 


1822 


04500 




JR 


BEGSMT 




; CHECK FIRST BYTE OF TEXT 


421C 


FE21 


04600 


TEXT1 


CP 


FORMAT 




; SPACE OR LINE FEED ? 


1 421E 


3806 


04700 




JR 


C, NOSAVE 




;YES, DO NOT SAVE 


<*220 


FE22 


04800 




CP 


tn i 




; QUOTE ? 


4222 


283F 


04900 
05000 




JR 


Z, QUOTE 




;YES, JUMP TO QUOTE ROUTINE 


4224 


12 


05100 


SAVE 


LD 


(DE),A 




;BYTE TO OBJECT PROGRAM 


4225 


13 


05200 




INC 


DE 




;INC. OBJ. PROG. POINTER 


4226 


23 


05300 


NOSAVE 


INC 


HL 




;INC. SOURCE PROG. POINTER 


4227 


7E 


05400 




LD 


A,(HL) 




; SOURCE BYTE TO A 


U228 


B7 


05500 




OR 


A 




;RETURNS Z FLAG IF END OF LINE 


4229 


C9 


05600 
05700 




RET 






; RETURN 


422A 


E5 


05800 


ENDLNE 


PUSH 


HL 




;END 


422B 


23 


05900 




INC 


HL 




; ° F 


422C 


7E 


06000 




LD 


A,(HL) 




; BASIC 


422D 


23 


06100 




INC 


HL 




; LINE 


422E 


B6 


06200 




OR 


(HL) 




; » 


422F 


El 


06300 


NOTEND 


POP 


HL 




;. FIVE BYTES 


4230 


010500 


06400 




LD 


BC,05 




;. TO 


"♦233 


EDBO 


06500 




LDIR 






J. OBJECT PROGRAM 


■♦235 


281A 


06600 




JR 


Z, EXITSP 




)END OF PROGRAM, EXIT 


4237 


D5 


06700 




PUSH 


DE 




;SAVE ADDRESS OF 


<4238 


DDE1 


06800 




POP 


IX 




; OBJECT PROG. TEXT 


423A 


2B 


06900 




DEC 


HL 




; FUDGE FACTOR 


423B 


CD2642 


07000 


FIRST 


CALL 


NOSAVE 




;INC SOURCE PROGRAM POINTER 


423E 


2849 


07100 


BEGSMT 


JR 


Z,REMDEL 




;NO TEXT, DELETE LINE 


*+ 2 '* 


FE3A 


07200 




CP 


i . i 




;= •:• f 


4242 


28F7 


07300 




JR 


Z, FIRST 




;YES, DO NOT SAVE 


4244 


FE93 


07400 




CP 


REMTOK 




; IS IT A REMARK ? 


4246 


2841 


07500 


REMJP 


JR 


Z,REMDEL 




;YES, JUMP TO REMARK PROCESSING 
ROUTINE 


4248 


FE21 


07600 




CP 


FORMAT 




; SPACE OR LINE FEED ? 


424A 


38EF 


07700 




JR 


C, FIRST 




;YES, DO NOT SAVE IN OBJ. PROGRAM 


424C 


FE88 


07800 




CP 


DATTOK 




;DATA STATEMENT ? 


424E 


2859 


07900 




JR 


Z,DATA 




;YES, JUMP TO PROCESSING ROUTINE 


4250 


C9 


08000 
08100 




RET 






; RETURN 


4251 


IB 


08200 


EXITSP 


DEC 


DE 




; POINT DE TO NEW 


4252 


IB 


08300 




DEC 


DE 




| VARIABLE (SCALAR) POINTER 


4253 


D5 


08400 




PUSH 


DE 




;SAVE ADDRESS OF NEW SCLRPTR 


4254 


2AF940 


08500 




LD 


HL,(SCLRPT) 


;OLD POINTER TO HL 


**257 


ED52 


08600 




SBC 


HL,DE 




;COMPUTE DIFFERENCE 


•♦259 


COAFOF 


08700 




CALL 


DISNUM 




;DISPLAY NUMBER 


425C 


COFE20 


08800 




CALL 


20FEH 




jCURSOR TO NEXT LINE 


425F 


El 


08900 




POP 


HL 




; NEW POINTER TO HL 


4260 


C3772C 


09000 
09100 




JP 


2C77H 




INITIALIZE FOR BASIC 


4263 


CD2442 


09200 


QUOTE 


CALL 


SAVE 




;SAVE (OPENING "" ON ENTRY) 


4266 


C8 


09300 




RET 


Z 




;RETURN IF END OF LINE 


4267 


FE22 


09400 




CP 


i ii i 




; CLOSING »"•? 


4269 


20F8 


09500 




JR 


NZ, QUOTE 




;NO, SAVE BYTE 


426B 


C32442 


09600 




JP 


SAVE 




;SAVE CLOSING '" , | 
Program continues 



printed by routines in BASIC 
ROM, these are recognized as 
control codes and the appropri- 
ate function is performed. 

The first six bytes of the 
prompt would be duplicated in 
BASIC by: 



PRINT CHR$<28);CHR$(31);: 

PRINT CHRS(13);CHR$(13);CHR$(13);: 

(or PRINT:PRINT:PRINT) 
PRINT TAB(16); 



The ASCII control codes are 
described on page C/1 of the 
TRS-80 Level II Manual. 

Auto Execute 

After the tape has been load- 
ed, control goes directly to the 
program. The system command 
calls 42E2. BASIC initializes this 
as a RET. Using a new ORG, the 
system tape changes this to a 
jump to assembler routine 
AUTO. AUTO restores the return 
command so that system will 
not attempt a disasterous jump 
to this program the next time it 
is invoked. 

For those interested in under- 
standing the program in more 
depth, the assembler listing is 
commented and, in addition to 
the usual flow charts, an "organ- 
ization" chart has been pro- 
vided. 

The program uses a number 
of routines in BASIC ROM. For 
the purposes of this article, they 
are treated as "black boxes." 
However, by reading the com- 
ments and seeing how they have 
been used their function and ap- 
plication may be understood. 

T-BUG and Space 

Although the assembler list- 
ing uses multiple origins and the 



• M41E2C9C3 


41 E3 00 E6 


41E4 00 41 


41 E5 3A 3A 


41 E6 B3 3E 


41 E7 48 C9 


41E8 00 32 


41E9 19 E2 


41 EA 80 41 


41EB44 21 


41ECC3CB 


I 41ED63 42 


41EE0B ETC 


| Example 4. 
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£^ nt#t J UTILITIES - RACET computet - RACET SORTS - RACET UTILITIES - RACET computet - RACET SORTS - RACET UTILITIES 

8 THE LEADER IN UTILITY SOFTWARE FOR TRS * COMPUTERS 4 

" INFINITE BASIC $49.95 (Mod I Tape or Disk) § 

«» Extends Level II BASIC with complete MATRIX functions and 50 more string functions. § 

§ Includes RACET machine language sorts! Sort 1000 elements in 9 seconds!! Select only functions 1 

J2 you want to optimize memory usage. 5 

| INFINITE BUSINESS $29.95 (Requires Infinite BASIC) » 

" Complete printer pagination controls - auto headers, footers, page numbers. Packed decimal | 

• arithmetic - 127 digit accuracy + , -,*,/. Binary search of sorted and unsorted arrays. Hash codes. 2 

1 REMODEL + PROLOAD $34.95 (Mod I Tape or Disk -Specify Memory Size) 5 

2 The cadillac of renumbering programs! Renumber all or any part of program (partial renumbering " 
I in middle of program) Move any block of lines to new locations. Partial or complete tape merges • J 
< with renumbering on the way in! Save partial programs (common subroutines or data) to tape! £ 

1 COPSYS $14.95 (Mod I Tape only) § 
| Copy and verify your machine language (SYSTEM) tapes written in standard format. If you buy a Ej 
j machine language program, you deserve to be able to make a backup! ™ 

2 TIMSER $14.95 (Mod I Tape or Disk) ' 



Time Series Analysis (regression analysis). Nine different 1st, 2nd, & 3rd order curve fits. Screen 



curve and variance plots. Projections, R-squared, Durbin Watson, correction factors and functions. J 

J, Powerful business forecasting tool! i 

I MDA $109.00 (Mod 1 16K1-disk minimum) 1 

f- Mini-Disk Alignment Program. This program and a dual trace scope allows complete disk drive , 

£ alignment on Shugart, Pertec, MPI, and Wanco (Seimens) disk drives. Includes alignment diskette! » 

, COMPROC $19.95 (Mod I -Disk only) | 

5 Command Processor. Auto your disk to perform any sequence of instructions that you can give g 

I from the keyboard. DIR, FREE, pause, wait for user input, BASIC, No. of FILES and MEM SIZE, 5 

I RUN program, respond to input statements, BREAK, return to DOS, etc. Includes lowercase driver , 

fc software, debounce and screenprint! » 

< GSF $24.95 Mod I, $50.00 Mod II. (Mod I Tape or Disk - Specify Memory Size) § 
Generalized Subroutine Facilities. The STANDARD against which all other sorts are compared! 5 

o Machine language - fast and powerful! Multi-key multi-variable and multi-key character string. Zero c 

« and move arrays. Mod II includes USR PEEKS and POKES. Includes sample programs. fij 

<2 DOSORT $34.95 (Mod I Min 32K2-drive system. Specify Memory Size) j. 

Sequential file disk sort merge. Includes GSF. > 

£ DSM $75.00 Mod I, $150.00 Mod II. (Mod I Min 32K 2-drive system. Mod II 64K 1-drive) ? 

< Disk Sort/Merge for RANDOM files. All machine language stand-alone package for sorting speed. I 
Establish sort specification in simple BASIC command File. Execute from DOS. Only operator I 

. action to sort is to change diskettes when requested! Handles multiple diskette files! Super fast • 

1 sort times - improved disk I/O times make this the fastest Disk Sort/Merge available on Mod I or Mod II. » 

1 UTILITY PACKAGE $150.00 (Mod II 64K) § 

2 Important enhancements to the Mod II. The file recovery capabilities alone will pay for the package g 
% in even one application! Fully documented in 124 page manual! XHIT, XGAT, XCOPY and SUPERZAP 3 

1 are used to reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, " 

2 'wild-card' mask select, absolute sector mode and other features. SUPERZAP allows examine/change » 
E any sector on diskette include track-0, and absolute disk backup/copy with I/O recovery. DCS builds £ 
I consolidated directories from multiple diskettes into a single display or listing sorted by disk name c 
j- or file name plus more. Change Disk ID with DISKID. XCREATE preallocates files and sets 'LOF' ? 
£ to end to speed disk accesses. DEBUGII adds single step, trace, subroutine calling, program looping, =■ 

* dynamic disassembly and more!! * 

8 BASIC CROSS REFERENCE UTILITY $50.00 (Mod II 64K) J 

SEEK and FIND functions for Variables, Line Numbers, Strings, Keywords. 'AM' options available 8 
- for line numbers and variables. Load from BASIC - Call with "CTRL'R. Output to screen or printer! g 

* DEVELOPMENT PACKAGE $125.00 (Mod II 64K) | 

i Includes RACET machine language SUPERZAP, Apparat Disassembler, and Model II interface to 5 

8 the Microsoft 'Editor Assembler Plus' software package including uploading services and patches ^ 

i for Disk I/O. Purchase price includes complete copy of Editor Assembler + and documentation for & 

1 Mod I Assemble directly into memory, MACRO facility, save all or portions of source to disk, dynamic m 
^ debug facility (ZBUG). extended editor commands. 8 

I PREMIUM QUALITY RACET C-20 CASSETTES $14.95 for 10, $119.95 for 100 | 

i The same specially formulated tape we use for distributing our machine language software. Broad • 

w range for better transfer from machine to machine. Also check our special prices on 5V* and 8" £ 

t diskettes!!! DEALER INQUIRIES INVITED ' TRS 80 is a registered IraOemark o? CHECK. VISA. M/C. C D . PURCHASE 0R0EA rn 

— Tandy Corporation Tilipltoni Oifliti Acctpltd |7Hj 637 5016 "• 

3 RACET SOBTS - RACET UTILITIES - RACET computet - RACET SORTS - RACET UTILITIES - RACET coroputM - RACET SORTS - RACET UTILITIES - RACET SORTS 
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09700 














09800 ;NEW 


ORG IF LOADED INTO 


BUFFER AREA 






09900 ; SYSTEM COMMAND 


USES 4287 TO 


426E FOR STACK 






10000 ;0N 


ENTRY TO 'SYSTEM', 


5P SET 


TO 4288 






10100 










4289 




10200 
10300 


ORG 


4289H 






4289 


DDES 


10400 REMDEL PUSH 


IX 




; IX TO HL 


428B 


E3 


10500 


EX 


CSP),HL 




; HL TO STACK 


428C 


DF 


10600 


RST 


18H 




;HL = DE ? 


428D 


El 


10700 


POP 


HL 




1 RESTORE HL 


428E 


IB 


10800 


DEC 


DE 




;DEC OBJ PROS POINTER 


428F 


2004 


10900 


JR 


NZ,REM1 




jREM IS NOT AT BEGINNING OF LINE 


4291 


IB 


11000 


DEC 


DE 




;REM IS AT BEGINNING OF LINE 


4292 


IB 


11100 


DEC 


DE 




j DEC OBJECT PROG. POINTER 


4293 


IB 


11200 


DEC 


DE 




; TO END OF 


4294 


IB 


11300 


DEC 


DE 




; PREVIOUS LINE 


4295 


AF 


11400 REM1 


XOR 


A 




COMPARISON BYTE FOR SEARCH 


4296 


EDB1 


11500 


CPIR 






; SEARCH 


4298 


2B 


11600 


DEC 


HL 




;POINT TO END OF LINE 


4299 


C9 


11700 
11800 


RET 






; RETURN 


429A 


23 


11900 REMSAV INC 


HL 




;WHICH 


429B 


7E 


12000 


LD 


A,CHL) 




; FORM 


429C 


2B 


12100 


DEC 


HL 




; OF 


4290 


FEFB 


12200 


CP 


OFBH 




; REMARK ? 


429F 


2001 


12300 


JR 


NZ, REMSAO 


; SIMPLE 'REM', NOT " ' " 


42A1 


2B 


12400 


DEC 


HL 




I POINT TO PRECEEDING ':' 


42A2 


7E 


12500 REMSAO LD 


A,CHL) 




jBYTE TO A 


42A3 


C02442 


12600 


CALL 


SAVE 




;SAVE UNTIL 


42A6 


20FA 


12700 


JR 


NZ, REMSAO 


; END OF LINE 


42A8 


ci 


12800 
12900 


RET 






; RETURN 


42A9 


062C 


13000 DATA 


LD 


•#V 




;SET FOR "OK TO DELETE FORMAT" 


42AB 


CD2442 


13100 DATAl CALL 


SAVE 




jSAVE DATA TOKEN 


42AE 


CI 


13200 DATA2 RET 


Z 




J END OF LINE 


42AF 


FE22 


13300 


CP 


in i 




1 s "" 


42B1 


CC6342 


13400 


CALL 


Z, QUOTE 




;YES, PROCESS QUOTE 


42B4 


B7 


13500 


OR 


A 




j END OF LINE ? 


42B5 


C8 


13600 


RET 


Z 




;YES, RETURN 


42B6 


FE3A 


13700 


CP 


' : • 




>END OF STATEMENT 7 


42B8 


C8 


13800 


RET 


Z 




J YES, RETURN 


42B9 


FE21 


13900 


CP 


FORMAT 




; SPACE OR LINE FEED 1 


42BB 


300B 


14000 


JR 


NC,DATA4 


j NO, 5 AVE BYTE 


42B0 


78 


14100 


LD 


A/B 




{PREVIOUS OBJECT 


42BE 


FE2C 


14200 


CP 


• i 




; BYTE A ",• ? 


42C0 


2005 


14300 


JR 


NZ, DATAJ 


j NO, SAVE BYTE 


42C2 


CC2642 


14400 


CALL 


Z, NOSAVE 


;YES, OK TO DELETE 


42C5 


18E7 


14500 


JR 


OATA2 




/NEXT DATA BYTE 


42C7 


7E 


14600 0ATA3 LD 


A,CHL) 




; RESTORE CURRENT BYTE 


42C8 


47 


14700 DATA4 LD 


B,A 




;SAVE FOR COMPARISON 


42C9 


18E0 


14800 
14900 


JR 


DATAl 




j NEXT BYTE 


42CB 


1C 


15000 PROMPT OEFB 


28 




;HOME CURSOR 


42CC 


IF 


15100 


DEFB 


31 




; CLEAR TO END OF FRAME 


42CD 


OD 


15200 


OEFB 


13 




;CURSOR TO NEXT LINE 


42CE 


OD 


15300 


DEFB 


13 






42CF 


OD 


15400 


DEFB 


13 






42O0 


DO 


15500 


DEFB 


208 




;TAB(16) 


| 42D1 


53 


15600 


DEFM 


•SAVE REMARKS 


Y/N ?• 


42E4 


00 


15700 
15800 


DEFB 







;END OF MESSAGE MARKER 


0000 




15900 

AUTO 
BECSMT 

BPRPTR 

CLS 

DATA 

DATAl 

DATA 2 

DATAJ 

DATA4 

OATTOK 

DISNUM 

DISPR 

DISSTR 

ENDLNE 

EXITSP 


END 

41E6 01500 
423D 06600 
40A4 00600 
01C9 01100 
42A9 12500 
42AB 12600 
42AE 12700 
42C7 14100 
42C8 14200 
0088 00800 
OFAF 01300 
41EB 01700 
28A7 01200 
422A 05400 
4250 07700 


00200 
04100 
02700 
02600 
07400 
14300 
14000 
13800 
13500 
07300 
08200 

01800 
03700 
06100 










FIRST 


423A 06500 


06800 


07200 








FORMAT 


0021 01000 


04200 


07100 


13400 






NOR EM 


4201 02600 


02100 










NOSAVE 


4226 04900 


04300 


06500 


13900 






NOTEND 


422E 05800 












PROMPT 


42CB 14500 


01700 










QUOTE 


4262 08700 


04500 


09000 


12900 






REM1 


4295 10900 


10400 










REMDEL 


4289 09900 


06600 


07000 








REMJP 


4245 07000 


02400 


02500 








REMOPT 


41FE 02500 












REMSAO 


42A2 12000 


11800 


12200 








REMSAV 


429A 11400 


02400 










REMTOK 


0093 00700 


06900 










SAVE 


4224 04700 


04000 


08700 


09100 12100 12600 






SCAN 


41F1 01900 


02300 










SCLRPT 


40F9 00900 


08000 










TEXT 

TEXT1 


4208 03300 
421C 04200 


03400 
03900 







program lies in noncontiguous 
memory, it may be entered by 
T-BUG or another monitor pro- 
gram. 

At the time when the byte 
read from the tape is written into 
RAM, the stack is at its highest 
position, and therefore no dam- 
age will be done. Bytes will be 
loaded into the stack area, but 
will immediately be overwritten 
by the stack operations of the 
system load. 

The assembler does not print 
out the ASCII values for DEFM 
commands. These values are 
given in Example 3. 

After the program has been 
entered, punch a tape with P 
41 E2 42E4 OOOO SPACE (enter). 
Any value may be entered for the 
entry point as it is never used. 

If all of this is still a little new 
to you, compare Example 4 with 
the assembler listing. This will 
show how the two relate and 
how to enter the listing with 
T-BUG. 

Be careful that 41 E5 is not 
changed. The column on the 
right is the program from the as- 
sembler listing. The column in 
the middle is whatever was in 
the input buffer. 

Disk BASIC and Space 

This program is intended pri- 
marily for the Level II user. It is, 
however, currently being used 
with a recently acquired disk op- 
erating system with no notice- 
able ill effects. 

However, 41 E6 to 42E7 is no 
longer the input buffer area. I 
have no idea what it becomes. 
The buffer may be found by look- 
ing in 40A7 and 40A8. These two 
bytes hold the address of the in- 
put buffer. 

Three bytes of RAM will be 
changed. In Level II, 41 E2 is a 
RET (c9). In NEWDOS. it is a 
jump to another address which 
is a RET. Changing 41 E2 to RET, 
obviously, performs the same 
function from a different ad- 
dress. This change has yet to 
cause trouble. 

With an input buffer, an over- 
lay area and a number of disk in- 
put buffers to play with, other 
areas of RAM could be called in- 
to use for this utility; and, the 
auto execute feature could be 
removed. ■ 
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RS 80 inter foci 
alternatives... 

Featuring the Quality Engineering and 
Manufacturing of THE MICRO MINT 




FULL 8-BIT PARALLEL PORT 

RS-232-C SERIAL PORT (up to 19,200 baud) 

UP TO 16 UNITS CAN BE CHAINED TOGETHER 

TRS-BUS CONNECTOR FOR FUTURE EXPANSION 

CONNECTS TO KEYBOARD OR E.I. 

INCLUDES TERMINAL SOFTWARE 

ONLY $179.95 



HATTER BOX 



FULL 8-BIT PARALLEL PORT 
RS-232-C SERIAL PORT (up to 19,200 baud) 
ACOUSTIC MODEM - 300 BAUD 
TRS-BUS CONNECTOR FOR FUTURE EXPANSION 
CONNECTS TO KEYBOARD OR E.I. 
CAN BE CHAINED TOGETHER WITH COMM-80 
NCLUDES TERMINAL SOFTWARE 
ONLY $259.95 

• DISK CONTROLLER (up to 4 drives) 

• DATA SEPARATOR INCLUDED 

• INCLUDES 16K OF RAM 

• PROVISION FOR AN ADDITIONAL 16K RAM 

• TRS-BUS CONNECTOR FOR FUTURE EXPANSION 
ONLY $299.95 



BUSY BOX 



ALLOWS TRS-80 TO CONTROL AC APPLIANCES 
CABLE AND CONNECTOR FOR TRS-80 KEYBOARD OR E 
WORKS WITH THE POPULAR BSR X-10 SYSTEM 
INCLUDES BASIC LISTING FOR CONTROL ROUTINE 
LEVEL II MINIMUM SYSTEM 
ONLY $109.95 



ALL INTERFACES ARE RADIO SHACK HARDWARE AND SOFTWARE COMPATIBLE. 



MAIL ORDER OR INFORMATION 
WRITE OR CALL: (516) 374-6793 
The MicroMint Inc 
917 Midway 
Woodmere, NY 11598 
Dealer inquiries invited. 



CALLOUR QUICK 
TOLL FREE NUMBER: 

1-800-258-1790 

•trs BO is • trademark of Tandy Corp 



9v*der Service— see page 226 
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UTILITY 



Single stroke entry of BASIC keywords. 



Uni-key 



Rowland Archer Jr. 
Flint Ridge Apt. 59 
Hillsborough, NC 27278 



One night while I was trying 
to massage some life into 
my tired fingers after a couple of 
hours at the keyboard, it oc- 
curred to me that typing pro- 
grams is the sort of drudgery a 



computer is supposed to take 
out of life, not put into it. Typing 
a BASIC program repeats many 
of the same BASIC keywords 
over and over again. 

To pass some of this work off 
on the TRS-80, 1 needed a way to 
let it know which keyword I 
wanted with a single-key abbre- 
viation. Using computerized 
keywords would also cut down 
on syntax errors and tedious 
editing. 



Input 


ASCII Value 


Output 


Special characters 


0-25 


Same as input 


SHIFT/Down Arrow 


26 


Substitute user-defined 
string (up to 64 chars) 


Special characters 


27-30 


Same as input 


SHIFT/CLEAR 


31 & Shift* 


None (Start/end user strin 
definition) 


Special characters 


32-64 


Same as input 


and numbers 






Uppercase letters 


65-90 


Same as input 


Special characters 


91-96 


Same as input 


Lowercase letters 


97-122 


Substitute a BASIC 
keyword 


Special characters 


123-127 


Same as input 



'Since the keyboard driver returns 31 for both SHIFT/CLEAR and CLEAR, we 
must test for the Shift key separately. 

Table 1. Function of keyboard filter routine. 



Input ASCII Value Output 

Special characters 0-25 Same as input 

Shift-Down Arrow 26 Substitute user-defined 

string (up to 64 chars) 
Special characters 27-30 Same as input 

Shift-Clear 31 & Shift* None (Start/end user string 

definition) 
Same as input 



Special characters 32-64 



RAM Size 
16K 

32K 

48K 



ORG of Program 
7E58H 
BE58H 
FE58H 



Answer MEMORY SIZE? 
32361 
48745 
65129 



Table 2. Origin of program and MEMORY SIZE for different 
RAM sizes. 



Lowercase ASCII Code 

Even though BASIC is upper- 
case only on the TRS-80, the 
keyboard will generate lower- 
case ASCII character codes. Try 
this short BASIC program and 
see what happens: 

10 CLS: 
20AS«"" 

30 AS =» INKEYS: IF A$ = "" THEN GOTO 30 
40 PRINT®0.ASC(AS);: GOTO 20 

Run the program and press 
any alphabetic key, say "A." The 
ASCII code for uppercase A, 65, 
should appear on the screen. 
Now press SHIFT A; the code 
printed should be 97, which is 
lowercase a. 

To get lowercase letters on a 
TRS-80, you press the SHIFT 
key. Although it may seem back- 
wards to shift for lowercase, 
would you rather have to shift 
for uppercase? You would have 
to hold down the SHIFT key to 
enter every BASIC keyword. A 
SHIFT-lock key would get 
around this problem, but ap- 
parently Radio Shack didn't feel 
the need for one. This article, 
however, will relate a software 
fix. 

A routine, which examines 
every pressed key before the 
character value is returned to 
the BASIC interpreter program, 
is necessary. When the TRS-80 
appears to be doing nothing, it 
is actually reading the keyboard 
over and over, waiting for a key 
to be pressed. 

Assuming it is possible to 
intercept characters from the 
keyboard and look them over 
before they reach BASIC; then it 



is possible to decide whether to 
send the character on to BASIC 
as is, send back some other 
character instead, or even send 
BASIC a stream of two or more 
characters in its place. 

To accomplish this, it is nec- 
essary to install a filter between 
the keyboard and the BASIC 
Interpreter. This would be a 
device whose action filters input 
data streams to produce output 
data. 

We need a filter which trans- 
lates some input characters to 
BASIC keywords, and leaves 
others alone. If the character we 
intercept from the keyboard is 
an uppercase letter, a number or 
a special symbol (@,<, +,etc.), 
our program should pass the 
character on to the caller un- 
changed. 

However, if it is a lowercase 
letter (a-z), which is transmitted 
when the user hits the SHIFT 
key and a letter, the filter should 



SHIFT for Keywords: 


A PRINT© 


N 


NEXT 


B ELSE 


O 


POKE 


C CHR$( 


P 


PEEK( 


D DATA 


Q 


LEFT$( 


E RIGHT* 


R 


RETURN 


F FOR 


S 


GOSUB 


G GOTO 


T 


TAB< 


H RND( 


U 


USING 


I INPUT" 


V 


STRINGS* 


J READ 


W 


MIOS: 


K INKEYS 


X 


SET( 


L LEN( 


Y 


THEN 


M ASC( 


Z 


RESET* 


CLEAR— START/END Definition 


Down Arrow- 


-User String 


Table 3. Reference chart 


to tape on 


your monitor. 
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Program Listing 






00010 


ONESTR - ONE 


STROKE KEYWORD ENTRY PROGRAM. INTERCEPTS 






00020 




LOWER- 


CASE CHARACTERS AND REPLACES THEM WITH 






00030 




KEYWORD STRINGS. ALSO ALLOWS THE USER TO ASSIGN A 






00040 




STRING OF UP TO 64 BYTES TO 'SHIFT-DOWN ARROW'. 






00050 




DEFINITION OF THIS STRING IS INITIATED AND 






00060 




TERMINATED BY 'SHIFT-CLEAR'. 






00070 












00080 




REV 2 


2 2/9/79 






00090 












00100 




BY ROWLAND ARCHER 






00110 




FLINT RIDGE 59 






00120 




HILLSBOROUGH, NC 27278 






00130 








4016 




00140 KEYDRV 


EQU 


4016H .-ADDRESS IN KEYBOARD DCB 






00150 






; OF DRIVER ROUTINE 


3880 




00160 
00170 


SHIFT 


EQU 


3880H ;(3880H) IS 1 IF 'SHIFT' 
; KEY IS PRESSED 


033A 




00180 


PUTC 


EQU 


033AH .-PUT CHAR IN A ON SCREEN 


00CD 




00190 


2ALL 


EQU 


0CDH .-'CALL' OPCODE VALUE 


001F 




00200 


DEFKEY 


EQU 


31 ;' SHIFT-CLEAR' KEY 


001A 




00210 
00220 


JDSKEY 


EQU 


26 ; 'RETURN USER-DEF STRING 1 
; KEY = 'SHIFT-DOWN ARROW 1 


0040 




00230 
00240 


JSTLEN 


EQU 


64 ; USER-DEFINED STRING LENGTH 






00250 


THE FOLLOWING INITIALIZATION CODE IS PERFORMED ONLY 






00260 


•WHEN THIS ROUTINE IS LOADED AND RUN THE FIRST TIME. 






00270 








7E58 




00280 




ORG 


07E58H ;ORG FOR 16K SYSTEM 


7E58 


2A1640 


00290 


INIT 


LD 


HL, (KEYDRV) .-GET ADDR OF KEYBRD DRIVER 


7E5B 


224E7F 


00300 




LD 


(KEYDRl).HL ; ROUTINE AND BUILD TWO 


7E5E 


22B07F 


00310 
00320 




LD 


(KEYDR2),HL ; CALL INSTRUCTIONS IN 
; THIS CODE WITH IT 


7E61 


21477F 


00330 




LD 


HL, ONESTR ; NOW PUT THE ADDRESS OF THE 


7E64 


221640 


00340 
00350 




LD 


(KEYDRV) ,HL ; ENTRY PT TO THIS ROUTINE 
; INTO THE KEYBOARD DCB 






00360 


•ft******************************************************* 






00370 


;YOU MUST CHOOSE ONLY ONE OF THE FOLLOWING TWO JUMP 






00380 


; INSTRUCTIONS 


TO EXIT THIS INITIALIZATION CODE. 






00390 


;IF YOU 


ARE GOING TO LOAD THIS PROGRAM FROM DISK WHILE 






00400 


;IN DOS 


, USE 








00410 


; 


JP 


402DH ; TO RETURN TO DOS 






00420 


;IF YOU 


ARE GOING TO LOAD FROM TAPE WHILE IN BASIC. USE 


7E67 


C3191A 


00430 




JP 


1A19H ; TO RETURN TO BASIC 






00440 


********************************************************* 






00450 


; 










00460 


; ABOVE 


CODE 


IS ONLY USED ONCE AND CAN BE OVERWRITTEN 






00470 


; AFTER 


IT RUNS - SO 'MEMORY SIZE?' PROTECTIONS STARTS 






00480 


; WITH 


THE FOLLOWING DATA STRUCTURES: 






00490 


; 






7E6A 


52 


00500 


USTR 


DEFM 


'RUN' ;USER STRING; INITIALLY 


7E6D 


0D 


00510 




DEFB 


0DH ; 'RUN <ENTER>' 


7E6E 


00 


00520 




DEFB 


;END OF STRING 


0005 




00530 


USED 


EQU 


$-USTR .'SIZE OF PREDEFINED STRING 


003B 




00540 
00550 


REST 


DEFS 


USTLEN-USED ; ALLOCATE SPACE FOR REST 
; OF USER-DEFINED STRING 


7EAA 


00 


00560 




DEFB 


; FORCE END OF STRING 


7EAB 


00 


00570 
00580 
00590 


OSFLAG 


DEFB 


; ONE-STROKE FLAG: = 1 WHILE 
; WE ARE SUBSTITUTING FOR A 
; LOWER-CASE CHARACTER 


7EAC 


0000 


00600 
00610 
00620 


DSPTR 


DEFW 


; ADDRESS OF CURRENT CHAR 
; IN SUBSTITUTE STRING 






00630 


; TABLE 


OF STRINGS TO SUBSTITUTE FOR LOWER-CASE CHARS. 






00640 


; STRINGS ARE 


I-ERMINATED BY NULL (0) BYTES. STRING 






00650 


.•LABELLED 'LA 


' IS SUBSTITUTED FOR 'SHIFT-A*, 'LB' 






00660 


;FOR 'SHIFT-B 


', ETC. EXCEPT FOR 'LA', LABELS 






00670 


;ARE NOT REQUIRED, AND ARE ONLY INCLUDED FOR EASE IN 






00680 


.•DETERMINING 


rHE STRING TO BE SUBSTITUTED FOR EACH LETTER. 






006 90 


1 






7EAE 


50 


00700 


LA 


DEFM 


' PRINTS' 


7EB4 


00 


00710 




DEFB 


.-ZERO BYTE END OF STRING 


7EB5 


45 


00720 


LB 


DEFM 


• ELSE ' 


7EB9 


00 


00730 




DEFB 





7EBA 


43 


007 40 


LC 


DEFM 


'CHR$(' 


7EBF 


00 


00750 




DEFB 





7EC0 


44 


00760 


LD 


DEFM 


' DATA ' 


7EC4 


00 


00770 




DEFB 





7EC5 


52 


007 80 


LE 


DEFM 


'RIGHT$(' 


7ECC 


00 


007 90 




DEFB 





7ECD 


46 


00800 


LF 


DEFM 


'FOR' 


7ED0 


00 


00810 




DEFB 





7 EDI 


47 


00820 


LG 


DEFM 


'GOTO' 


7ED5 


00 


00830 




DEFB 





7ED6 


52 


00840 


LH 


DEFM 


'RND(' 


7 EDA 


00 


00850 




DEFB 





7EDB 


49 


00860 


LI 


DEFM 


'INPUT" 


7EE1 


00 


00870 




DEFB 





7EE2 


52 


00880 


LJ 


DEFM 


'READ' 


7EE6 


00 


00890 




DEFB 


Program continues 



replace that letter in the input 
stream with a BASIC keyword. 

To do this, when a lowercase 
letter is read from the keyboard 
set a substitution flag in the rou- 
tine, indicating that keyword 
substitution has begun. Use the 
ASCII value of the letter as an in- 
dex to a table of BASIC key- 
words. Pass BASIC the first let- 
ter of the indexed keyword in- 
stead of the lowercase letter 
read from the keyboard. 

When BASIC calls for input 
from the keyboard again, the 
routine will note that the 
substitution flag is set and will 
send back the next character of 
the keyword, without bothering 
to look at the keyboard to see if 
any keys are pressed. This con- 
tinues until the entire keyword is 
sent. Then the flag is reset to 
normal operation until the next 
lowercase letter code is re- 
ceived. All this happens so 
quickly that the keyword seems 
to appear on the screen the in- 
stant the key is pressed. 

Note that only 26 keywords 
can be handled with this meth- 
od. However, it is possible to 
select a group of keywords 
which are either frequently 
used, difficult to type or both. 
You can experiment by includ- 
ing different keywords until you 
find the best subset for your 
needs. I have found the set of 26 
chosen here to be very useful. 

Intercepting Input 

Since the routine will be used 
while editing BASIC programs, 
the easiest approach is to write 
an assembly language routine 
to look at characters before the 
BASIC editor scans them. 

Take a look at the memory 
map in the back of your Level II 
BASIC manual. At location 
4015H (hexadecimal) in the 
BASIC Reserved RAM area, 
there is a device control block 
for the keyboard. 

Location 401 6H is initialized 
by BASIC with the address of 
the keyboard driver routine. A 
call to this routine returns with 
in the A register if no key is 
pressed, or the ASCII value of 
the key if one is pressed (like an 
assembly language INKEYS 
routine). 

Load the routine into high 
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memory, where it can be pro- 


7EE7 49 


00900 LK 


DEFM 


•INKEY$' 


tected from BASIC by answer- 


7EED 00 
7EEE 4C 


00910 
00920 LL 


DEFB 
DEFM 




'LENC 


ing the MEMORY SIZE? prompt 


7EF2 00 


00930 


DEFB 





appropriately on startup. When 


7EF3 41 
7EF7 00 


00940 LM 
00950 


DEFM 
DEFB 


•ASCC 



it is first run, it will grab the ad- 


7EF8 4E 


00960 LN 


DEFM 


'NEXT' 


dress of the keyboard driver rou- 


7EFC 00 


00970 


DEFB 





tine from location 4016H and 


7EFD 50 


00980 LO 


DEFM 


'POKE' 




7F01 00 


00990 


DEFB 





save It for later use. It then 


7F02 50 


01000 LP 


DEFM 


'PEEKC 


stores the address of its own en- 


7F07 00 
7F08 4C 


01010 
01020 LQ 


DEFB 
DEFM 




1 LEFT$ ( ' 


try point at 4016H, so that every 


7F0E 00 


01030 


DEFB 





routine (in ROM or elsewhere) 


7F0F 52 
7F15 00 


01040 LR 
01050 


DEFM 
DEFB 


* RETURN ' 



which used to call the keyboard 


7F16 47 


01060 LS 


DEFM 


1 GOSUB ' 


driver directly will now call this 


7F1B 00 
7F1C 54 


01070 
01080 LT 


DEFB 
DEFM 




' TAB { ' 


routine instead. 


7F20 00 


01090 


DEFB 





The normal keyboard driver is 


7F21 55 


01100 LU 


DEFM 


'USING' 


called as a subroutine to read 


7F26 00 


01110 


DEFB 







7F27 53 


01120 LV 


DEFM 


' STRINGS (' 


from the keyboard. If no key is 


7F2F 00 


01130 


DEFB 





pressed, the subroutine will 


7F30 4D 
7F35 00 


01140 LW 
01150 


DEFM 
DEFB 


•MID$C 



return a zero to the accumulator 


7F36 53 


01160 LX 


DEFM 


'SETC 


(register A); in this case we re- 


7F3A 00 
7F3B 54 


01170 
01180 LY 


DEFB 
DEFM 



'THEN* 


turn to the caller without chang- 


7F3F 00 


01190 


DEFB 





ing a thing. 


7F40 52 


01200 LZ 


DEFM 


' RESET (' 




7F46 00 


01210 


DEFB 









01220 ; 

01230 ;MAIN ROUTINE 

01240 ; 


ENTRY POINT: 








7F47 3AAB7E 


01250 ONESTR 


LD 


A, (OSFLAG) 


IF FLAGO0 WE ARE IN THE 


7F4A B7 


01260 


OR 


A 


MIDDLE OF A SUBSTITUTION 


7F4B 2038 


01270 
01280 ; 


JR 


NZ,SUBST 


CONTINUE SUBSTITUTION 




01290 ;CALL NORMAL 


ROUTINE TO GET CHARACTER FROM KEYBOARD 




01300 ; 








7F4D CD 


01310 


DEFB 


CALL 


', BECOMES 'CALL GET-CHAR' 


7F4E 0000 


01320 KEYDRl 

01330 

01340 


DEFW 





; WHEN INITIALIZATION CODE 
; PUTS ADDRESS OF KEYBOARD 
; DRIVER ROUTINE HERE 


7F50 B7 


01350 


OR 


A 


.•CHARACTER RETURNED IN A 


7F51 C8 


01360 
01370 
01380 ; 


RET 


Z 


;0 MEANS NO KEY PRESSED, 
;SO JUST RETURN TO CALLER 




01390 ;A KEY 


HAS BEEN PRESSED, HANDLE 


IT IF IT IS 'DEFKEY' , 




01400 ; 'UDSKEY' OR 


LOWER-CASE LETTER; 


ELSE JUST RETURN IT. 




01410 ; 








7F52 FE1F 


01420 


CP 


DEFKEY 


;DEFINE USER STRING? 


7F54 2840 


01430 


JR 


Z, DEFINE 


;YES, GO DO IT 


7F56 FE1A 


01440 


CP 


UDSKEY 


REQUESTING USER STRING? 


7F58 2808 


01450 


JR 


Z , SUBMOD 


;YES, START SUBSTITUTION 


7F5A FE61 


01460 


CP 


97 


;KEY < LOWER-CASE A? 


7F5C D8 


01470 


RET 


C 


;YES, RETURN UNCHANGED 


7F5D FE7B 


01480 


CP 


123 


;KEY < LOWER-CASE Z + 1? 


7F5F 3801 


01490 


JR 


C, SUBMOD 


;YES, SUBSTITUTE 


7F61 C9 


01500 
01510 ; 


RET 




j NO, RETURN UNCHANGED 




01520 ; START 


NEW SUBSTITUTION - SET OS 


FLAG = 1, 




01530 ;SET POINTER 


TO STRING TO SUBSTI 


TUTE 




01540 ; 








7F62 E5 


01550 SUBMOD 


PUSH 


HL 




7F63 FE1A 


01560 


CP 


UDSKEY 


; USER-DEFINED STRING? 


7F65 2005 


01570 


JR 


NZ, KEYWRD 


;NO, IT'S KEYWORD 


7F67 216A7E 


01580 


LD 


HL,USTR 


;YES, GO SAVE POINTER TO 


7F6A 1810 


01590 


JR 


SRCHDN 


; STRING AND SET MODE FLAG 




01600 












01610 


KEY PRESSED 


WAS A LOWER-CASE LE 


TTER. SET POINTER TO FIRST 




01620 


CHARACTER OF KEYWORD TO SUBSTI1 


UTE FOR IT. 




01630 










7F6C 21AE7E 


01640 KEYWRD 


LD 


HL,LA 


;BASE OF SUBST-STRING TABLE 


7F6F D661 


01650 
01660 


SUB 


97 


; SUBTRACT ASCI I ( LOWER-CASE 
; A) FROM KEY PRESSED 


7F71 B7 


01670 


OR 


A- 


;ZERO => LOWER-CASE A 


7F72 2808 


01680 


JR 


Z, SRCHDN 


; PRESSED, END SEARCH 


7F74 47 


01690 


LD 


B,A 


;ELSE A HOLDS NUMBER OF 


7F75 7E 


01700 NXTC 


LD 


A, (HL) 


; KEYWORDS TO SKIP OVER TO 


7F76 23 


01710 


INC 


HL 


; FIND STRING TO SUBSTITUTE 


7F77 B7 


01720 


OR 


A 




7F78 20FB 


01730 
017 40 


JR 


NZ,NXTC 


; INNER LOOP FINDS NULL 

; END-OF-STRING BYTES 1 


7F7A 10F9 


01750 
01760 ; 


DJNZ 


NXTC 


; OUTER LOOP COUNTS KEYWORDS 




01770 ;END SEARCH 


- HL HAS POINTER TO 


DESIRED STRING 




017 80 ; 








7F7C 22AC7E 


017 90 SRCHDN 


LD 


(OSPTR) ,HL 


;SAVE POINTER TO STRING 


7F7F 3E01 


01800 SETMD 


LD 


A,l 


; SUBSTITUTION MODE STARTS 

Program continues 



If a key has been pressed, it is 
examined as discussed above, 
and if it is a lowercase alpha- 
betic code, the keyword substi- 
tution routine begins. 

A User Defined Key 

The above technique allows 
entry of 26 BASIC keywords with 
a single keystroke, and by itself 
will save a lot of typing. But 
many BASIC programs use the 
same expression over and over 
again; It would be convenient to 
enter a phrase once and then re- 
call it with a single keystroke. 

To do this, a key must be 
defined whose substitution 
value can be changed dynami- 
cally, without having to reas- 
semble and reload the assembly 
language routine. This feature is 
easily added by declaring one 
key as the "define user string" 
key. This routine uses SHIFT/ 
CLEAR. The "substitute user de- 
fined string" key is the shifted 
down arrow. 

These keys can be located in 
the input stream In the same 
way shifted alphabetic charac- 
ters are intercepted. When 
SHIFT/CLEAR is pressed, a 
START DEFINITION prompt is 
printed on the screen. Each 
character typed, up to 64 char- 
acters, Is saved In memory until 
SHIFT/CLEAR is hit again. This 
terminates the definition of the 
string. END DEFINITION is writ- 
ten on the screen. 

Now when SHIFT plus the 
down arrow are pressed, the 
defined string is returned. Table 
1 gives a summary of the ac- 
tions the filter routines will per- 
form for the range of possible 
keyboard inputs. 

The origin shown in the Pro- 
gram Listing of ONESTR is for a 
16K machine. Table 2 gives the 
ORG value to substitute, as well 
as the appropriate answers to 
the MEMORY SIZE? prompt, for 
32K and 48K machines. 

At label INIT you will find the 
initialization code, which must 
be executed once when ONE- 
STR is loaded. This code re- 
trieves the address of the cur- 
rent keyboard driver routine 
from the keyboard device con- 
trol block and stores it after the 
CALL opcodes at labels KEY- 
DRl and KEYDR2. 



78 • 80 Microcomputing, September 1980 



7F81 32AB7E 


01810 




LD 


(OSFLAG) ,A 




7F84 El 


01820 
01830 ; 




POP 


HL » 


RESTORE HL 




01840 ; 


BRANCH 


HERE 


tfHEN WE ARE DOING A 


SUBSTITUTION 




01850 ; 










7F85 E5 


01860 SUBST 


PUSH 


HL ; 


SAVE HL 


7F86 2AAC7E 


01870 




LD 


HL,(OSPTR) } 


GET CURRENT' CHARACTER 


7F89 7E 


01880 




LD 


A, (HL) » 


OF SUBSTITUTION STRING 


7F8A B7 


01890 




OR 


A ; 


NULL END-OF-STRING? 


7F8B 2003 


01900 




JR 


NZ, NOTEND » 


NO, MORE TO GO 


7F8D 32AB7E 


01910 




LD 


(OSFLAG), A ; 


YES, END SUBSTITUTION 


7F90 23 


01920 NOTEND 


INC 


HL | 


BUMP POINTER TO NEXT 


7F91 22AC7E 


01930 




LD 


(OSPTR),HL i 


CHARACTER AND SAVE IT 


7F94 El 


01940 




POP 


HL ; 


RESTORE HL 


7F95 C9 


01950 
01960 , 




RET 




RETURN CHARACTER IN A 




01970 


DEFINITION OF USER STRING 






01980 










7F96 3A8038 


01990 I 


)EFINE 


LD 


A, (SHIFT) J 


SHIFT DEPRESSED? 


7F99 B7 


02000 




OR 


A 


(DEFINE ON 'SHIFT-CLEAR') 


7F9A 2004 


02010 




JR 


NZ,DEF I 


YES, DEFINE IT 


7F9C 3E1F 


02020 




LD 


A, DEFKEY J 


NO, RETURN 'CLEAR' 


7F9E B7 


02030 




OR 


A ] 


SET FLAGS FOR CALLER 


7F9F C9 


02040 
02050 




RET 




RETURN CHAR IN A 


7FA0 C5 


02060 I 


)EF 


PUSH 


BC J 


SAVE CALLER'S BC 


7FA1 E5 


02070 




PUSH 


HL 1 


SAVE CALLER'S HL 


7FA2 21DE7F 


02080 




LD 


HL , STRTDF 


PUT PROMPT FOR START OF 


7FA5 CDD57F 


02090 




CALL 


PUTSTR 


USER STRING DEFINITION 


7FA8 216A7E 


02100 




LD 


HL,USTR 


POINTER TO USER STRING AREA 


7 FAB 0640 


02110 




LD 


B,USTLEN 


MAX SIZE OF USER STRING 


7FAD E5 


02120 ( 


3ETC 


PUSH 


HL 


SAVE OUR HL 


7FAE C5 


02130 




PUSH 


BC 


SAVE OUR BC 


7FAF CD 


02140 




DEFB 


CALL 


BECOMES 'CALL GET-CHAR' 


7FB0 0000 


02150 1 


<EYDR2 


DEFW 





ADDR OF KEY DRIVER HERE 


7FB2 CI 


02160 




POP 


BC 


RESTORE OUR BC 


7FB3 El 


02170 




POP 


HL 


RESTORE OUR HL 


7FB4 B7 


02180 




OR 


A 


IS A NON-ZERO? 


7FB5 28F6 


02190 




JR 


Z,GETC 


LOOP UNTIL KEY PRESSED 


7FB7 FE1F 


02200 




CP 


DEFKEY 


END DEFINITION? 


7FB9 2008 


02210 




JR 


NZ,NTENDF 


NOT END DEFINITION CHAR 


7FBB 3A8038 


02220 




LD 


A, (SHIFT) 


SHIFT KEY PRESSED? 


7FBE B7 


02230 




OR 


A 


NOT ZERO IF IT IS 


7FBF 2009 


02240 




JR 


NZ, ENDDEF 


•YES, END DEFINITION 


7FC1 3E1F 


02250 




LD 


A, DEFKEY 


•RESTORE A 


7FC3 77 


02260 


-JTENDF 


LD 


(HL) , A 


;ADD CHAR TO USER STRING 


7FC4 23 


02270 




INC 


HL 


•BUMP POINTER TO USER STRING 


7FC5 CD3A03 


02280 




CALL 


PUTC 


;ECHO KEY PRESSED 


7FC8 10E3 


02290 
02300 




DJNZ 


GETC 


; REPEAT IF MAX STRING 

; LENGTH NOT YET EXCEEDED 


7FCA AF 


02310 


ENDDEF 


XOR 


A 


;PUT NULL END-OF-STRING 


7FCB 77 


02320 




LD 


(HL) ,A 


; MARKER AFTER USER STRING 


7FCC 21EF7F 


02330 




LD 


HL, ENDMSG 


;PUT OUT 'END OF DEF 1 MSG 


7FCF CDD57F 


02340 




CALL 


PUTSTR 


;ALSO LEAVES IN A 


7FD2 El 


02350 




POP 


HL 


; RESTORE CALLER'S HL 


7FD3 CI 


02360 




POP 


BC 


.•RESTORE CALLER'S BC 


7FD4 C9 


02370 
02380 




RET 




;AND RETURN TO CALLER 




02390 


; PUTSTR: PUT 


STRING AT (HL) ON S 


CREEN. STRING IS 




02400 




TERMINATED BY A BYTE. 






02410 










7FD5 7E 


02420 


PUTSTR 


LD 


A, (HL) 


;GET CHARACTER FROM STRING 


7FD6 B7 


02430 




OR 


A 


;IF CHARACTER IS NULL (0) 


7FD7 C8 


02440 




RET 


Z 


;THEN FINISHED 


7FD8 CD3A03 


02450 




CALL 


PUTC 


;ELSE PUT CHAR ON SCREEN 


7FDB 23 


02460 




INC 


HL 


.•POINT AT NEXT CHARACTER 


7FDC 18F7 


02470 
02480 




JR 


PUTSTR 


;AND GO GET IT 




02490 


; PROMPT MESSAGES: 




7FDE 0D 


02500 


STRTDF 


DEFB 


0DH 


; CARRIAGE RETURN 


7FDF 44 


02510 




DEFM 


'DEFINE STRING: ' 




7FED 0D 


02520 




DEFB 


0DH 




7FEE 00 


02530 




DEFB 





;END OF STRTDF 


7FEF 0D 


02540 


ENDMSG 


DEFB 


0DH 


; CARRIAGE RETURN 


7FF0 45 


02550 




DEFM 


'END DEFINITION' 




7FFE 0D 


02560 




DEFB 


0DH 




7FFF 00 


02570 




DEFB 





;END OF ENDMSG 


7E58 


02580 




END 


INIT 




00000 TOTAL 


ERRORS 










CALL 00CD 


00190 


01310 


02140 






DEF 7FA0 


02060 


02010 








DEFINE 7F96 


01990 


01430 








DEFKEY 001F 


00200 


01420 


02020 


32200 02250 




ENDDEF 7FCA 


02310 


02240 








ENDMSG 7FEF 


02540 


02330 








GETC 7 FAD 


02120 


02190 


02290 






1N1T 7E58 


00290 


02580 








KEYDR1 7F4E 


01320 


00300 








KEYDR2 7FB0 


02150 


00310 






Program continues 



The solution to your 
hardware dilemma: 



.s i'fimwmii i . i 'iy 

You could spand a loi ol money <or 
TRS-80* peripherals — OH — spand a 
lot ol time developing your own — 
BUT hare s a better choice The Ulf8f 
parallel input port costs little more than 
you would pay lor parts alone AND lets 
you locus your design time on applica- 
tions^ 

Hook up sensors, switches, joy- 
sticks, lightpens. keyboards . . with- 
out modifying the computer or tying up 
the cassette port. Plugs into card edge 
at back ol keyboard or on expansion 
interface . 

Features 8 bit. TTl/CMOS compati- 
ble input Jumper address program- 
ming Can be powered by inexpensive 
AC adapter available from Radio Shack 
and elsewhere 

Includes all IC s sockets, resistors 
capacitors, voltage regulator. |ack 
instructions /documentation, etc. plus 
tree joystick plans As you would 
expect of a good solution, all parts are 
guaranteed. For Lil 

Kit |one evening). . 535 00 ppd 

Assembled & tested .... $45.00 ppd , 
"a landy Coip trademark 



GRAPHICS 
UTILITIES 



PCTW00 (Picture Window) allows 
yuu to create, edit display, save on 
cassette, and recall last action graph- 
ics The powerful machine code sub- 
routines are easily accessed Irom 
BASIC or assembler Scan images larg- 
er than the screen, display multiple 
images, create animations and more 
Includes: system code BASIC image 
editor. 5 demo animations and source 
code |for assembler programmers) on 
cassette, and complete instructions/ 
documentation 

Add exciting visuals to your next 
education game or business program 
Lois of graphics power ai a low price 
For 16* Lll $12 00 ppd 



WW I 

Aviation 

Game 

FRANK LUKE is a simulation based 
on the exploits ot the American Ace 
Frank Luke Jr Take your S P A on 
a sola mission behind enemy lines Fly 
Ihrough the menacing skies, dodging 
the flak, in search of observation bal- 
loons Will you survive to experience a 
wall earned trip to Pans (created by 
PCTWD0)? Sign up now to fly in 
France. 
For 16K Lll. S10 00 ppd. 



Order PCTWDO FRANK LUKE 



. Ul' 



[from 



\NIVERSAL 



^292 



NTERFACE 



P.O. BOX 1077 
GLENDALE HEIGHTS. 



We 

accept cnm 

VISA&MC It- 60137 

i312i 469-6921 



HI residents aoo 5' 



• Reader Service— see page 226 
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SOFTWARE- TRS-80 - SOFTWARE 




PACKAGE ONE INCLUDES: GRAPHIC 
TREK "2000" This lull graphics, teal 

lime game is lull of last, exciting action' 
Exploding photon torpedoes and phase's 
fill the screen! You must actually navigate 
the enterprise to dock with the giant space 
stations as well as to avoid klingon 
torpedoes! Has shields, galactic memory 
readout, damage reports, long range 
sensors, etc! Has 3 levels tor beginning 
average, or expert players' * INVASION 
WORG Time: 3099. Place: taith's Solar 
System Mission: As general of Earth's 
forces, your job is to stop the Worg 
Invasion and destroy their outposts on 
Mars, Venus, Saturn, Neptune, etc! Earth's 
Forces: Androids Space Fighters 

Lazer Cannon - Neutrino Blasters! Worg 
Forces: Robots - Saucers Disintegrators 
- Proton Destroyers! Multi level game lets 
you advance to a more complicated game 
as you get better 1 * STAR WARS 
Manuevei youi space fighter deep into the 
nucleus of the Death Star! Drop your 
bomb, then escape via the only e».t riUi 
graphics game is really 'uii' May the Force 
be with you' * SPACE TARGET 
Shout at enemy Ships with your missiles, 
it they eject in a parachute, capture them 
— or if you're cruel, destroy them! Full 
graphics, real time game! * SAUCERS 
This last action graphics game has a time 
limit' Can you be the commander to win 
the distinguished cross! Requires split 
second timing to win! Watch out' 

ONLY 14.95 




PACKAGE TWO INCLUDES: CHECK- 
ERS 2.1 Finally! A checkers program 
that will challenge everyone' Expert as 
well as amateur! Uses 3-ply tree search to 
find best possible move. Picks randomly 
between equal moves to assure you of 
never having identical games. * POKER 
FACE - The computer uses psychology as 
well as logic to try and beat you at poker. 
Cards are displayed using TRS-80's lull 
graphics. Computer raises, calls, and 
sometimes even folds! Great practice for 
your Saturday night poker match! (Plays 5 
card draw). * PSYCHIC - Tell the 
computer a little about yourself and he'll 
predict things about you, you won't 
believe' A real mind bender! Great 
amusement tor parties. * TANGLE MAN- 
IA Tty and force your opponent into an 
immobile position. But watch out, they're 
doing the same to you 1 This graphics game 
is for 2 people and has been used to end 
stupid arguments. (And occasionally starts 
them') • WORD SCRAMBLE - This 
game is tor two or more people. One 
person inputs a word to the computer 
while the others look away. The computer 
scrambles the word, then keeps track of 
wrong guesses. 

ONLY 14.95 




PACKAGE THREE INCLUDES: POE- 
TRY — This program lets you choose the 
subject as well as the mood of the poem 
you want. You give TRS-80 certain nouns 
or names, then the mood, and it does the 
re-' 1 It has a 1000-word » vocabulary of 
nouns, verbs, adjectives and adverbs 1 * 
ELECTRIC ARTIST Manual draw, 

erase, move as well as. Auto: draw, erase 
and move. Uses graphics bits not bytes. 
Saves drawing on tape or disk! • GALAC- 
TIC BATTLE - The Swmeus enemy have 
long range phasers but cannot travel at 
warp speed! You can, but only have short 
range phasers! Can you blitzkrieg the 
enemy without getting destroyed' Full 
graphics - real time' * WORD MANIA 
Can you guess the computer's words using 
your human intuitive and logical abilities' 
You'll need to, to beat the computerl * 
AIR COMMAND Battle the Kamikaze 
pilots. Requires split second timing. This is 
a FAST action arcade game. 



ONLY 14.95 




PACKAGE FOUR INCLUDES: LIFE 
This Z-BO machine language program uses 
full graphics' Over 100 generations per 
minute make it truly animated! You make 
your starting pattern, the computer does 
the rest! Program can be stopped and 
changes made! Watch It grow' * SPACE 
LANDER This lull graphics simulator 

lets you pick what planet, asteroid or 
moon you wish to land on! Has 3 skill 
levels that make it fun for everyone. • 
GREED II Multi-level game is fun and 

challenging! Beat the computer at this dice 
game using your knowledge of odds and 
luck' Computer keep; track of his 
winnings and yours. Quick fast action. 
This game is not easy! * THE PHARAOH 
— Rule the ancient city of Alexandria' 
Buy or sell land. Keep your people from 
revolting! Stop the rampaging rats. Re- 
quires a true political personality to 
become good' * ROBOT HUNTER A 

group of renegade robots nave escaped and 
are spotted in an old ghost town on Mars' 
Your job as "Robot Hunter" is to destroy 
the pirate machines before they kill any 
more settlers! Exciting! Challenging! Full 
graphics! 



ONLY 14.95 



it n * cwtmn ifwuiiim. maim 



HARDWARE- TRS-80- HARDWARE 



■ >- , * 

£■:[*"» 
Kovnm wroisr. 

iJlf XC'S 

'*' inuii 



ok r.wai to | 
ok xma to i 
m ub to i 

OK liUU TO I 

(K M4» TO I 

OK 3.9*15 TO I 

OK 5.555* TO I 

— " VK35 TO 1 



'tf.tanpmBiiiM.2s 



PACKAGE FIVE INCLUDES: SUPER 
HORSERACE - Make your bets just like 
at the real racetrack! 8 horses race in this 
spectacular graphic display' Up to 9 
people can play! Uses real odds but has 
that element of chance you see in real life! 
Keeps track of everyone's winnings and 
losses. This is one of the few computer 
simulations that can actually get a room of 
people cheering! * MAZE MOUSE The 
mouse with a mind! The computer 
generates random mazes of whatever size 
you specify, then searches for a way out! 
The second time, he'll always go fastest 
route! A true display of artificial intelli- 
gence' Full graphics, mazes & mouses! * 
AMOEBA KILLER - You command a 
one man submarine that has Oeen 
shrunken to the size of bacteria in this 
exciting graphic adventure! Injected into 
the president's bloodstream, your mission 
is to destroy the deadly amoeba infection 
ravaging his body! * LOGIC - This 
popular game is based on Mastermind but 
utilizes tactics that make it more exciting 
and challenging has 2 levels of play to 
make it fun for everyone. • SUBMARIN- 
ER Shoot torpedoes at the enemy ships 
to get points. Fast action graphics, arcade 
type game is exciting and fun for 
everybody! 

ONLY 14.95 



MICRO 
SPEED 

Upgrade your "slow" TRS-80 to a 
SUPER FAST MACHINE!! (2.66 
MHZ) over 50% FASTER! Some of 
the features. 

Auto turn-off during cassette or 
disk access. (This means NO lost 
programs EVER!) (Turns back on 
automatically too!) MANUAL con- 
trol. (Unit may be turned on or off 
at any time. Yes even during 
program execution!) Keyboard 
indicator light "blinks" when mi- 
cro speed is on. Stops blinking 
when off! Don't wait for SARGON 
II or any other program!!! Comes 
with easy to follow instructions. 
(Some soldering required.) OR take 
to your local computer store or 
TV-Appliance Center for quick 
installation. (5-10 minutes") Works 
with any model, TRS-80. 

ONLY 29.95 complete 



MICRO 
BEEP 

Simple hook up: Just plug cassette 
remote jack into unit 



EASILY CONTROLLED FROM 
BASIC: 

OUT 255.4 = on 
OUT 255.0 = off 

MICRO-BEEP make games more 
fun as well as provide useful sound 
output for professional applica- 
tions! 

Works with Any Model I TRS-80 




PACKAGE SEVEN INCLUDES: BACK- 
GAMMON S.O — 2 different skill levels 
make this game a challenge to average or 
advanced players FAST (15 second avg) 
Look: for best possible move to beat you! 
FANTASTIC GRAPHICS. Plays doubles 
and uses international rules * SPEED 
READING - increases your reading 
speed. Also checks for comprehension of 
material. Great for teenagers and adults to 
improve reading skills * pt 10J Drop 
depth charges on moving subs. Lower 
depths get higher points in this last action 
graphics game. * YAHTZEE — Play Yaht- 
zee with the computer. This popular game 
is even more fun and challenging against a 
TRS-80' * WALL STREET — Can you 
turn your $50. 000 into a million dollars? 
That's the object of this great game 
Simulates an actual stock market! 

ONLY 14.95 



ONLY 15.95 complete 



PACKAGE SIX INCLUDES: 20 HOME 
FINANCIAL PROGRAMS Figures am- 
ortization, annuities, description rates, 
interest tables, earned interest on savings 
and much, much more. These programs 
will get used again and again. A must for 
the conscientious, inflation minded per- 
son. 

ONLY 14.95 
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Master 
Charge 



Exceptional Products through Research & Imagination 
Send Check, Money Order or Bank Card No. orders to: 



SIMUTEK 
P.O.Box 13687 
Tucson, AZ 85732 



FREE Postage and Handling 



24 HOUR (7 days) HOTLINE 

(602) 886-5880 Visa 

(C.O.D.$3extra) 

Same Day Shipment on Bank Cards, 
Money Orders & C.O.D. 

All Tape Programs Require a Minimum of 16K Level 2 
Packages Available on Diskette (32K System) $4.25 Extra 

3 or More Packages Get 10% Discount 

Dealer Inquiries Invited 
TRS-80 IS A REGISTERED TRADEMARK OF TANDY CORP. 
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KEYDRV 


4016 


00140 


00290 


00340 


KEYWRD 


7F6C 


01640 


01570 




LA 


7EAE 


00700 


01640 




LB 


7EB5 


00720 






LC 


7EBA 


007 40 






LD 


7EC0 


00760 






LB 


7 ECS 


007 80 






LF 


7ECD 


00800 






LG 


7 EDI 


00820 






LB 


7ED6 


00840 






LI 


7EDB 


00860 






LJ 


7EE2 


00880 






LK 


7EE7 


00900 






LL 


7EEE 


00920 






LM 


7EF3 


00940 






LN 


7EF8 


00960 






LO 


7EFD 


00980 






LP 


7F02 


01000 






LQ 


7F08 


01020 






LR 


7F0F 


01040 






LS 


7F16 


01060 






LT 


7F1C 


01080 






LU 


7F21 


01100 






LV 


7F27 


01120 






LW 


7F30 


01140 






LX 


7F36 


01160 






LY 


7F3B 


01180 






LZ 


7F40 


01200 






NOTEND 


7F90 


01920 


01900 




NTENDF 


7FC3 


02260 


02210 




NXTC 


7F75 


01700 


01730 


017 50 


ONESTR 


7F47 


01250 


00330 




OSPLAG 


7EAB 


00570 


01250 


01810 01910 


OSPTR 


7EAC 


00600 


017 90 


01870 01930 


PUTC 


033A 


00180 


02280 


02450 


PUTSTR 


7FD5 


02420 


02090 


02340 02470 


REST 


7E6F 


00540 






SETHD 


7F7F 


01800 






SHIFT 


3880 


00160 


01990 


02220 


SRCHDN 


7F7C 


017 90 


01590 


01680 


STRTDF 


7FDE 


02500 


02080 




SUBMOD 


7F62 


01550 


01450 


01490 


SUB ST 


7F85 


01860 


01270 




UDSKEY 


001A 


00210 


01440 


01560 


USED 


0005 


00530 


00540 




USTLEN 


0040 


00230 


00540 


02110 


USTR 


7E6A 


00500 


00530 


01580 02100 



Level II BASIC, TRSDOS 2.1, 
2.2 and NEWDOS all use differ- 
ent keyboard drivers. By picking 
up the address they have al- 
ready put in the device control 
block, it is possible to reap the 
benefits (debounce, etc.) of 
these drivers and the benefits of 
ONESTR at the same time. The 
address of label ONESTR is in- 
stalled in the device control 
block so that it is called in the 
future for keyboard input. 

Choose an Instruction 

Choose one of two instruc- 
tions, depending on whether 
you will be loading ONESTR 
from tape or disk. If you will load 
ONESTR from disk, you must 
use JP 402DH to return to TRS- 
DOS or NEWDOS. If you will be 
loading from tape with the SYS- 
TEM command in BASIC, use a 
JP 1A19H to return to BASIC. 

Note that the space taken up 
by this initialization code can be 
reused after it is run, since the 

*■ Reader Service— see page 226 



code is no longer needed. The 
answers to the MEMORY SIZE? 
prompt are given in Table 2 and 
reflect this reuse of space. 

At label USTR allocate 64 
bytes for the user-defined string 
and give it an initial value of 
RUN. Until redefined, this will 
run a BASIC program by typing 
SHIFT/down arrow. This may be 
changed to any other initial 
value you like, and the code at 
label REST will allocate the re- 
mainder of the 64-byte buffer. A 
zero byte after the string serves 
as the string terminator. 

Beginning at label LA the 
table of strings to be substitut- 
ed for the lowercase letters are 
listed. Except for LA, the labels 
are included strictly for conve- 
nience in determining which 
keyword gets substituted for 
which letter; they are not needed 
by the code. 

This is where you would sub- 
stitute assembly language mne- 
monics, Pascal keywords or 



anything else you would like to 
type with one key stroke. If you 
do make substitutions which 
cause the length of the program 
to change, be sure to change the 
program origin so it will fit in 
your machine! Adjust your an- 
swer to the MEMORY SIZE? 
prompt in this case to protect 
the new size of the program. 
Again, a zero byte at the end of 
each string in the table serves 
as a terminator. 

Selecting Keywords 

I chose not to include an entry 
for PRINT, which is certainly a 
commonly used BASIC key- 
word. The Level II BASIC hand- 
book explains that a question 
mark is a built-in abbreviation 
for PRINT. 

I did choose to include 
PRINT® as a keyword, even 
though typing ?@ works as well 
and is almost as easy. The 
reasoning behind this is that Q 
and SHIFT @ appear the same 
on the screen, but SHIFT @ 
doesn't work as a PRINT quali- 
fier. It's a nasty bug to catch 



since a listing appears normal. 
Including PRINT® as a one- 
stroke entry avoids the problem. 

ONESTR is the main entry 
point to the program, and this is 
where control is transferred 
whenever keyboard entry is re- 
quested. The OS FLAG is tested 
to see if the routine is in the mid- 
dle of a keyword substitution. If 
so, it branches to SUBST and 
continues with the substitution. 
Otherwise, the routine whose 
address was in the keyboard 
device control block before 
ONESTR was loaded is called 
for keyboard input. If no key has 
been pressed, it returns to the 
caller, if a key has been pressed, 
a decision is made about the 
next action to take, based on the 
key's ASCII value (as shown in 
Table 1). 

If the keyboard input is a 
lowercase letter, the OS flag is 
set on. Search the keyword table 
sequentially to find the start of 
the keyword to substitute. 

The number of keywords to 
skip is calculated from the 
ASCII value of the lowercase let- 
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Lombard. Illinois (312) 932-1344 
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ter read from the keyboard, 
minus the ASCII value of lower- 
case a. Since each keyword is 
terminated by a zero byte, start 
at the head of the table and 
check each character. Continue 
until you pass as many zero 
bytes as the number of key- 
words you are supposed to skip. 

Don't moan and groan about 
the inefficiency of a sequential 
search— it's easy to build an in- 
dex for the address table and to 
put it into the routine so that the 
appropriate address may be 
computed. 

To do this, use a DEFW 
pseudo-op instruction for each 
label whose address is included 
in the following table: 



ADTABL DEFW LA 
DEFW LB 



DEFW LZ 



The offset into the table for a 
lowercase letter, say b, is 2 • 
(ASCII(b)-ASCII(a)). The factor of 
2 Is used because of the two 



bytes each entry takes. Load the 
HL register pair with the con- 
tents of this location and you've 
got the address of the first letter 
of the keyword. 

Why not use this technique, 
then, instead of the sequential 
search? Because the address 
table takes up space. And al- 
though it does give faster re- 
sults, the difference isn't notice- 
able at the keyboard. 



Test the Shift Key 

The code at the label DEFINE 
is executed when the CLEAR 
key is pressed. Since the key- 
board driver routine returns the 
same value whether CLEAR is 
pressed alone or shifted, a test 
must be done to verify that the 
SHIFT key is indicated. Location 
3880H contains a 1 if SHIFT is 
pressed, and a otherwise. 
Checking 3880H determines 
whether to start user string 
definition, which is triggered by 
SHIFT/CLEAR. 

Assuming SHIFT/CLEAR was 
pressed, the program types 



DEFINE STRING: on the screen 
and waits for input. Each key 
pressed is tested to see if it is 
SHIFT/CLEAR, which ends the 
definition. If not, it is added to 
the user string buffer at USTR. 

If 64 characters are typed 
without a SHIFT/CLEAR, then 
definition mode is automatically 
terminated. User string defini- 
tion ends by returning a zero to 
the caller, indicating that no key 
was pressed. Thus the entire 
process is invisible to the calls. 
This process can be used with 
any program (BASIC, etc.) re- 
questing keyboard input. 

Note that most of the Level II 
BASIC string input editing is not 
implemented. The back arrow 
will delete a character, but 
SHIFT plus the back arrow will 
not delete the whole line. 

Another design trade-off is re- 
flected here. The ROM routines 
for string input editing could 
have been used, but they termi- 
nate input when BREAK or 
ENTER are pressed. The ap- 
proach taken allows entire com- 
mands to be typed with one key- 



stroke, including ENTER at the 
end of the command. 

Running ONESTR 

If you are loading from disk, 
run ONESTR from the DOS 
READY prompt. You can test it 
at this point by typing shifted 
letters; keywords should ap- 
pear 

With either disk or tape, bring 
BASIC up, answering MEMORY 
SIZE? as shown in Table 2. Disk 
users should be in business at 
this point. 

Tape users should enter the 
SYSTEM command, and load 
the object tape. Once loaded, 
run the program by hitting 
ENTER. 

Table 3 is a handy listing of 
the keys to press for each key- 
word. Cut it out and tape it to 
your monitor for quick reference 
while you are getting used to the 
system. 

Now it's time to find those 
back issues of 80 Microcomput 
ing and start enjoying all the 
programs that you were too lazy 
to type.B 



EXPAND 



YOUR 
TRS-80* 




INTRODUCING THE XTD-TRS INTERFACE CARD 
FOR THE STD BUS 

This card permits direct connection between the TRS-80' and the STD BUS system The 
TRS-80" can even be used as a development system for Z-80 STD BUS OC Microsystems 
distributes a full line of STD BUS products from a number of manufacturers including 
Mostek. Xitex, Intelligence Systems and Spurrier 



Xltex XTD-TRS Interface Card 



DDT-80 
ROM 




i—OFF THE SHELF STD BUS PRODUCTS — 


AVAILABLE NOW: 






MDX-CPU1 


$260 


Z80 CPU/RAM/PROM 


MDX-CPU2 


$295 


Z80 CPU/RAM/PROM 


MDX-UHAM 8/32 




Dynamic RAM 


MDX-PIO 


$250 


Parallel I/O 


MDX-A/D 8.10.12 




A/D Converter 


MDX-OA8.12 




O/A Convener 


SYS-CPM- 




CP/M £2 Disk S W 


MDX-MATH 


$699 


Floating Point Math 


MDX-SIO 


$260 


Serial I/O 


MDX-SV1 1 


$235 


Video Interface 


PROM-I 


$165 


PROM Programmer 


MDX-EPROM/UART 


$225 


Combination PROM/UART 


CARD CAGES 




8-22 Slot with MotherBoard 


POWER SUPPLY 


$135 




•Contact QC lot Pricing Options 



$260 Includes: DDT-80 ROM 

'TRS-80 and CP/M are registered trademarks ol Tandy Corp and Digital Research, respectively 



— 200 NS MEMORY!! — 

High speed 4116 RAMS for Maximum 
Reliability from your TRS-80*. 

SET OF 8 FOR $57 



OTHER RAMS 

2114 UCB 1K X4 450NS 
4118N-4 1K x 8 250NS 
4104N-4 4K x 1 250 NS 

PROMS 

2716T-12 2K x 8 650 NS 
2716T-8 2K x 8 450 NS 



Z80 PARTS 

Z80-CPU 

Z80-PIO 

Z80-CTC 

Z80-DMA 

Z80-SIO 

MISC. 

12" Video Monitor B&W 



2.5 MHZ 

$1(1-9) 

11.00 

850 

8.50 

29 00 

37 50 



$(1-9) 

5.00 

24 00 

1050 

24.50 
27.00 

4.0 MHZ 

$(1-9) 
15.00 
11.00 
11.00 
37.00 
45.00 

$149.00 



Micro Computer Systems. 
Components and Service 

MasterCharge Visa American Express Check COD accepted 
Add S3 00 tor U S Shipping & Handling Allow two weeks lor 
shipment Mm order ot $10 00 All products covered by a 90 day 
OEM warrenty Prices sub|ecl to change without notice 



Dealer Inquiries Welcome! 

Micro " 395 

Systems P.O. box 401326 

GARLAND, TEXAS 75040 
(214) 343-1282 

Ask for our complete catalogue 1 
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RONDURE COMPANY • ;v : >;l;r 



the computer room 



SPECIAL 

Printer for your 
Microcomputer 




GETERMINET 
300 PRINTER 

Pin teed — 9' paper 



• i ,.. 

• •*•€»>•» ar*r 

• cod* 

• 30CPS 

sraaiMna cortaaiarsSlsOO 

(used) 

(good working condition) 



WE HAVE FLAT PACK 
ACOUSTIC 



fill « torn 
pickup 




$19 



b< 



USED FANS 




Muffin -a 00 
Sprite - 4 00 



Will run on serial RS232 port of 
most micros including TRS-80. 



$450 00 




NEW 

POWER 

SUPPLY 

$25.00 

5V at 3 Amp 
l?V a* t> Amp 
l?V al 3 Amg 




USED 

POWER 

SUPPLY 

$15.00 



5V at 1? Amp 
16V al 6 Amp 
6v al 2 Amp 




NEW 
POWER SUPPLY 

(AC DC Brand) 

Model 1 22V «r 1 9a $20 00 

Model? 15V *r 2 4a $3000 



MICRO SWITCH KEYBOARD 




ASC II 



$40.00 

(With Print) 




USED 
OMNITEK 

v DBM 
OMONATt 

$90.00 Sale 



.i i.i i 

tire * rat m* termed*? aa^eceiv* a ceflil^criat* or money order Texas retidenii 
• 4e k» air CATALOG al rwarry parts tenmrtais, printer* est 
AM items twupKi to e*eiieb>ety You* money retomed >• we aw out ol steefc Man 
order hauni » 4 Monday Mra t>t»*de f Etoewd Friday) 



SHIPPING INFORMATION: 

•ADdem*. HOC mc 1, Ka» Boards V* 00. Power Supply 1700 
Large Mama a Parts Specify Fteajr* <» Air Majorat CoHecl 

. ,o Ordan: Add appropriate trsigm or pr.iuee. 
Wt now* take Mittti Charge and Vita order* Sua 
Dan* numbif and expiration data 



SimpleSort -DBM 

TRS-80*SORT UTILITY 
DATA BASE 
I MANAGEMENT SYSTEM 



SenpiaSort — a rMchirc cod* tewl- 
tauiaprue §o<1 ililltjf designed lor 
IHSIIOS and NEWD08 lo etlrcrenlly 
order f.ies created by ihe BASIC find 
slater .tent 1 Nr DOS statement 
soar /a r AC! i v <mi is s ease 

• ii'"HWl»l4l„'. ■ » i 'l«»li 

•n ioaiw 



■a *« »i lo *%fcat m*-«#* 



li*1 kin . 



lU X U I 



♦ MjnwMI Mr ■■ jti.. 



HI" ■ 

»nss 



moo 



SimpleSort— DBMf 
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NOBODY CAN MATCH OUR 
DOLLAR/QUALITY RATIO! 

MS-204 PRINTER 

INTRODUCTORY PRICE: 



.- n 




$795 

CABLE: $34.50 

Compatible with TRS-80, Apple, Pet 
or any other Centronics-type system 

Features 

H0 Column* S3 LPM Bi-Oirectional Nominal Triruput 

• 1 00% Heavy l>rty Cycle High ReHabritty. lOOMrihonCharactet 
Pr.nl Head I He 

a Sprocket Feed Variable Forms w.da\ ?S~ 9 S 
a Double lASdtb Characters 40.06 Characters par ene 

• 9 * 7 Dot Matrix Character Font 

• « Channel Electronic Vertical Formal UnM 

• Documentation included 

Ask about our 8-inch Drives & Software 



# 



ATCHLESS 

YSTEMS 



1 8444 S Broadway 
Gardena, CA 9024a 
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HARDWARE 



More versatile than a line printer. 



Teletype Interface 



Jake Commander 
Shadow Lane, Apt. 2 
Peterborough, NH 03458 



This article describes how to 
build and use a simple tele- 
type (TTY) interface to work with 
a TRS-80 (Level II and up). By in- 
terrupting the normal TRS-80 in- 
put/output driver software, we 
can: output line print commands 
(including LLISTS) to the TTY, 
have a keyed option to direct 
screen print commands simul- 
taneously to the video and TTY, 
input characters to the comput- 
er from the TTY. 



The following is a 110 baud 
version, but a few simple ad- 
justments will allow I/O at other 
speeds. 

Cheap Hard Copy 

This design provides cheap, 
high quality hard copy. 

In this interface, hardware 
and software work in conjunc- 
tion; however, the bulk of the 
work rests with the software, al- 
lowing a greater degree of flexi- 
bility. 

The hardware consists of a 
556 dual timer I.C. and one 
medium gain NPN transistor, 
which draw their minimal power 
from the TRS-80 video socket, 
pin 1. The circuit is shown in Fig. 
1, and a suitable layout on 



0.1-inch matrix board in Fig. 2. 

To avoid opening up the 
TRS-80, all signals are carried to 
the unit via DIN plugs from the 
video and cassette sockets. 
These signals are tapped off in 
the Interface and made avail- 
able again through DIN sockets 
at the rear. Fig. 3 shows this ar- 
rangement. 

The only difficulty is that the 
TRS-80 cassette DIN plug is a 
non-standard plastic type and 
will not mate with the standard 
DIN socket in the interface. The 
simplest expedient is to remove 
this plug and replace it with a 
normal DIN type. The I/O to the 
TTY is via only three contacts of 
a 25-way socket. This provides a 
tidy, compact unit which may be 



CASS O/P 

FROM TRS-80> )f 

( PIN 5) 




"**- < TTYIPIN 2) 



TO TRS-80 CASS l/P 
PIN 4) 



left hooked-up to the computer, 
even when the TTY is not in use. 

Input to the TTY driver section 
comes from the cassette output 
port. This part of the circuit 
receives pulses determined by 
the software, then stretches 
them to the required pulse 
width, which in a 110 baud sys- 
tem is 9.09 ms. 

A description of an ASCII 
character output shows how 
things happen. Suppose we 
wish to output to the TTY the let- 
ter J, which is 0100 1010 in 
binary. This is odd parity, so to 
make it even, the software adds 
a bit, and it now appears as 1 100 
1010. Before this is output, we 
need a zero start bit which indi- 
cates to the TTY that a byte fol- 
lows. Now bits 0-7 of the byte 
are output, followed by two stop 
bits. The final output is a string 
of bits as follows: 



o 

start bit 



01010011 11 

J stop bits 



Fig. 1. 



All the timing, data bits and 
start/stop bits are manipulated 
by the software (Program List- 
ing), which receives characters 
by interrupting the normal flow 
of I/O. This I/O in the TRS-80 is 
handled by ROM driver routines 
which are pointed to by vectors 
in RAM. By placing our own rou- 
tine addresses in these vectors 
we can handle I/O as we like. 
The vectors are at these loca- 
tions: 
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• 3 :• 


•: c . 
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• ] :• 


•] c • 




TTY 25 WAY SOCKET 



Fig. 2. 



16406 + 7 - Keyboard driver 
16414 +• 5 -video driver 
16422 + 3 - line print driver 



The heart of the TTY output 
software is the routine called 
OUT, which is called every time 
a zero bit is to be output. This 
issues a positive-going pulse of 
about 0.1 ms. to transistor Q1, 
inverting the pulse to trigger the 
pulse-stretcher half of the 556. 

This, in turn, switches high for 



9.09 ms. (determined by time- 
constant R5/VR1/C3) satisfying 
the requirement of the TTY. To 
output a one, the routine is 
merely ignored for 9.09 ms., as 
the 556 reverts from a zero after 
its time-constant has expired. 
The rest of the routine shifts the 
character and tests each bit to 
see if a zero or one is required. 

Adjusting VR1 

When the software is loaded 



VIDEO 

COID3 



dutf 





J 






9 


ov x 

CASS IN — v 
CASS OUT^ \^ 





VI0EO PIN 
OUTLET 



CASSETTE 
PIN OUTLET 



25 WAY TTY SOCKET 



Fig. 3. 



and the TTY hooked up, the 
simplest way to adjust preset 
VR1 is to line print an unbroken 
string of U*. These two charac- 
ters have bit patterns of 
01010101 and 10101010. which 
are ideal for testing. 

VR1 should then be adjusted 
for a mid position that prints the 
string with no errors. To in- 
crease the baud rate to 300, the 
time constants at NBIT and WT 
are altered to 218 and 652, re- 
spectively. VR1 is then adjusted 
as above to give a 3.33 ms. 
pulse. Other baud rates can be 
accommodated in the same 
way. 

To perform LPRINTS and 
LLISTS, the line print vector at 
16422 is replaced with the ad- 
dress of the TTY driver routine 
described above. To get the op- 
tion of screen print to TTY, the 
vector at 16414 is then pointed 
at the routine SPRINT. This rou- 
tine always prints on the screen 
first, and, before outputting to 



the TTY, checks to see if the 
character is either an up arrow 
or a shift @. If it is a shift @, the 
routine disables itself from any 
further screen-to-TTY output; if 
it is an up arrow, the output is 
enabled. Keying or printing 
these characters allows this op- 
tion to be switched on or off. 

The keyboard input from the 
TTY is handled by the other half 
of the 556, which triggers an 
unstable pulse. When the TTY 
outputs zero bits, the 556 chops 
the voltage into pulses that can 
be detected when input through 
the cassette port. 

If the voltage wasn't chopped, 
then there would be no way of 
knowing whether consecutive 
bits were zeros or ones. The cas- 



Uvn 



I i 



TTY OUTPUT 



556 OUTPUT 



Fig. 4. 



Program Listing. 




00320 


RET 


Z 


DON'T PRNT IF TTY 


CHR 








00330 


CP 


14 






00058 


ORG 


7E00H 


00340 


JR 


C, LPRINT 


;C/R L/F ETC 




00060 SETU 


LD 


HL, SPRINT 


00350 


CP 


16 






00070 


LD 


(16414) ,HL;SCRN PRNT DR ADDR 


00360 


RET 


C 


•CSRSR ON/OFF 




00080 


LD 


HL, LPRINT 


00370 


CP 


28 






00090 


LD 


(16422) ,HL;LINE PRNT DR ADDR 


00380 


JR 


C, LPRINT 


;CRSR MOVES 




00100 


LD 


HL, START 


00390 


CP 


32 






00110 


LD 


(16406) ,HL;KBD DR ADDR 


00400 


JR 


CCRLF 


; SCREEN CNTROLS 




00120 


JP 


6CCH ;TO TRSDOS DO A 'RET' 


00410 LPRINT 


LD 


A,C 


;LINE PRINT ENTRY 




00130 






00420 


CP 


10 






00140 SPRINT 


CALL 


1112 ; PRINT ON SCREEN 


00430 


JR 


C , NOLF 






00150 


PUSH 


AF 


00440 


CP 


14 






00160 


CALL 


CHKIT ; CHECK TTY PRNT 


00450 


JR 


CCRLF 






00170 


POP 


AF 


00460 NOLF 


LD 


A,C 






00180 


RET 




00470 


AND 


0C0H 


;TAB? 




00190 ;***ENTERS WITH 


CHAR. IN C*** 


00480 


CP 


0C0H 






00200 CHKIT 


LD 


A,C 


00490 


LD 


A,C 






00210 


LD 


HL,LP 


00500 


JR 


NZ,TBC 


;NO 




00220 


CP 


96 ;SHIFT e - DISABLE 


00510 


PUSH 


BC 






00230 


JR 


NZ,CHK27 


00520 


LD 


A,3FH 


;MASK 




00240 


LD 


(HL),201 ;RET 


00530 


AND 


C 


;■ • TAB SPACES 




00250 CHK27 


CP 


91 ; UP-ARROW - ENABLE 


00540 


LD 


B,A 






00260 


JR 


NZ,LP 


00550 


LD 


C,20H 






00270 


LD 


(HL) ,183 ;OR A 


00560 TAB 


CALL 


LPRINT 






00280 LP 


RET 


.•INITIALLY DISENGAGED 


00570 


DJNZ 


TAB 






00290 


LD 


HL,CHAR 


00580 


POP 


BC 






00300 


CP 


(HL) 












00310 


LD 


(HL),0 ;TURN OFF TTY FLAG 








Program continues 
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1*11 programs for TRS-80 
16k, Level II computer. 



SUPER 
NOVA 



by Bill Hogue from Big Five » 
This arcade game of shooting 
asteroids and alien ships is 
written in machine language and is 
the best we have seen on any 
computer. There are five different 
types of alien ships including the 
very deadly Flagship. You shoot 
from your ship, rotate it, use your 
thrust key to move, and in 
emergencies you go into hyperspace. 
Level 1 or 2 - $14.95 
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DISK SCOPE 



COHW? . 
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Scenp from QUEST 
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Star Cruiser 

from Computer Simulations 
You are on the side of the bad 
guys, the Empire. Program includes 
fighter combat, ground action, 
hyperdrive, garrisoning, retaking 
the 10 system capitals and avoiding 
the Rebel Star Fighter groups. The 
Star Cruiser is your last hope. 
$14.95 



with GRAPHICS & SOUND 

by Robert Nicholas from Mad Hatter 
These two adventures are similar to 
most others where you use two word 
sentences to explore. But these 
also show you the 'rooms' and have 
sound effects 1 

In QUEST you travel in search of 
fame, fortune, treasures, monsters 
and more. Three levels of play 
with a random set up of each game. 

As the detective in SLEUTH you 
try to solve a murder. The victim, 
weapon and murderer will be 
different each game. 
On cassette $14.95 each. 
On disk $24.9? for both. 



Checker 




by Michael Marks from Personal 
Play checkers against the computer 
in one of eight levels of skill. 
Features include saving board 
positions, switching sides, going 
back a move and letting it play 
against itself. Also includes 
three checker puzzles. Level 1 or 
2 - $19.95 




Piaskin 



by JcJBT Laurence, Rick So then and 
Walter Gavenda from Acorn 
In this football game you call the 
plays, watch the thirty-second 
clock, and get called for penalties 
if you aren't careful. There are 
eleven offensive and seven 
defensive plays. Features graphic 
display of field, the ball, and 
statistics on the scoreboard. You 
can play against the program, 
against a friend, or watch the play 
in the spectator mode. 
Protected cassette $14.95 
Protected diskette $20.95 
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from Strategic Simulations 
The historic war game that 
accurately simulates the epic 
battle between the German 
battleship and the British Home 
Fleet. Features a computer 
controlled mapboard of the North 
Atlantic, hidden movement, ship 
vrs. ship combat and shadowing, 
firepower and damage, historic 
setup of the ships, and both 
two-player and solitaire 
scenarios . 

Cassette $49.95 Disk $59.95 
Coming soon Computer Ambush 



Microcosi 

from Basics & Beyond 

Combined these two packages 
contain fifty solid programs. 

MICROCOSM I contains 16k-Memory 
Test, Atlantis, Biorhythms, 
Calories Food, Calories 
Ingredients, Challenge Match-em, 
Checkbook Balancing, Country Guess, 
Day Of The Week, Divisor Game, 
Driver, Eliminate, Factorials, 
Fakeout, Flowering Houseplants, 
Home Insurance, Instruction Test, 
Magic Squares, Match-em, Math 
Tables Drill, Metric Conversion, 
Morse Code, Mortgage, Music 
Transposition, News Photographer, 
Remainder, South Pole, Spelling 
Drill, Spelling Review, Wipe-out. 

MICROCOSM II contains Algebraic 
Factoring, Base Conversion, Blank 
Slate, Decipher, Doodle Art 1, 
Electrical Use, Explore, Fish, 
Foliage Houseplants, Isolation, 
Perspective Racer, Planet Finder, 
Prefix Study and Ouiz, Roman 
Numerals, Shooting Gallery, 
Spelling Bee, Stains, State Guess, 
Suffix Study and Quiz, Trivia 
Quiz. 

Each available on two cassettes 
for $19.95 



from Instant 
This diskette contains three programs to 
•check out your disks. You can find the 
tracks and sectors where a file is 
stored with FILELOCK. With CDISK you 
can read the ASCII and hex 
representation of any sector. PASSWORD 
will give you the password for any file 
or any disk. $19.95 



from Instant 

Access to any byte on a diskette is 
possible with the machine lanquage 
utility. You just give either the track 
and sector or the filename in order to 
alter, add, delete, or view 
information. 

You can also search a diskette for 
string of characters. And the data can 
be dumped to a printer. Both the 35 and 
40 track versions are on the same 
diskette. $39.95 



by MlE> Gelder 



by 

Single-step/TRACE/Disassembler for TBUG. 
Variable speed TRACE mode lets you run 
any 290 machine language program under 
total control. Includes intelligent RAM 
window, foreground background 
breakpoint inq, and more. TBUG required. 
$19.95 




ay Peter Chariton 
You can literally translate BASIC 
programs into Fortran with this program 
which assumes that you know Disk BASIC 
and Fortran. It will not do a complete 
translation because of the differences 
between the languages. For example, 
subroutines, 'THEN,' string handling and 
disk operations are different. But for 
a programmer this utility is a good 
start. Requires Microsoft FORTRAN. 
$24.95 on disk. 
FORTRAN available for $95.00 

BaoooaauoauQOQQorjaaoGoaoaoaaaaaaoaaaasaci 



THE PROGRAM STORE 
4200 Wisconsin Ave NW 
P.O. Box 9609 Dept. K 3 
Washington DC 20007 



VISA AND 

MASTERCARD 



TO ORDER 

TOLL FREE 

800-424 -2 



For program Information call 
(202) 337-4691 



Mail orders ; Send check or 
money order for total purchase 
price, plus $1.00 for shipping 
& handling. Charge card cus- 
tomers, please include card 
number, expiration date, and 
your name as it appears on the 
card. 



00598 




RET 






00600 


TBC 


CALL 


PRNT 




00610 




LD 


A,0 


;WILL BE CHR CNT 


00620 


CRCNT 


EQU 


$-1 




00630 




DEC 


A 




00640 




LD 


(CRCNT) , 


A 


00650 




RET 


NZ 




00660 


CRLF 


LD 


A, 13 


;C/R 


00670 




CALL 


PRNT 




00680 




LD 


HL, 5000 


;TIME FOR 


00690 




CALL 


WAIT 


; CARRIAGE RETURN 


00700 




LD 


A, 10 


;LINE FEED 


00710 




CALL 


PRNT 




00720 


LLEN 


LD 


A, 64 


;CHRS PER LINE 


00730 




LD 


(CRCNT) , 


A 


00740 




RET 






00750 


PRNT 


DI 






00760 




OR 


A 


;CHK PARITY 


00770 




JP 


PE,P1 


;NO PRTY BIT NEEDED 


00760 




OR 


128 


;IF ODD PARITY 


00790 


PI 


LD 


D,A 




00800 




CALL 


OUT 


;0 START BIT 


00810 




LD 


B r 8 




00820 


NBIT 


LD 


HL,625 


;110 BAUD DLY 


00830 




CALL 


WAIT 




00840 




LD 


A,D 




00850 




AND 


1 


;0 BIT TO BE O/P? 


00860 




JR 


NZ, SHIFT 


;IF NOT 


00870 




CALL 


OUT 


;0/P BIT 


00880 


SHIFT 


SRL 


D 




00890 




DEC 


E 




00900 




JR 


NZ.NBIT 




00910 




EI 






00922 


WT 


LD 


HL,2300 


;TIME FOR STOP BITS 


00930 


WAIT 


DEC 


HL 


. * 


00940 




LD 


A,L 


;* DELAY 


00950 




OR 


H 


;* LOOP 


00960 




JR 


NZ,WAIT 


. * 


00970 




RET 




. * 


00980 


OUT 


LD 


A,l 




00990 




OUT 


(255), A 


•PULSE LOW 


01000 




LD 


A, 14 


; PULSE 


01010 


PLSE 


DEC 


A 


; WIDTH 


01020 




JR 


NZ r PLSE 


; DELAY 


01030 




LD 


A, 2 




01040 




OUT 


(255), A 


; PULSE HIGH 


01050 




RET 






01060 










01070 


START 


DI 






01080 




IN 


A, (255) 




01090 




AND 


80H 


;TEST, AND.. 


01100 




JR 


NZ,GBIT 


;GOT A START BIT 


01110 




EI 






01120 




JP 


995 


;TRY TRS-80 KBD 


01130 


GBIT 


LD 


B,8 




01140 


NXBIT 


CALL 


INBT 


;GET I/P BIT 


01150 




LD 


HL,CHAR 


;ADDR OF CHR 


01160 




SRL 


(HL) 


;SHFT RDY FOR 


01170 




OR 


(HL) 


;NEXT BIT 


01180 




LD 


(HL) ,A 


; RE -STORE 


01190 




DJNZ 


NXBIT 


;IF MORE BITS 


01200 




PUSH 


AF 




01210 




CALL 


INBT 


;1ST STOP BIT 


01220 




CALL 


INBT 


;2ND STOP BIT 


01230 




EI 






01240 




JR 


NZ,STOP 


;MUST BE NZ 


01250 




POP 


AF 


; ASSUME BREAK 


01260 




LD 


A,l 


;LIKE ROM 


01270 




PUSH 


AF 




01280 




JR 


LF 




01290 


STOP 


POP 


AF 




01300 




INC 


A 


•TEST CHR 


01310 




JR 


Z , START 


; IGNORE IF DEL 


01320 




DEC 


A 


;TEST CHR 


01330 




JR 


Z , START 


.•IGNORE IF NUL 


01340 




AND 


7FH 


;CHOP PARITY BIT 


01350 




LD 


(CHAR) ,A 


; STORE WITH NO PARITY 


01360 




PUSH 


AF 




01370 




CP 


13 


JC/R? 


01380 




JR 


NZ,FINI 




01390 


LF 


CALL 


CRLF 




01400 


FINI 


POP 


AF 




01410 




RET 






01420 


INBT 


PUSH 


HL 




01430 




LD 


HL,15AH 


;WAIT FOR RESET 


01440 




CALL 


WAIT 




01450 




OUT 


(255), A 


; RESET LATCH 


01460 




LD 


HL,12DH 


;WAIT FOR I/P 


01470 




CALL 


WAIT 




01480 




IN 


A, (255) 


;GET LATCH STATE 


01490 




CPL 




;GET RIGHT WAY RND 


01500 




AND 


80H 


;ELIM OTHER BITS 


01510 




POP 


HL 




01520 




RET 






01530 


CHAR 


DEFB 





;TTY CHR STORE 


01540 




END 


SETU 





sette input latch is only set 
when a pulse is input to it. If a 
steady voltage caused by a se- 
quence of zeros or ones is input, 
then it just remains in its last 
latched state. Fig. 4 shows how 
this is overcome. 

Fig. 4 shows that the cassette 
input latch will be set/reset dur- 
ing a zero and reset during a 
one. This is detected by the soft- 
ware and merged into a byte. 

If the software does not de- 
tect a start byte during its scan, 
then the TRS-80 keyboard is 
strobed, allowing either key- 
board to be used. The timing of 
this part of the circuit (VR2) 
must be set up with care. If the 
frequency from the 556 is too 
high, an extra transition is 
possible, which gives a false 
zero; if it is too low, then the 
software is likely to detect a 
pulse hanging over from the pre- 
vious one. 

Break Detection 

A simple break detection may 
be employed by connecting a 
390K resistor in series with a 



250K preset between the posi- 
tive rail and the junction of R6 
and R7. This causes the 556 to 
free-run if the TTY is discon- 
nected, and the frequency can 
be set to represent a train of 
zeros, which can then be detect- 
ed by software. 

One useful bonus from using 
cassette pulses to drive the TTY 
is an off-line print facility. By 
recording the driver pulses on 
cassette and replaying them 
through the record jack, a print- 
out can be stored on cassette 
and output from cassette player 
to TTY as often as required with- 
out re-running the original pro- 
gram. 

This gives you a unit which is 
even more versatile than a nor- 
mal printer and can be used with 
or without an expansion inter- 
face. ■ 



Cl .005 uF 
C2 150 pF 
C3 68 uF 
C4, C6.1uF 
C5 .01 M F 
VR1 I0K 
VR2 47K 



Parts List 

R1 330K 

R2 560 K 

R3. R5 4K7 

R4. R6 22K 

R7 150K 

Ql medium gain NPN 

IC1 556 dual timer 
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UTILITY 



A hardworking utility that saves time and space. 



Document 
Those Variables 



William Noel 
15 Kings wood Ct. 
Columbus, GA 31907 



You've just received some- 
one's advanced Star Trek 
game and want to soup it up a 
little or maybe update it to the 
movie version. Now comes the 
tedious part. You must sift 
through the program trying to 
figure out how and what variable 
names are used. 

One long night I sat peering at 
the screen with bloodshot eyes 
trying to shift & the program 



list, while trying to remember 
what had disappeared ten lines 
ago. Either inspiration or 
desperation hit me: Why not get 
my TRS-80 to help with this 
lengthy effort? 

Program Text Area 

First, I had to figure how the 
information was coded in the 
BASIC text area. Program List- 
ing 1 helps examine this area of 
memory. It begins at location 
17129, where the memory con- 
tents are PEEKed and printed. If 
the memory byte contains a nor- 
mal screen character, this sym- 
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66 


3 
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132 









250 




56 


B 
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7 3 


I 


32 




213 




73 


I 


205 




49 


1 







14 




6 7 


c 


10 









72 


•I 


32 




213 




32 




229 




4 


( 


49 


1 


55 


7 


49 


1 


50 


2 


57 


9 


205 




71 


G 


71 


C 


41 


) 







26 




67 


C 


20 









71 


G 


71 


G 


213 




71 


G 


71 


G 


205 




49 


1 







40 


( 


67 


C 


30 









178 




3 2 




72 


H 


59 

9 


; 


34 


11 


32 




32 




34 


• 


59 









76 


L 


67 


c 


4 


'( 







143 




32 




72 


H 


212 




51 


3 


49 


1 


32 




210 


• 


32 




72 • 


!! 


214 




57 


9 


49 


1 


32 




202 




32 




17 8 




32 




247 




4 


( 


72 


H 


41 


) 


44 


, 


32 




58 


: 


149 
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Fig. 1. Out of Memory Display. 







bol is also shown. 

After much trial and error in 
analyzing memory displays I 
have discovered that the first 
two positions of each line point 
to the memory location begin- 
ning the next line. The BASIC in- 
terpreter can use this, for exam- 



ple, to avoid the delay of trying 
to decode remark lines during a 
program run. 

The third and fourth locations 
represent the line number itself. 
Table 1 shows this coding for 
the first two lines of our memory 
display program. 



65000 AS L M N AS C 
65005 D T D T D E T 
I S 8 
U u z s s 
z z 



65010 
65012 
65015 
65020 
65030 W 
65040 W 
65050 W 
65060 Z 
65080 Z 
65090 J 
65100 Z 



TEJTSFEE 



65110 YS Z S S S S S 

65120 YS YS S T YS YS T 

65140 Y$ F A 

65150 AS A YS 

65160 AS A YS 

65170 B C A 

65180 ASBASBLBLBMBMBNBNBB 

65190 C C C 

65200 ASAYSLAEMAENA 

65210 MAEMAENANA 

65220 A 

65230 A 

65240 A C 

65250 ASALAMANAKKKRK 

65260 A 

65270 

65280 T U U U 



Fig. 2. Variable Hunt. 



1 CLS 

5 I -1+1 

10 H = PEEK(17129+GG) 

20 GG=GG+1 

30 PRINT H;" "j 

40 IF H>31 AND H<91 THEN PRINT CHRS(H), ELSE PRINT" 

50 IF 1=60 INPUT Q: 1=0 

60 GOTO 5 



Listing 1. 
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Listing 2. 



65BBB 



65010 



"RESET BEGINNING OF TEXT i DEFINE TABLE' 

POKE 16548, 233:POKE 16549,66 :CLEAR 2B8:CLS:DIM AS ( 
IBB), L(1BB), M(1BB), N(1B8) : AS (1) =" I " :C=1 :S-1 

'GET NEXT LINE, THIS LINE, PRINT, AND CHECK IF THROUGH' 
GOSUB 65 28B:D-T:GOSUB 6528B :D-T*256+D:GOSUB 6528B: 
E-T:GOSUB 65280 : £-T*256+E: PRINT"" : PRINT E;:J-B: 
T»1:S-1:F-B:IF E-65000 GOTO 6524B 

'FINISH LAST CHARACTER OF TEXT LINE' 

IF D-17129+U THEN Z«S: S-l :U»U+1 :GOTO 65015 



65012 'CHECK IF LINE HAS ENDED; OTHERWISE GET NEXT LOCATION' 
IF D=17128+0 THEN U=U-l:GOTO 65005:ELSE Z-S:S-T: 
GOSUB65280 



5015 'IF LONG VARIABLE NAME, SKIP REST' 

IF F-l AND Z>64 AND Z<91 GOTO 65010 

5020 'WHEN A REMARK COMMAND, JUMP TO NEXT LINE' 
F«0:IF Z-147 THEN U-D-17 1 29 :GOTO 65005 

5030 'BEGIN SKIP OF CHARACTERS FOLLOWING A " ' 
IF W-0 AND Z-34 THEN W-l:GOTO 65010 

5840 'END SKIP WHEN THE 2ND " IS REACHED* 

IF W-l AND 2=34 THEN W-0:GOTO 65B10 

505B 'SKIP CHARACTERS BETWEEN' 
IF W-l GOTO 65B1B 

5868 'WHEN : IS REACHED, RESET THE DATA COMMAND SKIP' 
IF Z = 58 THEN J = 8 

5B80 'SET TO SKIP IF A DATA COMMAND' 
IF Z-136 THEN J-l 

5090 'DATA COMMAND SKIP' 

IF J-l GOTO 6501B 

65180 'ALLOW ONLY LETTERS IN 1ST CHARACTER' 
IF Z<65 OR Z>98 GOTO 65010 

5110 'BUILD 1ST LETTER, CHECK IF VALID 2ND CHARACTER' 

YS-CHRS(Z) iIF(S<48 OR S>57) AND (S<65 OR S>90) AND 
S<>36 GOTO 65148 

5120 'ADD 2ND CHARACTER, ADD 3RD CHARACTER IF $ ' 
YS«Y$+CHR$(S> :IF T-36 THEN YS-YS+CHRS (T) 

5140 'PRINT VARIABLE AND BEGIN TABLE SEARCH' 
PRINT YS;" "j:F-l:FOR A-l TO 108 

5158 'TRY AGAIN IF VARIABLE NOT YET REACHED' 
IP AS(A)<YS GOTO 65238 

5168 'FIND THE MATCHING VARIABLE' 
IF A$(A)-Y$ GOTO 65218 



'BEGIN SHIFT TO MAKE ROOM FOR NEW VARIABLE' 
FOR B-C TO A STEP-1 



'SHIFT OVER 1 WORKING RIGHT TO LEFT' 

AS(B+1)-AS1B) : L(B+1)=L(B): M(B+1)=M(B) ] N(B+1)=N(E 
:NEXT B 

'INCREASE TABLE ENTRY COUNT AND CHECK IF OUT OF ROOM' 
C-C+1:IF C-188 STOP 



'INSERT NEW VARIABLE' 

ASIA1-YS: L(A)=E: M(A)-E: NIA)=1: GOTO 65228 



'WHEN THE SAME VARIABLE, UPDATE FOR THIS LINE' 
IF M(A)OE THEN M(A)-E: N(A)-N(A)+1 



522B 'CAUSE AN EARLY END TO THE TABLE SEARCH' 
A-1B8 



5238 

5248 

65258 

526B 

5278 
65288 



'CONTINUE TABLE SEARCH OR GET NEXT TEXT POSITION' 
NEXT AsGOTO 65B1B 

'BEGIN DISPLAY OF VARIABLE SUMMARY' 
PRINT": FOR A=l TO C-l 

•PRINT SUMMARY AND WAIT IF A FULL SCREEN' 

PRINT AS(A) ,L(A) ,M(A) ,N(A) , : K=K+1:IF K-15 THEN 
INPUT R:CLS:K=B 

'PRINT THE NEXT LINE' 
NEXT A 



•GET THE CURRENT POSITION OF TEXT i MOVE COUNTER TO NEXT' 
T-PEEKU7129+U) : U-U+l: RETURN 



Note: Up arrow appears as left bracket in listings. 
Note: Line 65005 allows the program to run independently. 



As you can see, the line num- 
ber code has the least signifi- 
cant value first. This seemingly 
backwards way of coding is the 
manner the TRS-80's micropro- 
cessor handles two-byte num- 
bers. 

Look a little closer at the next 
line pointer which also has this 
reverse sequence. 

A byte, of course, has eight 
bits that can be turned either off 
or on representing either zero or 
some numeric value. A code of 
two bytes gives a total of 16 bits 
to represent a memory address 
in the next line pointer's case. 

Each of these 16 bits are num- 
bered 0-15 and represent, when 
on, a value based upon their lo- 
cation number. Beginning with 
bit having a value of 1(2° = 1), 
two is multiplied times the prior 
bit value. These values are 
shown in Table 2. 

Looking at byte 1, you can 
create total values from to 255 
by adding different bit combina- 
tions. This matches the range of 
values generated by PEEKS into 
memory. After looking at both 
bytes together in this manner, it 
is easy to see why the first byte 
should represent the low order 
value. 

Adding all 16 of these bit 
values together results roughly 
in the largest memory value and 
line number that can be repre- 
sented in two bytes. This figure 
totals to 65535. 

When I say it is a rough max- 
imum, I am referring to the line 
number. For some reason that I 
have yet to find, we are restrict- 
ed to an upper line number limit 
of 65529, although the coding 
possibilities will allow six more. 
But who's going to need them 
with over 65000 available? 

Of course, in BASIC we must 
deal with one byte at a time 
while using the PEEK state- 
ment. It is possible to convert 
the second byte to its proper 
value by multiplying it by 256. 

Convert line one's next line 
pointer; 



239 + (66-256) = 17135 

This result matches the first 
memory byte of line five. 



Text Coding 

Fig. 1 shows the complete 
text area for the memory display 
program. The variables I, H, GG, 
and Q are kept in normal screen 
and keyboard coding. 

But the statements and func- 
tions CLS, PEEK, PRINT, IF, 
AND, ELSE, INPUT, GOTO, =, 
+ ,>,<, CHR$ have all been con- 
verted to a one-character 
special code. 

This conversion in addition to 
saving memory also makes it 
easier to identify program vari- 
able names. PEEK won't be con- 
fused with the variable name PE. 
The same is true of other state- 
ments and variables. 

Listing 2 shows a program 
that picks out variables. At the 
same time the program saves 
the first line number, last line 
number, and number of total line 
occurrences for each variable. 

When a program line contains 
a remark, everything following it 
will be ignored by Level II ma- 
chines. When you enter these 
program lines, either leave out 
the remarks or enter them at dif- 
ferent line numbers. 

Figs. 2 and 3 show the screen 
results of this program analyz- 
ing itself. Fig. 2 shows the pro- 
gram as it progresses through 
the text Identifying each line 
and the variables found in that 
line. Fig. 3 shows the screen 
summary displayed when that 
run is finished. 

Table 3 defines each variable 
used in the variable documenta- 
tion program. 

Now that we have a program 
that documents variables, an- 
other bothersome detail crops 
up. This program must be in the 
same text area as the program It 
will analyze. 

The July, 1979, issue of Radio 
Shack's Microcomputer News- 
letter, includes a method for 
adding a BASIC program by key- 
ing it in at the end of existing 
text contents. The flowchart in 
Fig. 4 shows the steps involved. 

After trying it a few times. I 
looked for an easier way. What 
was this PEEKing and POKEing 
really accomplishing? 

With our knowledge of the 
coding technique for current 
line number and next line loca- 
tion, let's convert the last two 
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WE MEAN BUSINESS! 

BUSINESS SOFTWARE, THAT IS 



TRS80 



USE YOUR 
FOR MORE 
THAN FUN AND GAMES 



THE DATA DUBBER $49.95 

Duplicate-* any program tape to TRS-80 quality Recon 
structs date pulses lo ensure accurate CLOADs Permits 
easy loading of even poor quality commercial tapes with 
out constant volume adjusting Money-back guarantee if 
not satisfied 



THE ELECTRIC SECRETARY $75.00 

A powerful word processor to turn your TRS 80 into an 
automatic typewriter Features page numbering, movable 
margins, headers variable page length and Wle centering 
Enter text revise, correct and output to pnntet page for 
matted justified, even hyphenated as required Cross 
< oupbng files permits individually addressed form letters 
Complete with upper lower t ase conversion information 
on diskette 'specify if RS-232 adapter is installed in 
inlerta< •.- 

MAILROOM PLUS $75.00 

A versatile and powerful mailing program to pnnl labels 
by sequential coding *ip city, stale <ustomer ID code, 
even last nami Sorts by any c ode in minutes and stores 
sequentially m a single stnnq (appmx I 500 «■• Ofdl pel 
diskette) Includes AUTOPRtfl Supphed on Askew 

MIMIMAIL $50.00 

A compact version of MAk .ROOM PLUS but without 
c ustomer c oding Features alpha lookahead lor dupli 
cates Supphed on diskette 

FORMLET $35.00 

Generates form letters from fWIIMAIL records Prepare 
you letter bulletin, notice advertisement, etc then load 

the MINIMAIl tik-s Youi pnntei will pnnl '• 

address tenet end repeal fei each neme m the file aM 

properly si-i"-,i and jusufted Supplied on cassette 

AUTOBOOT $ 1 5.00 

Simplifies aulomatx BASH program loading from you 
Ik is Permrts sequencing through your choice ol DOS 
commands selects files and memory sue you spec ify . and 
loads or runs selected program Allows user lo see direc 
tory and free space before program runs automatically 
Supphed on i assefte 

SIR ECHO SI 0.00 

A handy program to make your pnntei work like an 
electric typewriter Use atone or merge with your programs 
to make what appears on the s« n-rn echo to the printer 
Supplied on i assette 

TELEFON $20.00 

Make your 1 RS 80 a smart terminal Communicate with 
time share and other computers bulletin boards, etc 
Transfer programs over the phone f or disk systems with 
modem 

UPPER/LOWER CASE CONVERSION S20.00 

Repnnt of KILOBAUD article explaining how to modify the 
TRS80 to dnplay both upper and lower case characters Kit 
contains step-by step instructions parts, and necessary soft 
ware on cassette for case nversal echo, and automatic kne 
feed routines 



User group discounts avaitaoie 
Dealer inquiries invited 



"TRS-80 is a trademark ol the Tandy Corp 



TERMS Check money or 
der Visa Mastercharge 
Washington residents add 
S 3% toi tax 



THE PERIPHERAL PEOPLE 

PO. Box524,Dep't.M 
Mercer Island, WA 98040 

' ^43 (206)232-4505 



LOWER CASE & GRAPHIC 

SYMBOLS GENERATOR KIT 

FOR TRS-80" CG 16 $94.50 



»,-.--ei23456;»89i »<• 
artBCDEFGH! JKltiriOPOPSTUVUXYZt *« 



.'.rfcMCAi' 

r-_T, 'roo- 1 1+ -'♦♦♦» 

^^~~~~~J A \A J r S f KV ". .~-aC* 



TRUE 2 LINE DECENDER LOWER CASE ELECTRON 

IC SYMBOLS THIN LINE GRAPHICS GAME SYM 

BOLS TEXTURED BACKGROUNDS AND MANY 

MORE DEMO CASSETTE IS INCLUDED 

FULLY ASSEMBLED WITH DETAIL INSTRUCTION 

FOR EASY INSTALLATION 

REOUIRES ELECT PENCIL TYPE L C MOD OR 

ORDER MEMORY AND SWITCH KIT SMK FORS1850 



SYNCHRONOUS DATA 
SEPARATOR FOR DISK USERS. 
SDS $34.50 

THE SYNCHRONOUS DATA SEPARATOR WILL 
ELIMINATE 100% OF THE SOFT READ ERRORS 
AND SPEED UP DISK ACCESS TIME BY ELIMIN- 
ATING RETRIES BY THE DISK CONTROLLER 

THE SDS PLUGS INTO THE DISK CONTROL- 
LERS SOCKET AND HAS ONLY TWO WIRES TO 
CONNECT NO TRACES HAVE TO BE CUT IT IS 
THE MOST RELIABLE AND ACCURATE DATA 
SEPARATOR AVAILABLE 



ADDS250FORS &H CALIF RES ADD6SSALE TAX 
SEND CHECK OR MONEY ORDER TO 

G.P. ASSOCIATES '*° 3 
P.O. BOX 22822, SACRAMENTO, 
CA 95822 (916)3920257 

TRS-80 IS A TRADF MARK OF TANDY CORP 




CASIO 

Calculator Watch 

Tim* Calendar Display 
8 Digit Calculates 
Stopwatch 

$42.95 



F80 Alarm Chronograph $26.95 




TELEPHONE ANSWERING 

SANYO M139N $99 

SANYO 9918 Remote $239 

RECORD A CALL 80A $199 

RECORD A CALL 90A NEW! WRITE 

Q5B FLIP-PHONE 

$36.95 



Mattel Intellivision 
$239.95 




ALSO Atari Sharp Cobra JVC 
SONY Panasonic 



MasterCard VISA 

SYNAPSE VIDEO "™ 

P.O. BOX 962 

NEW YORK,N.Y.10009 



THE BOOKKEEPERS 



FOR INFO CALL (603)-447-2745 



Full Charge Bookkeeper-48K, 3 DRIVE, w/ALPHA $199.95 

Intermediate Bookkeeper-48K, 2DRIVE & Printer $189.95 

Cheap Bookkeeper— 32K, 2DR1VE & Printer $175.00 

All Above Are Daily journal— G/L Systems 

Hex Code Converter, Loan Payment Finder, & 

Amortization Table, 16K, 1DRIVE & Printer-ALL 3 $29.95 

STURDIVANT & DUNN, INC. ^82 

BOX 277, 124 WASHINGTON ST., CONWAY. NH, 03818 
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A 


65140 


65260 


11 


AS 


65000 


65250 


6 


B 


65170 


65180 


2 


C 


65000 


65240 


4 


D 


65005 


65020 


4 


E 


65005 


65210 


3 


F 


65005 


65140 


4 


J 


65005 


65090 


4 


K 


65250 


65250 


1 


L 


65000 


65250 


4 


M 


65000 


65250 


5 


N 


65000 


65250 


5 


R 


65250 


65250 


1 


S 


65000 


65120 


6 


T 


65005 


65280 


4 


U 


65010 


65280 


4 


N 


65030 


65050 


3 


Y$ 


65110 


65200 


6 


1 


65010 


65110 


10 




Fig. 3. Variable Summary. 





Lin* 

Number 

1 Memory 
Location: 
Value: 

Character: 



Next Line Current Line Program Statements Trailing 
Pointer Line Number Character 



17129 30 

239 66 

B 



Memory 

Location: 17135 36 

Value: 250 66 

Character. B 



31 32 
1 



37 38 
5 



33 

132 



39 40 41 42 43 44 
73 32 213 73 205 49 
I Space I t 



45 



Table 1 First two lines of Memory Display Program. 



Byte 

1: Bit No. 
Value 1 



7 
128 



2: 



Bit No. 
Value 



8 9 10 11 12 13 14 15 

256 512 1.024 2,048 4,096 8,192 16,384 32,768 



Table 2. Two Byte Numbers. 



A Counter for table search 

A$ Table for variable name 

6 Present location during table shift 

C Pointer for last table entry 

Next line beginning memory address 

E Current line number 

f- Switch to skip rest of long variable name 

J Switch to skip after DATA statement 

K Line count for screen summary 

L Table for firsl line occurrence 

M Table for last line occurrence 

N Table for number of total line occurrences 

R Pake input variable 

S Next to oldest text character ago) 

T Current text character 

U Counter for current position in text 

W Switch to skip from first "to 2nd" 

Y$ Current variable name 

Z Oldest text character (2 ago) 

Table 3. Variable List. 



Lin* number 
65000 
65010 
65012 
65020 
65280 



Change 
delete the two POKEs 
change 17129 to 26302 
change 17128 to 26301 
change 17129 to 26302 
change 17129 to 26302 



Then type SAVE VAROOC. A 

Table 4. Program Changes for Disk BASIC. 



• ^ ^» ^. ^p». ^* ^fc .^^^^p> ^fc ^k ^. ^p. ^. ^^ 



e-r 



TBS 



80 



«4 



*YQ* 



***** 



*-401 



* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 



THE 

GREEN 

SCREEN 



• IMPROVE IMAGE CONTRAST 

• REDUCE EYE FATIGUE 

• ENHANCE SCREEN LEGIBILITY 

• PROVIDE A MORE PLEASING 
DISPLAY 

• GIVE A DISTINCTIVE PROFESSIONAL 
LOOK TO YOUR SYSTEM 

The GREEN SCREEN is custom molded to 

fit nicely over the picture tube. 

It ingeniously mounts in seconds without 

any tools. 

w * * * * * 

CALL: (212) 286-5916 
or send 812.50+ 82 S&H 

ALPHA product co. 



* 

* 
* 

* 

* 
* 

* 



85-71, 79th St., Woodhavan, N.Y. 11421 



T=ISU// 

BUS EXTENDER FOR TRS80* 
LIKE HAVING 5 EDGE connectors 



TO 
KEYBOARD 

OR 
EXPANSION INT 
(screen printer port) 



TO 
ACCESSORIES 



/ / 



* 
* 
* 

-K- $80 

+$2s«h 

±L ALL GOLD PLATED CONTACTS 

" ************************************* 

l-AflALOG 80 $ 14 <> 




<£- 



%m^Xy 



stock 



* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 



w 8 channel ANALOG TO DIGITAL converter. Anything w 

"7T that can be electrically measured can be interfaced to ^* 

w. your TRS-80 - voltage, current, temperature, pres- ^. 

r* sure, light level No assembly language needed. 4 '^ 

it mm "N" 

* A I nuA < 212 ] 296 - 5916 *• * 

# ALrHA product co. * 

^ 85-71, 78th St., Woodhavan, N.Y. 11421 ^2 10 ^ 
!3fv jjC 3JC 3JC 5eC jfC 3fC 3*C 58C 3fC 3JC 3SI 



*■ Reader Service— see page 226 
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POKE 
(■Etui 

POKE 
PEEK 


U4|. 

66JJ>»2i« 
6149, 

66541 


^_ 1 


2» 


a clo»o 


1 


POKE 

POKE 


ISS48.JJJ 
l«J49.«6 



Flow Chart. 



POKES to 



233 + (66-256) = 17129 



Voila! That is the beginning 
text memory location we have 
been using. Therefore, locations 
16548 and 16549 must be where 
Level II BASIC keeps this point- 
er. 

The comparison of location 
16633 to 2 and the two POKEs 
on either route afterwards, are 
going to be a little more difficult 
to decipher. 

If you have the two-byte num- 
ber 1 67 and want to subtract 2 
from it, you run into trouble right 
away. One minus 2 gives -1, 
which isn't within the 0-255 code 
range. So borrow 1 from the sec- 
ond byte making it 66 and add 
its multiplied value 1 -256 to the 
first byte. This manipulation 
gives you the number 257 66. 
Now subtract 2, giving 255 66. 

If the first byte were 2 or 
larger, you wouldn't have to bor- 
row from the second. Two minus 
2 gives which is a valid result. 

Suppose, somewhere in mem- 
ory, Level II BASIC keeps track 
of the memory location that fol- 
lows the last program line. It 
could then point two bytes be- 
yond the final program line. 

Double VOILA!! The begin- 
ning of text pointer (locations 
16548 and 9) is replaced with the 
position new text should begin 
(locations 16633 and 4 minus 2). 
When this is done, Level II 
BASIC is tricked into loading a 
new program after the current 



text program. Finally, the begin- 
ning text pointer must be reset 
back to the correct value of 
17129. 

Assembler Help 

Program Listing 4 shows an 
assembler program which re- 
places the beginning text point- 
er. The decision-element (DE) 
register pair is loaded with the 
value 2 while the HL register pair 
is loaded with the hexadecimal 
address of the end of text point- 
er. 

The DE pair is subtracted 
from this address, and any bor- 
rowing is automatic. It then 
stores this adjusted value in the 
hexadecimal address of the be- 
ginning text pointer and jumps 
to the Level II READY message. 

This program loads just 
below Radio Shack's debounce 
routine on a 16K system. 

The beginning text pointer is 
then reset to its correct value by 
the two POKEs in line 65000 as 
shown in Program Listing 2. 

The steps to run variable 
documentation are: 

1. CLOAD the program to be 
analyzed. 

2. Enter SYSTEM. ADDTXT 
and / (or follow the steps in Fig. 
4). 

3. CLOAD the variable docu- 
mentation program in Program 
Listing 2. 

4. Enter RUN 65000. 

If the screen becomes com- 
pletely full during the summary 
display, hit ENTER to continue. 

To run variable documenta- 
tion with Disk BASIC, make the 
program changes shown in 
Table 4. 

The execution steps are 1) 
LOAD the program to be ana- 
lyzed; 2) enter MERGE "VAR- 
DOC"; and 3) enter RUN 65000. 

There are several things that 
could cause complications in 
running the variable documen- 



tation program. Remember that 
the program to be analyzed 
should not have lines numbered 
65000 or greater. 

Program tables allow only 99 
entries. They must be increased 
to record more variable names. 
Also the CLEAR must be in- 
creased correspondingly. These 
changes will naturally use more 
memory. 

If there is not enough memory 
to do the run, delete the follow- 
ing from the program to be ana- 
lyzed: 

• REM lines 

• Lines that don't have vari- 
ables 

• DATA statements 

• Characters between dou- 
ble quotes 

If you want a printout of the 
summary, insert the following 
program line: 



65255 LPRINT A$(A). L(A). MIA). N(A) 



Saving Memory 

Understanding how program 
lines are coded in the text area 
makes it easier to see what to 
avoid for programs tight on 
memory. Remember that 
spaces in the text line use one 
byte each; each program line 
adds five bytes (VS one byte for 
a :); and REM lines use a full byte 
for each comment character. It 
is better to choose single-letter 
variable names than two charac- 
ter names. 

Now that you have a program 
and an understanding of how to 
document variables, how about 
a challenge? Who out there can 
develop a program to effectively 
document GOTOs, GOSUBs. 
and RETURNs?B 



6 5000 POKE16548,23 3:POKE16549,66:CLEAR200:CLS:DIMAS(100 

) ,L(100) ,M(100) ,N(100) :AS(1)="[":C=1:S=1 
6 5005 GOSUB65 28 0:D=T:GOSUB6 5 280:D=T*256+D:GOSUB65 28 0:E= 

T:GOSUB6 5 28 0:E=T*2 56*E:LPRINT""':J=0:T=1:S=1 :F = 0: IF 

E=65300GOTO6 5 240ELSELPRINTE; 
6 5010 IFD=17129+UTHENZ=S:S=1:U=U+1:GOTO65015 
6 5012 IFD=17128+UTHENU=U-1:GOTO6 5 005:ELSEZ=S:S=T:GOSUB6 

5280 
6 5015 IFF=1ANDZ>6 4ANDZ<91GOTO6S010 
65 020 F=0: IFZ=14 7THENU=D-17129:GOTO65 00 5 
65030 IFW=0ANDZ = 34T1IENW=1 :GOTO65010 
65 040 IFW=1ANDZ=34THENW=0:GGTO65010 
65050 IFW=1GOTO65010 
65060 IFZ=58THENJ=0 
65080 IFZ = 136TIIENJ-1 
65090 IFJ=1GOTO65010 
65100 IFZ<65ORZ>90GOTO65010 
65110 YS=CHRS(Z) :IF(S<48ORS>57)AND(S<65ORS>90)ANDSO36G 

OTO65140 
65120 Y$=Y$+CHR$ (S) : IFT=36THENY$=Y$+CHR$ (T) 
65140 LPRINTYS;" " ; : F=l : FORA=1TO100 
65150 IFA$(A)<Y$GOTO65230 
65160 IFA$(A)=Y$GOTO65210 
65170 FORB=CTOASTEP-l 
6 5180 A$(B+1)=AS(B) : L (B+l ) =L(B) :M (B+l ) =M ( B) :N (B+l ) = N (I)) 

:NEXTB 
65190 C=C+1:1FC-100STOP 

6 5200 AS (A)=Y$:L(A)=E:M(A)=E:N(A)=1:GOTO65 220 
6 5210 IFM(A)OET!IENM(A)=E:N(A)=N(A)+l 
65220 A=100 
65230 NEXTA:GOTO65010 
65240 STOP:LPRINT"" :F0RA=1T0C-1 

65250 LPRINTA$(A) ,L(A) ,M(A) ,N(A) : K=K+1 : IFK=15THENINPUTR 
:LPRINT"?":LPRINT" ":LPRINT" ":LPRINT" ":LPRINT" " 
:CLS:K=0 
6 526 NEXTA 
65270 END 

65280 T=PEEK(17129+U) : U=U+1 :RETURN 
65300 REM 

Listing 3. 



7FBA 


00100 


ORG 


7FBAM 


;BEGIN AT 32698 


7FBA 110200 


00105 BEGIN 


LD 


DE,2 


;LOAD IN 2 


7FBD 2AF940 


00110 


LD 


HL, (40F9H) 


;LOAD CONTENTS OF 16633 & 4 


7FC0 ED52 


00120 


SBC 


HL.DE 


; SUBTRACT 2 


7FC2 22A440 


00130 


LD 


(40A4I1) ,I!L 


;LOAD RESULT IN 16548 & 9 


7FC5 C3191A 


00140 


JP 


1A191I 


;JUMP TO READY MESSAGE 


7FBA 


00150 


END 


BEGIN 




00000 TOTAL 


ERRORS 




Listing 4. 
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UTILITY PACK 



CPU: Compress Program Utility. Removes all unnecessaryspaces and remarks 
from a Basic program, and will compress lines if specified Complete regard 
for unclosed strings and unusual commands. Fast Z-80 speedlLevel II or DOS. 
$19. 9 5/$ 2 1.95 

SEARCH: Lists any Basic program lines containing any occurance you select 
Break at any time to make changes, or continue Option allows for LPRINTed 
listing Written in Z-80! Level II or DOS $19.95/$21.95 

SPECIAL DOS OFFER: All of these utilities, on one diskette, can be purchased 
for |ust $49.95! THAT'S HALF PRICE! 



BTRACE: Makes the TRON command easier to utilize by placing the current 
line being executed in one convenient location Preserves your screen display 
Level II or DOS Written in Z-80 $19.95/521.95 

CHANGES: Generates a screen or printed listing of differences between vers- 
ions of programs you are developing DOS only $14.95/$16.9S 

REPLACE: Allows you to search and replace occurances in your Basic pro- 
grams (saved in ASCII format) DOS ONLY $14.95/$16.95 

SPECIAL LEVEL II OFFER: CPU. SEARCH, and BTRACE. together on one 
cassette, can be purchased for just $29.95 THAT'S HALF PRICE' 



NEWEST PRODUCTS! 

IRV $24.95 

BOSS $29.95 

TUNNEL OF FAHAD $9.95 

JOIN THE "SOURCE" $100.00 

RESCUE AT RIGEL $14.95 



BOOKS 

The Book. Vol 1 $14.95 

Supermap 8.9S 

Disk & Other Mysteries 19.95 

Disassembled Handbook. Vol 1 10.00 

Disassembled Handbook. Vol 2 15.00 

Inside Level II 15.95 



MEDIA 

Nashua diskettes $24.95/10 

Verbatim diskettes 26.50/10 

C-10 Agta cassettes (5 screw) 10.95/13 

Storage boxes 3.00/ 1 



BEST SELLING GAMES 

MENTAL LAPSE — by Brandon Rigney III. A 
graphic lovers delight, with action to tax your 
abilities to the limit' $12.95. $15.95 

JUNGLE — by Brandon Rigney III Getting back 
to camp may not be as easy as you think! Six 
different levels of complexity make this a game 
for the entire family. $9.95/$12.95 

CURTAINS — by Brandon Rigney III. A con- 
centration game with several unique twists; great 
graphics, too' $9.95/$12.95 

GOMOKU — by Peter Lewis Can you beat the 
computer at this one'' Similar to tic-tac-toe. only 
you need five in a row to win The rules are simple, 
but there is a strategy 1 $9.95, $1 2.95 

OTHELLO — by Jack Decker An excellent 
implementation of the popular board game. One 
or two players, different skill levels. Option for 
keeping score thru the game $9.95/$l2 95 

CRIBBAGE — by Richard Vossel Plays by Hoyle. 
Fast response times. Guaranteed debugged 
Excellent for learning (use the HELP function). 
or for the expert Satisfaction guaranteed' 
$16.95/$19.95 (versions are different) 
Specify Level II or DOS. 




-Tot ** 



Know what the three T's ot computing 
are? Tips, Tutorials, and Techniques. 
That's what The Alternate Source News 
is all about. Teaching you to become a 
better programmer, both in Basic and 
Assembly Language. Published bi-monthly, 
six issues are tust $9.00. 

TBS« .« • iiMwnara ol tn« Radio Snacn DwMon oi T*m)y Corporation 



VARKEEP 

VARKEEP is a new memory manage- 
ment utility which adds the following 
powerful commands to Level II or Disk 
Basic: NAME SAVE, NAME RESTORE, 
NAME DELETE and NAME CLEAR. Us- 
ing these commands will allow the Ba- 
sic programmer to protect the values 
of all variables from erasure by LOAD, 
RUN, NEW and clear. You'll be able to 
restore to a program all variables used 
by a previous program (easily simulate 
the powerful CHAIN command found 
in other Basics), delete variables no 
longer needed in order to reclaim 
valuable memory space, redimension 
arrays, &change amount the of string 
space available to a program while it is 
running. Written in machine language 
to work with Level II or Disk Basic. 
VARKEEP is now available for just 
$14.95 on cassette, $16.95 on diskette. 



ABSOLUTELY FREE! 



For every single item over $1 5 00 that you order, select one of the FREE programs 
below' (Available separately for $5 95 each ) 



SYSLOAD: A patch to DOS to allow 
/CMC file execution via the Basic 
SYSTEM command By Jesse Bob 
Overholt 

RAMTEST: Level II or DOS. In Z-80 
using reliable techniques. By Allan 
Moluf 

SUPERKEY: A graphics typewriter 
like you've never seen before' By 
Brandon Rigney III 

BILLBOARD: Generate posters for 
social occasions and friends By 
Brandon Rigney III 

WORKING: Never have you seen a 
program work so hard and get so 
little done! By Bill Brown. 



KILLER: A DOS utility that allows 
you to KILL more than one file at a 
time' By Allan Moluf 
PENRAM: A utility which allows RAM 
manipulation never before possible! 
By Roxton Baker. 

FILEFIX: Direct statement in file? Fix 
it the easy way. with this short pro- 
gram! By Ken Edwards 

PERSONAL PAYABLES: A DOS 

personal finance management system, 
using random files By Charles Butler 
CONVERT: Basic programs to Pencil 
files and back. Basic remark state- 
ments to either Pencil or EDTASM for- 
mat and back. And more. By Bruce 
Hansen. 



Level-60 Basic: First there was Level I, then came Level II, and there's even 
some Level Ill's. But you've never seen anything like Level-80! You'll be amazed 
(that we would even give this program away!!). By KJ Software. 

Space-Out Will remove spaces from your Basic programs. Not all the features 
of the more expensive versions, but it'll get the Job done! Written in Z-80 for fast 
execution. By Jack Decker. 

EDTASM Mods: Four programs to provide various enhancements to your 
EDTASM. Replace spaces with tabs and remove comments to save room. Con- 
vert any block of RAM into EDTASM DEFB statements. Convert Apparat 
EDTASM files to MACRO-80 files. By Roxton Baker. 



ORDER BLANK 



Please sena 



D Ship UPS 



D Ship First Class Mail 



Address 

City 

State. Zip 



SIMPLE SORT 

What are the best qualities of a sorting utility? The sort must be fast. (Simple 
Sort is written in Z-80!) The sort must be efficient. (Simple Sort occupies less than 
3K of machine code and requires less than 1 K for buffers!) The sort must be kind to 
the diskette. (Simple Sort does all its sorting in memory, with a minimum of reads 
and writes!) The sort must not use any extra storage space. (Simple Sort does not 
require any intermediate files!) The sort must be easy to use. (Simple Sort only 
needs to know the bare particulars!) Simple Sort —it's easy, it's fast and it's 
efficient! The perfect answer for single drive owners, and great for dual drive 
owners who prefer to use formatted-only diskettes! 

$79.95 on diskette with manual. 



Mail To: 



Shipping 
Total 



$2 00 



Master Charge/VISA 
517-485-0344 
517-487-3358 



We will ship C.O.D. 
(add $1.25 please) 

TRS-80 is a trademark ol the Tandy Corporation 



D Check here lor FREE issue ot The Alternate Source \ 
D Enclosed is $9.00 Begin my subscription with issue 



ith any order 



The Alternate Source 

1906 Ada Street 

Lansing. Ml 48910 



Michigan residents add *\ sales ia» Foreign pleas 
welcome but please include additional postage 



send U S lunds Foreign orders 



s Reader Service— see page 226 
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UTILITY 



Get perfectly aligned printouts every time. 



Printer Calibration 



L. O. Rexrode 
35026-A Turtle Trail 
Willoughby, OH 44094 



If you use more than one type 
of paper with your printer, this 
simple modification makes a lot 
of sense. 

At the office my TRS-80 and 
Centronics 779 with tractor feed 
are used primarily for handling 
advertising mail inquiries and 
our normal operation uses five 
different types of forms. 

In the interest of saving time 
and improving efficiency, the 
need for a method that starts 
every print routine exactly where 
it is intended, regardless of who 
is operating the sytem, was ap- 
parent. 

Three Variables 

With the Centronics 779, 
three variables are of primary 
importance in printing a profes- 
sional looking form: left margin 
setting, top-of-form setting and 
the "density" setting. Any, or all 
of these, may require different 



settings for various print rou- 
tines or form sizes. The length of 
form (number of lines) is not in- 
cluded, since a program is usu- 
ally written with this factor as a 
constant. 

The simplest variable is the 
left margin setting. The printer's 
roller/tear-bar assembly has an 
engraved scale in one-eighth- 
inch increments from -15 on 
the left to 90 on the right. This 
scale should be used to set the 
left edge of the form to be 
printed. The value is determined 
by a trial run. 

To set the top-of-form re- 
quires the addition of a scale to 
the 779. This is done quite easily 
if you use the hold down clamp 
on the left pin feed assembly. As 
shown in Photo 1, use a three 
and one-half-inch peel-off label 
and type a column of numbers, 
say, from 1 to 21 . Trim off the ex- 
cess margins and place the la- 
bel right along the edge of the 
hold down clamp. The resultant 
scale now allows you to set the 
top-of-form to a specified posi- 
tion. 

The third variable is the print 



density control. This sets the 
number of characters-per-inch 
printed. For maximum legibility 
you usually want this set as 
wide as the form will allow. The 
control, located on the rear of 
the printer, is not only difficult to 
reach but requires several lines 
of print, with trial and error ad- 
justments, to get the optimum 
settings. A calibrated dial knob 
solves this problem easily. 

The dial knob I used is Radio 
Shack's part no. 274-413. How- 
ever, on some printers, the shaft 
may not protrude quite far 
enough to get a good bite when 
the set screw is tightened. If so, 
use a coarse file on the rear face 
of the knob, removing about 1/32 
of an inch to 1/16 of an inch. 

Cut a sliver from the adhesive- 
backed label to make a pointer 
for the dial and place it approx- 
imately as shown (Photo 2). Ro- 
tate the adjustment shaft fully 
counterclockwise (lowest den- 
sity setting) and push the knob 
onto the shaft, setting the num- 
ber one mark to the arrow. Tight- 
en the set screw and you're 
through. 



Find Your Values 

Run each of your print rou- 
tines and determine the opti- 
mum value of the three vari- 
ables: left margin, top-of-form 
and density. Note these values 
for use with the routines. The 
best place to note them is in 
your program, immediately pre- 
ceding the first LPRINT state- 
ment. If you are new to program- 
ming, here is the statement I use 
to get the results shown in 
Photo 3 (your line number, title 
and values will relate to your 
own program, of course): 

1000 CLS:PRINT@320, "READY TO PRINT 
MAILING LABELS DIRECTLY FROM 
DISC":PRINT:PRINT 'SET TOP-OF- 
FORM TO 20":PRINT"SET LEFT 
EDGE OF FORM TO -4":PRINT 
"SET DENSITY CONTROL TO 4": 
INPUT" 'ENTER' TO CONTINUE"* 

When LLISTing a program in 
BASIC, it is not possible to use 
such a prompting message, and 
I am constantly LLISTing with 
the density set too low, which re- 
sults in my losing the ends of 
long program statements. As a 
reminder to myself to set the 
density before starting a LLIST, I 
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Photo 2 



tumnnm mum urns idecily fmm use 

SO TOP-OF-fCW TD a 
SET UFT EH CF FW TO -4 

sn Bern arm to 4 

'DfTDf TOCOKTIHUP- 



P/70/0 3 



used another label, placed 
prominently on the top front of 
the printer that almost shouts, 
"For Listings Set the Density to 
7 inches. It works. 

We have been using this 
method for several months now, 
and it is quite gratifying to see 
the results. No matter who is op- 
erating the system, and regard- 
less of how often we change 
forms or paper, the first line of 
print goes down exactly where 
we want it to. 



A couple of other time savers 
we have added to our program 
are worth the time and the slight 
additional memory required. 
The first one resulted from our 
operator having spent over an 
hour trying to figure out why the 
computer wouldn't run and fi- 
nally realizing that the "out of 
paper switch was off, due to a 
small tear in the form which 
wasn't readily apparent. 

To prevent this from happen- 
ing again, I added a GOSUB in 



front of every LPRINT state- 
ment. The subroutine checks 
the status of both the "out of 
paper switch and the print 
switch. If either is off, a prompt- 
ing message is displayed telling 
the operator what is wrong and 
allowing him to correct before 
continuing. My subroutine reads 
as follows: 



750 IFPEEK(14312K128 RETURN ELSE 751 

751 CLS:PRINT@468,'PRINTER NOT 
READY": PRINT® 583, '"R'-RETURN 
TO MENU O— OK TO CONTINUE" 

752 Q$ = INKEYS :IF Q$ = "R'THEN 51 1 

753 IFQ$ = "O'THEN RETURN 



This simple solution has saved 
us hours. 

Add Top-of-form 

Since the 779 doesn't have 
front panel controls that allow 
either a line feed or a top-of- 
form, I added these as a part of 
my program. Since each pro- 
gram has a menu, this was the 
obvious place to access these 
routines. 

The menu uses the INKEYS 
function, so it was just a matter 



of adding the up arrow as the 
selection to advance one line 
and adding the letter "T" to go 
to top-of-form. I did not include 
these two symbols in the menu 
table to prevent clutter. They are 
blind selections. Here are the 
routines: 



620 IFQ$ = -t"THEN800 
625 IFQ$= TTHEN810 



800 IF PEEK(14312K128 GOTO 805 ELSE 

511 
805 POKE 16424.1 POKE 16425.0 LPRINT 

CHR$(11): GOTO 511 
810 IFPEEK(14312K128GOT0815ELSE 

511 
815 POKE 16424.51 :POKE 16425,0;LPRINT 

CHR$<11):GOT0511 



In either of these routines, if 
the printer is not ready, nothing 
happens except returning you to 
the menu. The t advances the 
paper one line. The T advances 
the paper 51 lines, then you are 
returned to the menu. 

In all the examples given, my 
menu routine begins at line 
511. ■ 



CP/M® 1 - based Business Software for TRS-80® 2 computers on . . . 
... the fastest Mod-ll CP/M with the most features!!! 



• Over 610,000 bytes/disk 

• Downloading package included 

• 1,200 baud operation of serial 

printers without data loss 

• Single drive backup 

MOD-II CP/M $250.00 



• Mixed single/double density on any 

of 4 drives (even a 1 -drive system) 

• Ultra-fast disk operation 

• Emulation of cursor addressing for 

any of several "dumb" CRTs 
MODICP/M $150.00 



• Auto-LF printer support & ASCII 

top-of-form software (LPIII) 

• Supplemental document describing 

our implementation 

• User-settable function keys 
CBASIC2 r3 (Mod I or II) $110.00 



The following software for Mod-ll CP/M only unless otherwise stated (*-requires CBASIC2): 



RM/COBOL' 4 - Only COBOL for CP/M with alternate keys (multi- 
key ISAM). CRT screen handling, interactive debug. Z80 code, and 
the most useful Level 2 features Compatible with Tandy's 

COBOL-but runs faster! $495.00 

PMS (Property Management System) - Interactive, menu-driven 
system includes full G/L. budgeting, cash journal, delinquency 
list, tenant activity/rent roll, complete audit trail and reports 

on vacancies, lost rent, and vendors $650.00" 

demo disk & manual 75.00* 

APH (Automated Patient History) - General-purpose question- 
asking, answer-printing system furnished as self-administered 
review-of-systems general patient history (Mod-I also) . . . $1 75.00* 



MAGIC WAND' 5 - Full-feature word processing, true proportional 
spacing, file merging, and use of full-screen editor for source 

programs or data $400.00 

RPA (Residential Properly Analysis) -Analyzes income and expense, 
financing, taxes, inflation and depreciation on home, condo. or 
apartments over a user-selectable time. Shows payoff in terms of 
ROI, Cap rate, cash-on-cash. Amortization schedules and 
worksheet $300.00* 

demo disk & manual 35.00* 

RBC (Rent/Buy Comparison) - Sales or investment tool to compare 
renting and savings account investment vs. purchasing a particular 
property $250.00' 

demo disk & manual 35.00* 



Osborne & Assoc. CBASIC source programs (Mod-I also): 

Payroll w/Cost Accounting $250.00* General Ledger w/Cash Journal $250.00* 

Accts. Payable/ Accts. Receivable $250.00* O&A CBASIC Books (ea.) $ 20.00 

\ferbaiim® 6 media: (Qty. 100 prices) 

5V4" single density $2.50 ea. 

8" certified double density $4.00 ea. 



8" single density $ 3.00 ea 

450' tape cartridges $20.00 ea 




E T 



l&S- 



8041 Newman Ave., Suite 208 c 
Huntington Beach. CA 92647 
(714)848-1922 



Registered trademark of 

11 Digital Research 

" 2 Tandy Corp. 

* 3 Compiler Systems. Inc 

,4 Ryan-McFarland Corp 

' 5 Small Business Applications, Inc. 

' 6 Verbatim Corp. 



Distributed in U.K. by: 

Microcomputer Applications Ltd. 

11. Riverside Court. 

Caversham, Reading, England 

TEL: (0734) 470425 
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HielMECTRANSlOOO 



A completely refurbished 
IBM Selectric Terminal with 
built-in ASCII Interface . ^ 

*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. 



Features: 

• 300 Baud 

• 14.9 characters per second 
printout 

• Reliable heavy duty Selectric 
mechanism 

• RS-232C Interface 

• Documentation included 

• 60 day warranty - parts and 
labor 

• High quality Selectric printing 
Off-line use as typewriter 

• Optional tractor feed available 

• 15 inch carriage width 



Also works with Ex- 
atroiTs Stringy Floppy, 
for fast loading of pro- 
grams. 



HOW TO ORDER 
DATA-TRANS 1000 

1. We accept Visa, Master 
Charge. Make cashiers checks or 
personal check payable to: 

DATA-TRANS 

2. All orders are shipped 
F.O.B. San Jose, CA 

3. Deliveries are immediate 




■**" 



t 



Desk and table top models also available. 
For orders and information 

DATA-TRANS 

2154 OTbole St. +m 

UnitE 

San Jose, CA 95131 

Phone: . (408) 448-0800 




MALL 
YSTEM 



PRODUCTS fijg TRS-80* flm 



MALL 
'ABBS 
k-JYSTEM 



NEW! 



PENH00 - S19.95. Adacts Disk-Pencil to Radio Shack loner case modif 'cat ion. 
Also adds single page printing and several other new features. 

SC»IPR0D - SI*. 95. Add TRS232 print driver, or add handshake/ 1 inefeed 
control to RS-232-C driver in Radio Shack's SCAIPSIT (disk version only). 

HHISTLEI: NONE CONTROLLER INTERFACE - SJA.95. Hex hardware product that 
controls lights, appliances, computer peripherals, darkroom timers and other 
115 volt devices anywhere in your house! Software controlled by cassette 
cable. Use m th Sears or BSR Home Control System with ultrasonic ootion. 
Assembled, tested, sel t-contained, and includes Basic software. 

UTILITIES 

RSR-2: RACHINE LAN6UA6E RON I TOR f0« 16K TIS-80'S - S26.95 
RSR-2D: THREE VERSIONS Of RSR-2 FOR BIS« SYSTEMS - 29.95 
■SH-2 RELOCATOR: PUT RSR-2/2D ANYWHERE IN RER0«Y - 9.95 

Machine Language monitors with 2-80 disassembler! HEX and ASCII memory 
dumps; EDIT, ROVE. EXCHANGE, VERIFY, FILL, ZERO, TEST, or SEARCH memory, 
read/write SYSTER tapes, enter BREAKPOINTS, PRINT Kith TRS232 or Centronics, 
read/write disk sectors directly! RSH-2 tape loads at top of 16K LEVEL I or 
II; RSN-2D disk includes 3 versions tor 16K, S2K and *8K. 

KV-1: CONVERT SYSTEN PIOGIANS TO DISK FILES -S9.95. E.ecute Adventure, 
Air Raid, RSL-1, ESP-1, T-BUG, etc. from disk, even if they interfere with 
TRSDOS! New version works with TRSDOS 2.3. 

BASIC-IP: LEVEL-1 BASIC WITH PRINTING! - S19.95. Run any LEVEL-I BASIC 
program on your 16* Level-2. PLUS LPRINT and LLIST with our TRS232 or 
Centronics. Furnished on tape; can be used fro* disk. 

MACHINE LANGUAGE GAMES 

All RAID, BARRICADE or RSL-1: - S10.00 each, all 5 tor S25.00 

AIR RAID: A super shooting gallery; our most popular gaae. Ground based 
•issile launcher shoots high speed aircraft! Hours of fun! 

BARRICADE: "BREAKOUT" for the TRS-80 1 Break through 5 walls with 
high-speed ball and keyboard controlled paddle' 96 different options! 

RSL-1: Enter patterns with repeating keyboard' Save patterns on tape (4 
furnished). Play John Conway's LIFE. FAST - about 1 second per generation! 



SMALL SYSTEM SOFTWARE 



& 



P. BOX 366 



NEWBURY PARR, CA 91320 



PROFESSIONAL SOFTWARE 

REM! ELECTRIC PENCIL-IIB FOR RODEL-II. Super Pencil version runs under 
TRSDOS or CP/H. Automatic centering, dynamic print formatting, smgle-Dage 
print ing, etc. Buffered keyboard eliminates missed characters at line ends' 
Diablo, NEC, 8u»e versions include bold face print, variable pitc", I more 1 
TRSDOS PENCIL: Standard printer - S32S; Diablo, NEC, Oume (specify) - J350 
CP/R PENCIL: Standard printer - S275; Diablo, NEC, Oume (specify) - S300 

ELECTRIC PENCIL FOR NODEL-I: TAPE-S99.95, DISK-S150.00. Pooula' video 
editor for creating and saving teit files. Prints formatted copy with right 
justification, page titling I numbering, etc. Upper case only, or lower 
case with modification. Reauires at least 16K. 

■SRI I: ENHANCED *SR RONITO* FOR THE RODEL-II - S39.95. Relocatable version 
of RSR-2D plus screen editor for modifying either memory or disk sectors in 
both Hei and ASCII, split screen scrolling, and formatted serial or parallel 
printing. Sold on self-booting disk; directions to save as TRSDOS file. 

CP/R OPERATING STSTER: RODEL-I - 1 14 5. 00; RODEL-II - SI 70.00. The 
8080/280 "Software Bus" for TRS-80's. Rodel-I includes TRS232 and RS-232-C 
software. Rodel-II supports single and double density disks, and reads 
TRSDOS files, "any unique utilities included in both versions' 

PRINTER SUPPORT 

TRS2J2 PRINTER INTERFACE - S59.95 Assembled 8 tested printer interface for 
RS232 or 20-mil current loop printers. Eipansion interface not reauired. 
Print from level-II BASIC, CP/H, BASIC-1P, ELECTRIC PENCIL, etc. St?ndard 
cassette software included. Add S2.00 tor shipping. 

TRS232 "FORRATTER" SOFTWARE PACKAGE - SI*. 95. Adds page and line length 
control, printer pause, "smart" line termination, etc. to TRS232. 

RSR232: Adds RS-232-C capability to RSN-2/2D monitors - S9.95 
PEN232: RS-232-C for cassette version Electric Pencil - 9.95 
EDT232: TRS232 and RS-232-C for tape version of EDTASN - 9.95 



OTHER PRODUCTS FOR THE TRS-80 



ESP-1: S29.95. Assembler, Editor, monitor (8080 mnemonics) 
LST-1: 8.00. Listing of Level-1 BASIC with some comments 



CP/N m Digital Research, Inc. 
See your dealer or order direct. 



TRS-80 tm Tandy Corp. 
. Residents add 61 ta> 



^30 



SMALL SYSTEM SOFTWARE 



P.O. BOX 366 
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Puts sophisticated business strategies at the 
fingertips of all TRS-80 Level II owners! FIN- 
PLAN: A Financial Planning Program for 
Small Businesses is the most complete financial 
planning program available. 

Here's why . . . Developed by an expert: The 
author, Robert Montgomery, is president of a 
management consulting firm and a recognized 
authority on new product planning. Easy to use: 
Data can be entered from normal balance sheet 
statements. Within seconds, FINPLAN will pro- 
vide financial projections for up to 5 years. Ver- 
satility: Are you thinking about modernizing 
equipment, expanding into a new product line, or 
starting a new business from scratch? Will your 
plans run you out of business, out of cash, or on to 
the Fortune 500 list? FINPLAN will answer these 
and other financial questions before you invest a 
dime. Extensive documentation: You don't have 
to be a financial wizard to use FINPLAN be- 
cause it comes with 80 pages of documentation. 



Presented in a step-by-step format, the documen- 
tation is a great learning tool for those who need it 
or a dynamic applications tool for getting the most 
out of FINPLAN. And, FINPLAN is reasonably 
priced. #05103, TRS-80 Level II cassette, $69.95; 
#05108, TRS-80 Level II Disk, $74.95. 

Amiable at four 
local computer store! 

or Call Toll Free, 24 hours a day, 
(1-800-827-3777, ext 302)* TO CHARGE 
YOUR ORDER TO Master-Charge or Visa! 
Minimum order is $10.00; Customer pays 
postage and handling. 

'From Missouri, call 1-800-892-7655, ext. 302 

Hayden Book Company, Inc. 

50 Essex Street 

Rochelle Park NJ 07662 " 419 



^Readei Service— see page 226 
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UTILITY 



Useful software for easy data input. 



Versatile Input 



Tim Wilde 

Box 8775 

Universal City, CA 91608 



I don't know about you, but for 
me the greatest joy from my 
computer comes during the 
development of some useful 
software. Each time I write a 
new program I try to be more 
creative, using lessons learned 
from past programs plus new 
techniques and subroutines 
that I've run across in the many 
magazines and club newsletters 
that I read. 

Advancing from SET (X.Y) 
graphics to POKE and then 
string-packing techniques, you 
also advance in the artful use of 
BASIC. It's a very satisfying ex- 
perience. 

More Elegant INPUT 

So with this noble goal in 
mind I decided to come up with 
an alternative to the INPUT 
statement. What originally 
prompted me to do this was my 
desire to have the majority of 
the screen "painted" white, with 
only a block of darkness in the 
center where input questions or 
prompts would appear. 

With the INPUT statement, 
after typing in the data, you 
would hit ENTER, at which time 
the rest of the line (which I 
wanted to keep white) would be 
erased. Not only that, but I 
wanted a blinking cursor along 



with other automatic features 
I'll describe later. 

Another negative aspect of 
the INPUT statement is that you 
can't enter commas and other 
string delimiters. Disk BASIC 
gives the LINE INPUT statement 
which solves that problem, but 
it's still basically the old in- 
elegant INPUT statement 

The resulting input subrou- 
tine was developed and its first 
application was in a program for 
recording customer sales data 
for my own company. 

The overall scheme uses an 
input subroutine to enter data 
into a temporary array l(EC). Dur- 
ing the course of a single pass 
through the subroutine, I use 14 
variables in array l(EC). I'll call 
these variables INPUT LINES 
KEL). 

After completing a pass 
through the input subroutine, 
the contents of l(EC) will be 
transferred to a master array for 
later output to tape or disk. 
Following this transfer, all the 
elements of l(EC) will be nulled 
(l(EC) = "") and the program will 
return to the beginning of the IN- 
PUT subroutine for new custom- 
er data. 

After initialization, I run a pro- 
gram called Screen that creates 
and stores various graphic 
forms that will be recalled in the 
subroutine as well as other 
parts of Customer Sales Pro- 
gram, using the GSF Package by 
Racet Computes. One of GSF's 
many features is the ability to 
store a display in protected 
memory, so that it can be re- 
called by a simple BASIC state- 



ment. 

At the end of Screen program 
I have the statement RUN 
SALES/BAS, which loads and 
runs the Customer Sales Pro- 
gram. This is where the INPUT 
subroutine comes in. 

For purposes of this article 
I've added lines 1000 to 1020 to 
create a simple version of the 
graphic display used during 
data input. 

The Subroutine 

Line 20 clears 1000 bytes of 
string space and predefines the 
variables used as string or in- 
teger. Array l(EL) is dimensioned 
to hold 14 data items, and array 
S(N,X) is dimensioned for 20 
customers. 

Line 30 calls or creates a 
screen print routine. You can 
paint your screen however you 
like. For demonstration pur- 
poses, I'll use the subroutine at 
line 1000 for screen painting. 

In line 100 PC% stands for the 
blinking cursor. Initially it's set 
equal to 32, which when inserted 
into a PRINT CHR$( PC%) state- 
ment prints a blank space. I'll 
discuss the cursor further at line 
130. EL is the subscript for array 
l(EL) and is initially set for IN- 
PUT LINE #1 [EL(1)]. 

Line 110 is the FOR-NEXT 
loop that makes the whole thing 
work. Each l(EL) has a number, 1 
to 14. The first time through the 
program, EL = 1. Therefore, the 
FOR-NEXT loop reads EP(EP = 
"print @ location" where I want 
the cursor to begin) and ES (ES 
= maximum number of charac- 
ters allowed for an input line). 



As the program progresses 
EL increments, or decrements. 
The FOR-NEXT loop rereads 
DATA lines 270-275 ending up 
with EP and ES equal to the cor- 
rect data for l(EL). 

RESTORE enables you to 
start from the beginning of the 
DATA line tor each READ ses- 
sion EZ counts the number of 
spaces over from the original 
position (EP). Initially it's set to 
zero. 

The PRINT® EP statement 
prints a string of blanks equal to 
the maximum number of charac- 
ters (ES) allowed for that line. 
This is my way of clearing the 
line without erasing any of the 
white boundary. 

Each l(EL) is defined below: 

1(1) -customer number (3 characters) 

1(2) - customer name (20 char.) 

1(3) - customer business name (20 char.) 

1(4) - address line 1 (20 char.) 

1(5) -address line ? (20 char.) 

1(6) - address line 3 (20 char.) 

The remaining lines are for 
customer phone numbers. 



1(7) and K11) H for home or "W" tor work 
(1 char ) 

l(8) and 1(12) area code (3 char ) 
l(9)and 1(13)- 3-digit prefix (3 char.) 
1(10) and 1(14) 4 digit number (4 char ) 

As you can see, each phone 
number is made up of four sepa- 
rate variables. The reason for 
this is to allow for punctuation 
during data input, and yet end 
up with a single variable for 
each phone number containing 
no punctuation (or at least 
limited to 11 characters). 

Later, in line 290 each set of 
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four variables is added together 
to create these two phone num- 
ber variables [1(7) and 1(11)]. 

In line 120 when EL is equal 
to, or greater than 7, this state- 
ment POKEs the necessary 
punctuation to the screen for 
the phone numbers. Since line 
120 Is within the main FOR- 
NEXT loop this punctuation will 
remain on the screen for the 
duration of the telephone num- 
ber input. 

The INKEYS Loop 

Line 130 is very important. It 
starts the INKEYS loop. PC% = 
175 - PC% creates a blinking 
cursor. 

You'll recall that in line 100 
PC% was set equal to 32. During 
the first pass of the INKEYS 
loop, PC% becomes equal to 143. 
This is a graphic block when us- 
ed in a PRINT CHRS(PC%) state- 
ment. The next time line 130 is 
executed, PC% equals 32 again, 
resulting in a blank and so on. 
Voila-a blinking cursor! 

The statement PRINT® EP + 
EZ, CHRS(PC%) therefore prints 
the cursor at (EP + zero) the 
first time, then EZ increments or 
decrements as characters are 
entered. 

Lastly there's the statement I 
= INKEYS which scans the key- 
board setting string variable I 
equal to whatever the keyboard 
sees. 

In line 140, PEEK (14400) and 
(14464) check to see if both the 
shift key and — are pressed. If 
they're both down, the program 
branches to LINE 280. 

If both keys are down the cur- 
sor will move backward erasing 
characters from the screen and 
memory. If you continue to hold 
the keys down, they act like a re- 
peat key. 

This is the only occasion 
where I PEEK the keyboard 
memory for control keys. For the 
remaining control keys I test the 
ASCII value of I (ASC(I)J. for 
reasons you'll see later. 

Line 150, as with any INKEYS 
statement, tests for no key be- 
ing depressed, in which case the 
INKEYS loop is repeated. This 
no- key test must come before 
you test tor the ASCII value of 
string variable I, because if I is 
null, you'll get an FC ERROR. On 



the other hand, it must come 
after the statement in line 140 in 
order to get the repeat back- 
space. 

Line 160 checks the cursor 
character. If it's the graphic 
block, a blank gets printed in its 
place. This eliminates a possi- 
ble stray cursor after hitting 
ENTER, CLEAR, -, etc. 

Lines 170 to 230 check to see 
if the key being depressed is a 
control key. These keys are 
SHIFT/E, SHIFT/S, CLEAR, -, t 
and ENTER. I test for the ASCII 
value, since it gives a single 
discrete value for individual 
keys or any combination of 
keys. 



While writing this program I 
used a subroutine in line 9000: 
l$ = INKEY$:IF l$ = '"THEN 
9000 ELSE PRINT® 0, 
IS.ASC(IS);: GOTO9000. Every 
time I wanted to find out the 
ASCII value of a key or combina- 
tion of keys, I'd run line 9000. 

In line 170 if EL is greater than 
6, we must be in the telephone 
number segment of the pro- 
gram. At that point, if SHIFT and 
the S key are held down, the pro- 
gram won't enter that particular 
set of four phone number vari- 
ables. Instead it goes to the next 
phone number, or, if it happens 
to be skipping the second and 
last phone number entry, it 



branches to line 290, where the 
phone numbers are assembled. 

Starting Over 

At line 180 if ASQI) = 32, 
you've hit the CLEAR key, indi- 
cating that you want to erase 
the line and start over. A string 
of blanks is printed at the cursor 
starting position (EP) for that 
time. The number of blanks is 
the same as the maximum num- 
ber of characters allowed (ES). 
EZ is set to zero, and the tem- 
porary input, l(EL), is nulled. 
Note that EL stays the same. 

At line 190 if ASC(I) = 8, 
you've hit the — causing the cur- 
sor to backspace one step and 



20 CLEAR (1000) : DEFINT E.N : DEFSTR t.P.Q.S.T : CIS : DIM 1(15), S{?0.8) 

30 CLS : G0SU8 1000 : REM ••• CREATE OR RECALL SCREEN DISPLAY HERE •*• 

100 PCX • 32 : EL ■ '. 

110 RESTORE : FOR EC ■ 1 TO EL : READ EP.ES : NEXT : EZ ■ : PRINT 9 EP, STRINGSfES .32) , 

120 IF EL > 6 POKE 1S833.62 : POKE 15837.45 : POKE 15841.45 : POKE 15897.6? : 
POKE 15901,45 : POKE 15905,45 : PRINT 9 599, " » HOME OR WORK"; 

130 PCX • 175 - PCX : I ■ INKEYS : PRINT 9 FP ♦ EZ. CHRS(PCI); 

140 IF PEEK( 14400) ■ 32 AND PEEK( 14464) ■ 1 GOTO 280 
REM *** SHIFT/LEFT ARROW ■ REPEAT BACKSPACE •** 

150 IF I ■ " M GOTO 130 

160 IF PCX " 143 PRINT 9 EP ♦ EZ. CHR$(32); 

170 IF (EL> 6) AND (ASC(I) ■ 115) THEN IF EL -7 THEN El 
REM •** SHIFT/S TO SKIP PHONE NUMBER *** 

180 IF ASC(I) ■ 31 PRINT 9 EP. STRINGS(ES,3?). : !(EL) ■ " 
REM *•• CLEAR KEY ■ ERASE AND START OVER *** 



EL ♦ 4 : GOTO 110 ELSE GOTO 290: 
. EZ ■ : GOTO 130 : 



190 IF ASC(I) ■ 8 GOTO 280 : REM 



LEFT ARROW ■ SINGLE 8ACKSPACE *•* 

: PRINT « FP, STRINGS(FS,32); : GOTO 110 : 



200 IF ASC(I) ■ 91 THEN EL - EL - 1 : I (EL) ■ 
REM **• UP ARROW ■ REDO LINE ABOVE *** 

210 IF ASC(I) ■ 13 THEN PRINT 9 EP. I(EL) ♦ STRING$( ES - LEN(MEL)) ♦ 1. 32) ; : El - EL ♦ 1 : 
IF EL < 15 GOTO 110 ELSE 290 : REM *•• ENTER KEY ■ SAVE ENTRY *•* 

220 IF ASC(I) < 32 GOTO 130 

230 REM •** RESERVED FOR SHIFT/E ■ EDIT M00E ROUTINE •** 

240 IF EZ <ES THEN I(EL) - I(EL) ♦ I : EZ ■ EZ ♦ 1 : PRINT 9 EP. I(EL); : GOTO 130 

250 IF EL < 7 THEN 130 ELSE IF EL < 14 THEN PRINT • EP, I (EL); : EL - El ♦ 1 : GOTO 110 

260 GOTO 290 

270 DATA 88.3.152.20.216.20.280.20,344.20.408,20,472.1,474,3.478 

275 DATA 3,482.4,536,1,538,3.542,3,546.4 

280 IF EZ > THEN I f EL) ■ LEFT$( I(EL). EZ - 1) : PRINT 9 EP ♦ EZ - 1, STRINGS! ES - EZ ♦ 2. 32) 
EZ ■ EZ - 1 : GOTO 130 : ELSE GOTO 130 

290 1(7) ■ 1(7) + 1(B) h [(9) + i(io) : 1(11) - 1(11) ♦ 1(12) ♦ 1(13) ♦ 1(14) 

300 FOR X ■ 1 TO 7 : S(N,X) - I(X) : NEXT : S(N.X) • 1(11) : CLS : 
FOR X ■ 1 TO 15 : !(X) - "" : NEXT : N ■ N ♦ 1 : 
CLS : PRINT 9 320, "TO CONTINUE ENTERING DATA [ENTER C?" 
INPUT "TO PRINT IT OUT [ENTER P]"; Q : IF Q - "C" GOTO 30 

305 FOR X - TO N - 1 : FOR E ■ 1 TO 8 : PRINT "ENTRY:"; X ♦ 1, "ITEM:"; E, S(X,E) : NEXT E : 
PRINT STRINGS(60.42) : NEXT X : END 

1000 Tl - STRINGS ( 22.1 9'. ) : ^2 - STRINC.$(24,128) : T3 ■ STRING$( 18,191 ) 

1010 PRINT STRINGS (64, 191); : r 0« X - 1 TO 9 : PRINT Tl + '2 » T3; : NEXT 
PRINT STRINGS (64. 191 ); : NEX* 

1020 RETURN 

Program Listing 



FOR X • 1 TO 5 
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erase the last character. The 
erasing is done by a branch to 
line 280. 

At line 200 if ASC(I) = 91 you 
hit t. This means you want to 
erase the line above. I put this in 
the program in the event you 
prematurely hit ENTER. 

Line 210 responds to ENTER 
by processing the data con- 
tained in l(EL). First, l(EL) plus 
some cleanup blanks are print- 
ed at the proper location (EP). 
Subscript EL is incremented by 
one in preparation for entering 
the next INPUT line [l(EL+ 1)]. 

If EL is less than 15 then the 
program branches to line 110 to 
begin entering the new l(EL). 
However, if EL is greater than 
15, then all l(EL) have been 
entered and we branch to line 
290 to complete data process- 
ing. 

Line 220 acts as a protection 
against entering certain TRS-80 
control characters. Refer to 
page C1 of the Level II manual. 

Line 230 is reserved for my 
SHIFT/E, edit/correction sub- 



routine. Normally, it would say 
"IF ASC(I)=101 GOTO... the 
editing subroutine." 

At line 240 if the number of 
characters in E(EL) is less than 
the maximum number allowed 
(ES), then the new character (I) is 
concatenated to the tail of l(EL). 
Since l(EL) is now longer by one 
character, EZ is incremented by 
one. Then l(EL) is printed at EP. 
This completes the INKEY$ loop 
so the program returns to line 
130. 

If, in the above line EZ equals 
ES, then the program drops to 
line 250. You won't be able to 
add any more characters to 
l(EL). However, If you're working 
on INPUT lines 7 through 13, the 
second half of line 250 comes in- 
to play. Basically, whatever you 
type after each of the four ele- 
ments of the phone number will 
trigger an advance to the next 
input line. 

Line 260 lets you jump over 
line 280. 

Lines 270 and 275 are the 
DATA statements for reading in 
line 110. 



Testing the Cursor 

The first instruction in line 280 
tests whether the cursor can 
move any further to the left. 
You'll recall that EZ increments 
every time the cursor moves to 
the right of the original starting 
position. As long as EZ is great- 
er than zero, there's room to 
move backwards or left. If EZ is 
greater than zero then the back- 
spacing and erasing occurs. 

This is accomplished by the 
statement l(EL) = LEFT$0(EL), 
EZ-1) which chops off the last 
character in string l(EL). The 
new value of l(EL) is printed, fol- 
lowed by a string of blanks 
equal to the maximum string 
length (defined by ES), minus 
the length of l(EL). The blanks 
are for erasing the rest of the 
line. 

The new cursor position be- 
comes EZ minus one, then the 
program returns to line 130. 

Line 290 combines the four 
telephone number variables into 
two master variables (l(7) and 
1(11)1. 



Lines 300, 305 and 1000 
through 1020 are included in 
order to make the program work 
for demonstration purposes. 

Data is processed in line 300. 
The contents of the eight tem- 
porary storage variables (1(1) 
through l(7) and 1(11)] are trans- 
ferred to permanent storage in 
two-dimensional array S(N,X). 

Line 305 prints out the con- 
tents of array S(N,X). 

Lines 1000 through 1020 sim- 
ply create a screen image. 

In my Customer Sales Pro- 
gram line 300 is the beginning of 
the error correction and editing 
subroutine mentioned in line 
200. Following that, I enter the 
remaining sales data and then 
store it all on disk. 

All of these later program seg- 
ments draw from the input sub- 
routine. ■ 



Addendum 

Since writing this article, 
Wilde has written a machine lan- 
guage version of the program. It 
is available from the author. 



GOO-GOO, GAA-GAA, REA-DEE... 




The Fine Print: 

Overseas rates a tad higher — please write for them. 

Back issues available— ask for our list. 

TRS-80 is a trademark ot Tandy Corporation 

Calif orny residents add 6% to single copies and anthologies 

Programs are for Lv I I 4K and Lv I II 1 6K. After Oct I , Lv I I 



So your new TRS-80 just said its first word. REA — DEE. Now 
what? Are you thinking of its future? About its education? 

Before you run out and get an ANSI standard FORTRAN or a 

CODASYL data base management system, think back to when 

you were less than a year old. How would you have handled the 

bewondering plethoria of data you are possibly thinking of 

handing to your computer? No, you have to CLOAD 

before you can RUN — we all know that So put 

away all those COBOL routines and Pascal texts, 

and get a subscription to CLOAD MAGAZINE 

CLOAD has just the right mix of nutritious 

programs for a healthy, happy new computer. Once 

a month, a new cassette will arrive at your door by 

First Class Mail, full of software that will provide a 

solid learning foundation for both you and your 

computer. 

PRICES Now Oct 1 

I year subscription $36.00 $42.00 

6 month subscription $20.00 $23.00 

Single copies $ 3.50 $ 4.50 

Anthology-volume 1 $10.00 $10.00 

Anthology-volume 2 $1 5.00 $1 500 



l6Konly. 



Copyright CLOAD MAGAZINE 1980 



Mastercharge Visa Welcome. 
Also Cash 6 Gold. 



- CLOAD 

MAGAZINE, inc. 

P. O. Box 1267»Goleta. CA 93017 
(805)964 2761 
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SPOOLER FOR THE TRS-80* 

A proven TRSDOS* / NEWDOS* / NEWDOS80* extension which greatly 
improves the system performance when running typical business 
applications. Many applications have been benchmarked to run nearly 
twice as fast with the Spooler installed. Installs in minutes. No changes to 
your programs. 

Specify: Mod I (TRSDOS/NEWDOS) or Mod I (NEWDOS80) or Mod II 
(TRSDOS 1.2). $100. 



Modelll XBASIC 

The best of Apparat's ideas for enhancing 
Microsoft Basic, with some of our own. 
Ten one-letter abbreviations for commonly 
used commands, six single-key (immediate) 
commands, and an extremely powerful 
cross-reference facility. $50. 

HOST II /TERM II 

Allows "remote control" of one Model II 
from another, which may be miles away. 
Designed for remote software support at 
customer locations from our office. $50. 

DUMP 

Shows every active variable in the 
resident Basic program, along with its 
current value. Indispensible for the tough 
de-bugging tasks. Requires XBASIC. $60. 

FRIEND 

A CP/M* like set of shorthand notation 
utilities which stretch the power of 
TRSDOS. Copy, kill, print, display a group 
of files based on generic and wildcard 
selection. Example: move */BAS:1 to 
=/OLD:2 will copy all the 7BAS' files on 
Drive 1 to Drive 2, renaming them to 
'/OLD.' $75. 

SKRUNCH 

Compress your Basic programs to an 
absolute minimum. Typically saves 30-40% 
memory, and 7-10% run time. Very, very 
quick. $35. 

SAVE 

Retrieve the resident Basic program 
following a system crash. Don't be without 
this one, when you need it! $35. 



AND NOW UNDER DEVELOPMENT: 
SUPERC0B0L: A high level, structured 

language preprocessor designed to work 
with Radio Shack's new COBOL compiler 
(RSC0B0L). Greatly improves the usability 
of the world's most popular business 
computer language. 

MASTER / SLAVE 

Used for transferring files from one Mod II 
to another. All formats, and baud rates to 
9600 are supported. "Slave" system can be 
unattended! More convenient when used 
with Host ll/Term II. $150. 

BUGZAP 

A powerful machine language utility 
modify / print memory, disk sectors. An 
invaluable part of the programmer's 
toolkit. $50. 

SBASIC (Model I or Model II) 

From Ultimate Computer Systems. A high- 
level structured pre-processor for Basic. 
Perform named subroutines. Conditional case 
structure. While loops. Until loops. And 
much more! Just forget about line 
numbers! Model II version is compiled, and 
super fast. Model I $50. 

Model II $75. 

D0SFIX 

A collection of patches to TRSDOS and 
Basil to enhance their usability and 
functions. Includes our well-known 
BREAK7E patches to keep the break key 
from being used by mistake. 
Free with any Model II software purchase. 



TERMS: Shipments normally 
made same day. Terms: Visa, 
MC add 4%. C.O.D. orders add 
$5.00. Ohio residents add 

4 1/2%. 



• 232 



ORDER NOW! 
Snapp, Inc. 

8160 Corporate Park Drive 

Cincinnati, Ohio 45242 

513-891-4496 



•TRS-80 and TRSDOS are trademarks of 
The Radio Shack division of Tandy Corp. 

•NEWDOS and NEWDOS/80 are trade- 
marks of Apparat, Inc. 

*CP/M is a trademark of Digital Research. 



*- Reader Service— see page 226 
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HARDWARE 



A high quality alternative. 



Selectric Hard Copy 



Michael W. Bickerton, M.D. 
2631 Wharton St. 
Philadelphia, PA 19146 



It didn't take long after buying 
my TRS-80 for me to realize 
that I needed hard copy. 

As a surgical intern. I didn't 
have $700 for a quality printer. 
But I did have $75 for a broken- 



down, used input-output IBM 
Selectric. 

Although the typewriter was 
in bad shape, it had the electro- 
magnets and contacts for use 
with a computer. All I had to do 
was figure out how to interface 
the two. 

The only information I could 
find was Emerson Brooks' arti- 
cle, "Taming the I/O Selectric'' 
(Kilobaud. June-July 1978). But 




Brook's method has several 
drawbacks. 

First, he relies on software to 
perform all decoding and timing 
functions. Every carriage return 
uses 500 ms, even from mid- 
page. 

Also, the software must be 
loaded every time you want to 
use the printer. I wanted a driver 
that would allow the Selectric to 
operate at its maximum speed 
of 15 characters per second. I 
also wanted to be able to simply 
turn on my TRS-80 and go to 
work. 

My driver solves both prob- 
lems. It will work with BASIC'S 
LLIST and LPRINT commands 
without any software patches. It 
will also decode both upper and 
lowercase characters, and will 
work well with such programs 
as the Electric Pencil. You can 
even write your own word pro- 
cessor in BASIC, since the 
TRS-80 will output upper and 
lowercase strings. 

If you don't have a TRS-80, an 
interface circuit will still let you 
use this driver. 

The Selectric Typewriter 

The Selectric mechanism has 
been used in computer termi- 
nals for years. 

The models 731 (Photo 1) and 
735 are available on the surplus 
market. The only difference is 
the 735's wider fifteen-inch 
mechanism. 

The basic Selectric mecha- 
nism is sturdy and well de- 



signed. A type element the size 
of a golf ball rotates as you hit 
each key and types the charac- 
ters. The printing quality is sec- 
ond to none and is suitable for 
everything from business letters 
to hardcopy memory dumps. 
Also, a number of different type- 
faces are available. 

The Selectric uses a series of 
electromagnets to activate the 
proper mechanical clutches. A 
seven-bit Selectric code directly 
represents units of ball rotation 
(R1, R2, R2a and R5) and ball tilt 
(T1 and T2). The seventh bit is a 
shift that is actually a 180 de- 
gree rotate operation. 

For example, the character 
"s" is represented by 0010001 
(the format is shift/T2/T1/R5/R2a 
/R2/R1, zeros being active in all 
but shift and R5). To print an "s" 
the ball tilts two units (T2) and 
rotates four units (R2 + R2a). 
The character "S" is represent- 
ed by 1010001. which is shift, tilt 
two and rotate four. 

The standard Selectric code 
is called correspondence code, 
but many Selectrics use BCD 
(Binary Code Decimal) coding. 
These codes are not inter- 
changeable, and use different 
balls. For example, the char- 
acter "S" is represented by 
0100110 in BCD. Also, BCD type 
balls have only upper case let- 
ters, numbers and special sym- 
bols. 

To tell which kind your Selec- 
tric is. buy a standard type ball 
(correspondence). If your type- 
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Fig. 1. Overall block diagram for the 










Selectric interface. 



writer prints characters differ- 
ent from those on the keys, you 
have a BCD machine. 

If you use the typewriter as an 
output device only, a BCD ma- 
chine works fine. But if you wish 
to type from the keyboard, you 
must convert to correspon- 
dence. (See Robert M. Weil's 
'"Converting Selectric Key- 
boards to Correspondence 
Code." Kilobaud, Dec. 1979 and 
Jan. 1980.) 

The Selectric code is shown 
in Table 1. Note that the charac- 
ters "<," ">", and "t" are not 
available on standard type balls. 
My interface substitutes "I" for 
"less than," "g" for "greater 
than" and "E" for "exponentia- 
tion." 



Photo 2 shows the undersur- 
face of the Selectric mechanism 
and Photo 3 shows a close up of 
the printing (T1, T2, R5, R2a, R2 
and R1) electromagnets. Input- 
output Selectrics also contain a 
bank of switch contacts, which 
are directly above the printing 
electromagnets (Photo 2). These 
input data from the Selectric to 
a computer. Since most micro- 
computers have their own key- 
boards, you can disconnect the 
switch bank. 

Driver Circuitry 

Fig. 2 is a block diagram and 
Fig. 3 is a schematic of the driv- 
er circuit. IC1 and IC2 form the 
heart of the driver. They are bi- 
polar read-only memories that 



convert ASCII into correspon- 
dence code. A clever arrange- 
ment decodes control com- 
mands. If a control function is 
input D07 goes high. This is fed 
back to the input through R1 and 
C2. This serves to re-configure 
the read-only memories for de- 
coding control commands. 

When a strobe pulse is re- 
ceived, the decoded data is 
latched into eight-bit latch IC3 
and IC4. Flip-flop IC11a is also 
set, providing a busy signal. 
The strobe pulse propagates 
through a series of monostable 
multivibrators. If a control com- 
mand (carriage return, space, 
backspace, tab and index) is 
decoded, pin 2 of IC15 is high 
and the pulse from IC9a triggers 
IC10a. IC10a in turn strobes the 



control command to the proper 
relay through IC7 and half of 
IC6. 

If a printing command is re- 
ceived, the situation is more 
complex. This time pin 4 of IC15 
is high and the pulse from IC9a 
passes through IC12a to trigger 
IC9b. (IClOb is also triggered but 
has no effect.) IC9b activates 
IC5 and half of IC6 and prints the 
character. It also provides a 
strobe out to the strobe electro- 
magnet. 

If the typewriter is in the incor- 
rect case the pulse triggers only 
IC10b and shifts up or down. 
IC12b detects the shift. IC9b 
then prints the character. 

Any print or control operation 
activates one of five contacts in 
the typewriter. This is de- 
bounced by IC11b and clears 
ICHa, resetting the busy signal. 

The 14 electromagnet drivers 
(Fig. 4) are identical, and use 
MJE6043 darlington transistors. 
The diodes in parallel with the 
relays protect the transistor 
from the high voltage induced 
when the electromagnet is 
turned off. Since the duty cycle 
is low, the transistors do not re- 
quire heat sinking. 

The power supply is a conven- 
tional full-wave rectifier with a 
regulated +5 V supply for the 
TTL integrated circuits. My Se- 
lectric had 48 V electromagnets 
that measure 475 ohms. If your 
electromagnets measure 125 
ohms, then use the alternate 24 
V supply. 



Photo 2. Bottom view of the Selectric showing keyboard contacts 
(left), printing electromagnets (left lower) and control elec- 
tromagnets (right). 



Photo 3. Closeup view of printing electromagnets. From left to right 
they are T2, Strobe, T1, R2a, R1, R2 and R5. 
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• * * A PERCOM BULLETIN * * * 

Adapter for TRS-80* computer eliminates disk read errors 



Garland, Texas — Harold 
Mauch, president of Percom 
Data Company, announced 
that the company is marketing 
a simple plug-in adapter for 
TRS-80* computers that cor- 
rects a design deficiency in 
the disk controller circuit. 

The problem, which 
causes disk read errors, has 
been traced to Tandy's re- 
liance on a circuit internal to 
the FD1771 controller IC to 
perform the function of 
separating clock and data 
pulses. 

As explained in the 
Backgrounder, use of the in- 
ternal chip circuit for reliable 
data-clock separation is a de- 
sign shortcut which the man- 
ufacturer of the controller IC 
warns against. 

The Percom solution, a 
PC card adapter called the 
SEPARATOR™, eliminates 
the problem by substituting an 
explicit data separator circuit 










PIN 






A 





->K DATA SEPARATOR 
INC. 



Percom adapter fixes TRS-80* computer disk controller. 

— one which has been used The SEPARATOR™ is 

reliably in Percom disk con- installed without modifying the 

trollers since 1977 — for the host system. The user merely 

internal IC separator circuit. removes the FD1771 IC from 



the host controller, installs the 
IC in the DIP socket on the 
SEPARATOR™ card, and 
plugs the adapter into the va- 
cated socket of the host con- 
troller. 

Percom cautions that 
opening the Expansion Inter- 
face ofthe TRS-80* comput- 
er, which is required to install 
the SEPARATOR™, may void 
the computer's limited 90-day 
warranty. 

The SEPARATOR™, 
which sells for $29.95, may 
be purchased from Percom 
dealers or ordered direct from 
the factory. The Percom toll- 
free order number is 1- 
800-527-1592. 

Payment for mail orders 
may be made by certified 
check, cashier's check or 
money order, or charged to a 
Master Card or VISA account. 
Texas residents must add 5% 
sales tax. 



Percom Mini-Disk Drives 
Store More, Cost Less. 

Percom mini-disk drives store more data, are 
more reliable, yet a 40-track Percom drive 
costs $100.00 less than a 35- track Tandy 
drive. 

You can store over 1 02 Kbytes per side 

on Percom TFD-100™ 40-track drives; 197 

Kbytes on one side of a TFD-200™ 77-track 

drive. A patch — supplied free on minidiskette — upgrades 

TRSDOS * for operation with the newer 40- and 77-track drives . 

Both TFD-100™ and TFD-200™ models are available in 

one-, two- and three-drive configurations. 

Prices start at $399 for a single-drive TFD-1 00™, $675 for a 
single-drive TFD-200™. Drives are supplied with heavy-duty 
power supplies. Metal enclosure is finished in compatible silver 
enamel. 

See your nearby Percom dealer or order direct by calling 
toll-free 1-800-527-1592. 




Five-Inch Disks Store More 
Than Eight-Inch Disks! 



Garland. Texas — June 25, 
1980 — Percom Data Company 
has begun production of a 
double-density disk controller 
adapter for TRs-80* Model I com- 
puters. 

Harold Mauch, president of 
Percom, made that announcement 
here today, saying that data stor- 
age capacity using the adapter and 
double-density disk operating sys- 
tem — which is included — can be 
increased to as much as 294 
Kbytes per minidiskette. 

By comparison, the maximum 
storage for larger eight-inch disk 
systems used with the TRS-80* 



Model I computer is about 290 
Kbytes. 

Mauch said the PC card adap- 
ter, which plugs into the controller 
chip socket of the computer Ex- 
pansion Interface, works equally 
well for either single-density or 
double-density storage, and users 
may continue to run programs 
under TRSDOS*, OS-80™ and 
other single-density operating sys- 
tems with the adapter installed. 

Price, for the plug-in adapter, 
the TRSDOS*-like double-density 
DOS and a utility for converting 
files and programs from single- to 
double-density format is expected 
to be $21 9.95. 



BACKGROUNDER 
CRC ERROR! TRACK LOCKED OUT! 

by the Technical Staff 
Percom Data Company 



This problem started while 
we were studying an annoying 
problem with the TRS-80* com- 
puter. Disk drives sold by Percom 
are realigned and tested before 
shipment. We noticed, however, 
that some disk drives would pass 
the Percom inspection but just 
would not work reliably on the 
inner tracks with a TRS-80* com- 
puter. These drives were within 
the manufacturer's specifications, 
and would function perfectly on 
other disk systems Percom man- 
ufactures — "perfectly" here 
meaning more than 50 million 
bytes read without error! 

The disk read data separa- 
tion arrangement in the TRS-80* 
computer Expansion Interface 
uses an internal data separator of 
the FD1771 disk formatter/con- 
troller IC. Use of the FD1771 in- 
ternal data separator is not 
recommended by Western Digital, 
the IC manufacturer. The follow- 
ing note appears on page 17 of 
theFD1771 datasheet: 

Internal data separation 
may work for some appli- 
cations. However, for ap- 
plications requiring high 
data recovery reliability, 
WDC recommends exter- 
nal data separation be 
used. 



We suspected the data 
separator because the problem 
was most severe on disk inner 
tracks where storage density is 
highest and data separation is 
most critical. 

To prove our point, a techni- 
cian breadboarded a standard 
Percom data separator circuit, 
and configured it to plug directly 
into the FD1771 IC socket of the 
TRS-80* computer controller. 

When connected to the 
TRS-80* computer, a trouble- 
some drive functioned perfectly! 

We ran a BACKUP utility many 
times and never got a track lock- 
out. Before we added the external 
data separator circuit to the com- 
puter, this same drive would al- 
ways lock out tracks, and would 
have difficulty reading from the 
inner (higher number) tracks. 

The Percom data separator 
circuit fixes the mini-disk control- 
ler of the TRS-80* computer. The 

type of drives being used is ir- 
relevant; the circuit eliminates 

disk read errors resulting from the 
inability of the Tandy controller 

design to reliably separate clock 
and data signals when reading 
high density inner tracks. 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WfTHOUT NOTICE. 



" 2M PERCOM DATA COMPANY INC. 211 N. Kirby Street Qarland, Texas 75042 (214) 272-3421 

,M trademark of Percom Data Company, Inc. 'trademark of Tandy Radio Shack Corporation which has no relationship to Percom Data Company 



^Reader Service—see page 226 
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Fig. 2. Block diagram of the driver circuitry. With the exception of the feedback connections, all outputs 
on the right side of the diagram go to the Selectric electromagnets. 



Interface Circuitry 

The driver connects directly 
to the TRS-80 expansion inter- 
face. If you don't own the inter- 
face, Fig. 5 presents a suitable 
one. 

Radio Shack Level II BASIC 
reserves memory position 14312 
decimal (37E8 hexadecimal) for 
the line printer. IC20, IC21 and 
IC22 decode this signal, and pin 

POWER SUPPLY 



6 of IC22 goes low when memory 
position 14312 is addressed. 

Any time the TRS-80 outputs 
to the line printer, it places the 
ASCII code on the data bus, out- 
puts 14312 to the address lines 
and pulses the WR* line low. 
("*" denotes a signal that is nor- 
mally high and goes low when 
active. Thus, WR = WR*.) When 
this happens pin 1 of IC23 goes 
high, latching the data into 



TRANSISTOR DRIVERS 



RELAY j i i IN4004 




Fig. 4. The transistor drivers are all identical and use MJE6043 tran- 
sistors. There are 14 transistor drivers; six for Tt, T2, R1, R2, R2a and 
R5, one for the strobe electromagnet, five for the carriage return, 
space, backspace, tab and index electromagnets and one each for 
shift up and shift down electromagnets. 



eight-bit buffer IC18 and IC19 
and triggering the monostable 
IC24 to produce a strobe signal. 

Then Level II Basic looks at 
memory position 14312 by puls- 
ing the RD* line low, and waits 
until D7 (the busy signal) goes 
low before outputting another 
character. 

To use another computer, you 
need to know if your language 
uses memory mapping or port 
addressing. Either of the cir- 
cuits in Figs. 6 or 7 should be 
suitable. 

Fig. 6 is a memory-mapped in- 
terface that uses four cascaded 
74LS85 four-bit magnitude com- 
parators. When the input ad- 
dress lines A0-A15 are equal to 
the address programmed on the 
dip switches SW1 and SW2, the 
cascade output (pin 6 of IC25) 
goes high. If the write line WR* 
goes low, then the data lines DO 
to D7 are latched into eight-bit 
latch IC18 and IC19. 

At the same time, IC24, a 
monostable multivibrator, gives 
a strobe signal. If the read line 
RD* goes low, the busy signal is 
input to the computer. On the 
TRS-80, D7 inputs the busy sta- 
tus, and D6, D5 and D4 input oth 
er status information (which I 
defeated by tying the lines to the 
appropriate logic levels). If your 
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= 
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66 96 
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68 109 
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69 101 
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70 78 
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71 79 


H 


72 97 


I 


73 84 


J 


74 71 


K 


75 100 


L 


76 105 


M 


77 95 


N 


78 102 


o 


79 89 


P 


80 69 


Table 1. ASCII and corre- 


spondence codes. All values 


are decimal. 


When decoded 


into binary 


the correspon- 


dence code represents 


(MSB)Control Character/ 


Shift/T2VT1 


'/R5/R2a'/R2'/ 


RV(LSB). 





language uses another arrange- 
ment, connect pins 3, 5, 7 and 9 
of IC17 to the appropriate data 
lines. 

Fig. 7 shows a port-based in- 
terface circuit. 74LS85 magni- 
tude comparators are again 
used to compare AO through A7, 
with the programmed port ad- 
dress on dip SW1. Instead of 
RD* and WR* signals, the port 
interface uses IN* and OUT* 
lines. Restrictions on status in- 
formation are the same as for 
the memory-mapped interface. 
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<3«) AS - (19) RD*— I 



Fig. 5. The interface for the TRS-80. If you have the expansion inter- 
face, this circuit is not needed since the signals, D1 to D7, busy and 
strobe, are available from the expansion interface. Numbers in pa- 
rentheses correspond to the TRS-80 expansion port edge connector. 



Construction 

Use any convenient method. 
The layout isn't critical, so 
printed circuitry or perfboard is 
suitable. I used wire-wrap sock- 
ets and a slit-n-wrap tool (Pho- 
tos 4 and 5). 

I brought all logic signals out 
through a 44-pin edge connector 
for use in a homemade card 
cage. The transistor drivers, in- 
terface circuit and power supply 
were constructed on separate 
perf boards. 

I had some difficulty locating 
a 40-pin connector to plug into 
the TRS-80 expansion port. I fi- 
nally used an AP edge connec- 
tor (part number APP924065-36) 
with a 36-inch ribbon cable per- 
manently attached. 

Fig. 8 shows the TRS-80 ex- 
pansion port pin designations. 
The TRS-80 uses odd pin num- 



bering, which is printed on the 
circuit board. 

Be especially careful when 
wiring the 40-conductor ribbon 
cable. I used an ohmmeter to 
trace each wire and engraved 
the word "top" on the upper sur- 
face of the 40-pin connector to 
ensure that I would not insert it 
upside down. 

I used 25-pin D plugs and 
sockets with a 25-conductor rib- 
bon cable to connect the Selec- 
tric. Fig. 8 shows my pin desig- 
nations for the D connectors. 
My Selectric had a 50-pin plug 
attached to a heavy metal brack- 
et. I substituted the 25-pin D 
socket and hooked up the cable. 

I wanted to build the complete 
circuitry into the Selectric type- 
writer cabinet, but didn't have 
enough room. If you have the 
space, you might consider this 
option. 





Photo 4 and Photo 5. The driver circuit board. Wire wrap sockets and 
a slit-n-wrap tool were used. The 44-pin edge connector is for use in a 
home made card cage. 



THE LOWEST 

prices on this high-quality software. Buy direct and save 50%. Now, also 
available for CBASIC on CP/M and MBASIC on HEATH HDOS. 
DATA BASE MANAGER Modi $89 Mod II $199 

You can use it to maintain a data base & produce reports without any user 
programming. Define file parameters & report formats on-line. Key 
random access, fast multi-key sort, field arith., label, audit log. No time- 
consuming overlays. 500 happy users in a year. Mod-ll version with over 
50 enhancements. 

A/R Modi $69 Mod-ll $149 

Invoices, statements, aging, sales analysis, credit checking, form input, 
order entry. As opposed to most other A/R, ours can be used by doctors, 
store managers, etc. 

WORD PROCESSOR Modi $49 Mod-ll $49 

Center, justification, page numbering . . Used for letters, manuals, and 
reports. Mod-I version features upper/ lower case without hardware 
change! 

MAILING LIST Mod-I $59 Mod-ll $99 

The best! Compare and be selective. Form input, 5-digit selection code, zip 
code ext.. sort any field, multiple labels. Who else offers a report writer? 

INVENTORY Mod-I $99 Mod-ll $149 

Fast, key random access. Reports include order info, performance 
summary, E.O.Q., and user-specified reports. Many converted their 
inventory to ours! 

PAYROLL. A/R, A/P, and GL available for the Mod-ll DOS and CP/M. 
L21B. a cassette package of 10 business programs for Level II 16K 
systems, $59. 

All programs are on-line, interactive, random access, virtually bugfree, 
documented and delivered on disks. Mod-I programs require 32KTRSD0S, 
and credit is allowed when you upgrade to Mod-ll. We challenge all 
software vendors to offer low cost manuals so you can compare and 
avoid those high-priced, undocumented, on-memory' programs. 
Manuals alone $5 for Mod-I. $10 for Mod-ll. Don't let our low prices fool 
you! 

Mod-ll programs are extensively modified, guaranteed to run with 1 year 
newsletter and updates. 10% off for ordering more than 1 Mod-ll program. 
MICRO ARCHITECT. INC.. "» 
96 Dothan St.. Arlington, MA 02174 
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Fig. 6. This circuit will operate 
with computers that use a 
memory mapped output to the 
line printer. The memory loca- 
tion is programmed on SW1 and 
SW2. 



FROM COMPUTER 



TO DRIVER 



Fig. 7. This circuit will operate 
with computers that use a port 
addressing scheme to output to 
the line printer. The port address 
is programmed on SW1. 



MAY CONNECT 
TO DIFFERENT 
DATA LINES ON 
OTHER COMPUTERS 



I UNIT SELECT 
FAULT 



~* 




*** ZOK 



F 



•D7-N0T USED 



<3rz 



108 • 80 Microcomputing, September 1980 




AUTHORIZED 

TRS-80®. 



RA301 



10% 

DISCOUNT 

Off 

List 

26 4002 

64K 1 Drive 

$3499.00 



COMPUTER SPECIALISTS 

26 1056 16K Level II System with Keypad $688.00 

26 1145 RS 232 Board 84 .00 

26 1140 O K Interface 249 00 

26 1141 16 K Interface 365 00 

26 1142 32 K Interfoce 476 00 

26 1 160 Mm. Disk Drive O 424 00 

26 1161 Mm. Disk Additional 424 00 

26 1154 l.nepnnter II 720 00 

26 1 156 lineprinter III 1799 00 

26 1180 Voice Synthesiser .. 339 00 

26-1 181 VOXBOX 145.00 
26 1104 Factory Upper Lower 

Case Modilaction Installed 70 00 

26 1506 Scnpsil Tape 60 00 

26 1563 Scrips.! Disk 85 00 




15% 

DISCOUNT 

Off 

List 

26- 1054 
4K Level II 

$552.00 




ALL OTHER RS SOFTWARE 

FURNITURE. STANDS, CABLES 

AND ACCESSORIES DEDUCT 

10% FROM CATALOG PRICE 



Model II Cobol Compi 


ler 


$360.00 




Cobol Run Time Packc 


9 e 


$36.00 





CERTRDniCS 

Fast 100 CPS Centronics 
730 Printer - $675.00 
Text Quality Centronics 
737 Printer - $850.00 



Novation Cat Modem $149.00 
CCA Data Management 

System 72.00 

Adventure Games 

Games 1-9 each 14.00 



Model I Basic Compiler $180 00 

Model II Basic Compiler 360 00 



a 



BASF 



10 5' • Diskettes 
10 8 Diskettes 



$45.00 
47.00 



□ Acorn 
Software 
Products, Inc. 

GAMES 

Alien Invasion $** 00 

Stock Market 9 00 

Stor Trek 9 00 

Block Em 9 00 

Ting Tong 9 00 

UTILITIES 

System Savers 14 00 

EDUCATION 

Language Teacher 18 00 



1-800-841-0860 Toll Free Order Entry 

MICRO MANAGEMENT SYSTEMS, INC." 



No Taxes on Out Of 

State Shipments 

Immediate Shipment 
From Stock. 



DOWNTOWN PLAZA SHOPPING CENTER 

115CSECONDAVE. S.W. 

CAIRO, GEORGIA31728 

(912) 377-7120 Ga. Phone No. 

'■S «0 it ■ ffjulprtd trademark of lh« Tondy Corp 



Full Factory Warranty 
on All Items Sold. 

Largest Inventory 
In the S.E. U.S.A. 



-ftoaaer Service— see page 226 
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PIGSKIN 



by John Laurence, 

Rick Sothen, 

Walter Gavenda 




Don't Get Enough on Sunday? 

With Pigskin you work on your offense and de- 
fense any day you choose. This football game for 
the TRS-80* has most of the elements of the games 
you watch every weekend. But in Pigskin you call 
the plays, watch the thirty-second clock, and get 
called for penalties, if you aren't careful. Featuring a 
graphic display of the field, the ball, and statistics on 
the scoreboard, Pigskin has eleven offensive plays 
and seven defensive formations. 

You compete against a friend or battle against the 
program in Pigskin. If you go against the program, 
there are five levels of difficulty. And they aren't 
easy. You can even save a game if you need to go out 
for beer! 

Acorn produces several games for the TRS-80.* 
These include Pinball, a graphic arcade-like game; 
Invaders from Space, a fast action program with 
sound; Quad, a three-dimensional strategy game; 
and Gammon Challenger, the popular backgam- 
mon program. Each is available at only $14.95 on 
tape and $20.95 on disk for a 16k, Level II TRS-80.* 
Ask for these and other quality Acorn programs at 
your local computer store. 

* TRS-80 is a trademark of Tandy Corp 



DEALER INQUIRIES INVITED 



* Mi P Software Products, Inc. 

634 North Carolina Avenue. S.E., Washington, DC 20003 



Acorn 
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Photo 6. Rear view of the Selectric showing location of the index, 
space/backspace and tab feedback contacts. 
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Return 
eedback 
■-nii.il t ■ . 




Photo 7. Right side view of the Selectric showing shift feedback con- 
tacts, shift electromagnets and carriage return feedback contacts. 



My Selectric had a maze of 
wiring to feedback contacts, 
electromagnets and keyboard 
contacts, which I removed or 
disconnected. I brought the 
common connection to the elec- 
tromagnets out to pin 1 on the D 
socket. My Selectric already has 
suppression diodes. Check the 
polarity of these diodes since it 
might be connected differently. 
If you have any questions, use 
suppression diodes on the tran- 
sistor driver board instead. 

Locate the printing and oper- 
ational electromagnets and wire 
them to the D socket. Fig. 9 
shows the location of these 
electromagnets. Next, locate all 
five of the feedback contacts 
and the two shift feedback con- 
tacts, and wire them according 
to the schematic diagram (Fig. 
3). See Photos 6, 7 and 8 and Fig. 
10 to locate these contacts. 

The final connection is the 
ground. Attach it directly to the 



frame. I used the connector 
bracket screw. 

You can program the read- 
only memories with the data in 
Table 5. If you don't have the fa- 
cilities, I will sell prepro- 
grammed 74S387 ROMs. I'll also 
consider programming these 
memories for special features. 

Operation 

This interface can be used di- 
rectly with Basic's LLIST and 
LPRINT commands. Therefore, 
programs that use the TRS-80 
line printer will work without 
modification. 

If you have a program with a 
large number of PRINT state- 
ments that you wish to output to 
the Selectric, you can retype all 
PRINT statements, substituting 
LPRINT. 

Here's a neat trick that will ac- 
complish the same thing: 

POKE 16414,141. POKE 16415,5 
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°««* 115 


137 


1 t2 


200 116 


146 


13 


200 117 


131 


14 


200 120 


105 


15 


200 121 


104 


30 


200 122 


135 


32 


200 123 


121 


I *° 


200 124 


147 


41 


177 125 


156 


42 


125 126 


136 


43 


178 127 


120 


44 


171 130 


157 


45 


165 131 


101 


46 


176 132 


167 


47 


025 133 


145 I 


50 


160 136 


200 


51 


161 137 


100 


52 


174 140 


066 


53 


106 141 


034 


54 


014 142 


040 


55 


000 143 


054 


56 


026 144 


055 


57 


011 145 


045 


60 


06 t 146 


016 


61 


077 147 


017 


62 


066 150 


041 


63 


076 151 


024 


64 


071 152 


007 


65 


065 153 


044 


66 


064 154 


051 


67 


075 155 


037 


I 70 


074 156 


046 


71 


060 157 


031 


72 


115 160 


005 


73 


015 161 


004 


74 


051 162 


035 


75 


006 163 


021 


78 


017 164 


047 


77 


111 165 


056 


100 


166 166 


036 


101 


134 167 


020 


102 


140 170 


057 


103 


154 171 


001 


104 


156 172 


067 


106 


145 212 


202 


106 


116 213 


202 


107 


117 214 


202 


110 


141 215 


202 


111 


124 230 


220 


112 


107 232 


204 


113 


144 240 


201 


114 


151 336 


210 


Table 5. Programmable read only memory (PROM) program- 


ming data. A 1 702 


or 2708 ultraviolet erasable PROM could be 


used, but 1 recommend a more permanent bipolar PROM such 


as the 74S387. All values in this table are octal for easy decod- 


ing Into binary. 








Photo 8. Left side view of the Selectric. The set of contacts in the 
middle of the photo operate off of the bilobed cam. The inner con- 
tacts and cam are used tor the print feedback contacts. 



This Weekend: 

STIK 
IT.... 

••to your 



That's now Esmark's VIOIET-STIK light pen has the TRS-60 CONNECTION 
tor LEVEL 1 4 II Your 4K to 46K TRS-60 System will come alive under your 
VI Dl ET-ST I K within mi nutes of its arrival . That's because there are no wi res to 
solder or traces to cut. You're up and running as fast as you can plug the 
interlace into your system's cassette EAR-jack. CLOAO our custom LIGHT- 
WAVE demonstration software and RUN. And because the interface has a 
plug for your recorder, you won't have to unplug it again when loading your 
other software tapes. The interlace allows them to pass right thru whenever 
you're not using the pen. it's exclusive "switched tip'' design means the pen's 
electrically isolated from your system when it's not in use. Just point & press < 
It's that simple Plug. CLOAO and RUN And have we got the software for you 
to RUN wit hi Our demonstration tape includes a calibration program (used to 
adjust the CRT's brightness and contrast) plus STIK- TAC- TOE. AWARl and 
TOWERS Two challenging games and a puzzle that will keep grownups and 
children Stik'ing it to your TRS-60 for hours And there are instructions 
provided so you can begin writing your own light pen programs (light ware) 
for fun or profit (Level II). Or. |ust Sit beck and enjoy our LIGHT- WAVE tapes 
each month Esmark's unmatched commitment to lightware can bring you u p 
to five new games, puzzles, drills & educational quizes or simulations each 
month. Our current LIGHT-WAVE releases are: 



T 

R 

S 
i 

8 
O 



LIGHT-PAK2 - LIGHTPEG (4 peg-jump puzzles) 
ENORUN (Othello with a twist) 
LIFE9 (Conway's LIFE with mutations) 
Price: $19 95 (including postage & handling) 
LITEGAMMON (Backgammon you'll Stik with) 
STIKWUMPUS (Caves with a little lite) 
MA2EMASTER (Maze after maze to poke thru) 
PRICE 619.96 (including postage & handling) 



(LEVEL 



LIGHT-PAK 3 
(LEVEL II) 



Order yours now and well include a free copy of FLASHBACK. Esmark's 
newsletter dedicated to the latest news in lightware applications And. don't 
forget to tell your friends. The VIDIET-STIK can also be ordered for use on 
most other micro systems using the following processor chips: 



8060 



Z80 



6600 



6502 



All that's required is a standard cassette jack leading lo Ground and a 
readable single bit input port Driver software is provided along with 
instructions tor writing lightware applications And tell your local Dealer that 
Esmark's got a Dealer package he won't want to miss out on Delivery is 3 to 6 
weeks from recei pt of your or der. CTO. D. 's are $3.00 extra but wil I be snipped 
within two weeks All prices are FOB Mishawaka. Indiana Indiana residents 
add 4% state sales tax 



ALSO COMING FROM ESMARK: 

[ ] TRS-60 Printer Interface (Cassette AUX-jack interface tor all RS232 
printers. Includes LUST 4 LPRINT software) 



[ ] 



TRS-60 RS232 Communications Interface (Makes your TRS-60 a full 
I/O terminal to timesharing systems the world over Gives you 
intelligent or dumb terminal capabilities at 110 or 300 BAUD. Also 
includes Printer Interface above with 20 mA current toop 4 TTL level 
I/O options.) 

— TRS-60 is a trademark of the Tandy Corporation — 



INCORPORATED 

507v» b. Mckinley hwy. mishawaka, in 45544 

(219) 255-3035 



$62 



95 



PLU8 $1.50 
•ELECTRONIC SYSTEMS MARKETING POSTAGE & 

HANDLING 
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Don't be misled by more expensive imitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software'*— "In- 
stant Software" — "Level IV "products and soon. 

Just imagine 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little imagination" 

For fast real time programming it is your lowest 
cost peripheral at *19.95 



Announcing 



< 

CO 

08 

LU 

> 
_J 

</> 



I com- ^ 



NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 10 more 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus « other commands. Perfect for 
you lightware authors and NEW light pen owners 
too! only'14. 95 



(COUPON) 

Micro Matrix ^« 

P.O. Box 938 • Pacific*. CA 94044 
Send for yours NOW: (415)355-4635 



Name 




Photopoint 


Address 




D $19.95 


T.ity 


St. 


Pen Basic 
U $14.95 


Zip 






Card# 




Money 


Ex. 
Date 


CK 


Order Visa MC 









-POWER. TAPE ANO 
VIDEO CONNECTORS 



.5 IS 1? it 1 1 2S »» f »S »> SS S» st St 



20 22 2« Ik 21 SO SI S4 St St 40 



TRS-«0 EXPANSION PORT CONNECTOR 
*EA* VIEW 



13 It IT It It 20 21 22 25 



ZS PIN CONNECTOR 



Fig. 8. Pin numbering for the TRS-80 expansion port edge connector 
and the 25-pin D connector used to connect the driver to the Selec- 
tric typewriter. 




tOTTOU VI CW 



Fig. 9. Location of the printing and control electromagnets viewed 
from the bottom of the typewriter. 



Now, all output ordinarily dis- 
played on the video screen is 
typed by the Selectrlc. 

If you type these POKE state- 
ments while in the command 
mode in BASIC, be sure to type 
them together with a colon sep- 
arating them. Otherwise, after 
entering the first POKE, you will 
lose the video display. 

If this happens, correctly type 
the second POKE statement 
(with the video screen blank) 
and the Selectric will respond 
with the familiar READY. Now, 
anything typed on the TRS-80 
keyboard will be echoed by the 
Selectric. 

A better way to use this fea- 
ture is to place the POKE com- 
mands as the first statement in 
the BASIC program you wish to 



alter. This will change all 
PRINTS to LPRINTs. If you wish 
to disable this feature (PRINT = 
PRINT) then use the following 
command: 

POKE 16414.88:POKE 15415,4 



This can be used anytime in a 
program, in the command mode, 
or in the final statement to rec .- 
tivate the video before terminat- 
ing the program. 

In addition, these POKE com- 
mands can be used to change 
LPRINTs to PRINT by using: 



POKE 16414,88:POKE 18415,4 



To revert back to normal 
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-PfflNT FEEDBACK 
-UNUSED 



SHIFT FEEDBACK 



CARRIAGE RETURN 
FCEOBACK 



INDEX FEEDBACK- 



ft 



SPACE AND 
BACKSPACE 

FEEDBACK 



TAB FEEDBACK 
(DIFFICULT TO 
LOCATE ) 




CARRIAGE RETURN 
FEEDBACK 



Uf 



,'SMIFT FEEDBACK 



RIGHT SIDE 



Fig. 10. Location of the feedback contacts. 



(LPRINT = LPRINT)use: 



POKE 16414.141POKE 16415.5 



Another way to output to the 
Select ric is by POKEing to mem- 
ory location 14312. Program 
Listing 1 causes the Selectric to 
type all printable characters. 



This program outputs ASCII 
values 33 to 91 and 97 to 122. 
After POKEing each number to 
location 14312, the program 
must wait until D7, the busy 
signal, is cleared. This is done 
by the PEEK command in line 
50, which causes an endless 
loop to line 50 until the busy 
signal goes low. 

You can also tell the Selectric 



to carriage return and line feed: 
POKE 14312,10, back space: 
POKE 14312,24, index: POKE 
14312,26, space: POKE 14312,32 
and tab: POKE 14312,94. These 
features may be valuable if you 
are writing a word processor in 
BASIC. 

To demonstrate upper and 
lowercase characters, try the 
following program: 



10 INPUT ST$:LPRINT ST$ 

When you run this program you 
will be asked to input any string. 
Suppose you respond by typing 
"Kilobaud Microcomputing," 
pressing the shift button for "K" 
and "M," as you would on a nor- 
mal typewriter. The Selectric will 
respond by typing "klLOBAUD 
mICROCOMPUTING." 

The TRS-80 will invariably 
switch cases. To correct this 
you must write your own input 
routine. 

To display and output upper 
and lowercase characters prop- 
erly, you'll need to modify the 
TRS-80's hardware and soft- 



ware. A number of modification 
kits are on the market. The one I 
have been using is KVP by 
Lance Micklus. 

Conclusion 

I've been using the Selectric 
with my interface and driver for 
several months and it has per- 
formed flawlessly. 

At first, an occasional mis- 
typed character, or an extra 
space or dash inserted itself at 
random, but these mistakes re- 
sulted from a misaligned type- 
writer. I carefully realigned my 
Selectric and, other than a 
broken rotate tape. I have had 
no further problems. 

Excellent references for this 
project include IBM's Service 
Manual (part no. 241-5257-0), 
Parts Manual (241-5990-0) and 
their Price List (241-5158-3). 

The Service Manual is particu- 
larly well written and well illu- 
strated, and is almost a neces- 
sity if your machine needs ad- 
justing. Since IBM will not ser- 
vice machines that do not bear 
the IBM decal, you may have to 
make your own adjustments. ■ 



10 FOR I = 33 TO 91GOSUB 40: NEXT II - 10GOSUB 40 

20 FOR I = 97 TO 122GOSUB 40NEXT II = 10GOSUB 40 

30 END 

40 POKE 14312.1 

50 IF PEEK (14312) g100 GOTO 50 ELSE RETURN 



Program Listing 1. 



EDUCATIONAL 

SOFTWARE 

TRS-80* 

80 ♦ Programs In: 

ELEMENTARY MATH 

SCIENCE BIOLOGY 

GEOGRAPHY HISTORY 

ECONOMICS ACCOUNTING 

FOREIGN LANG. BUSINESS ED. 

GAMES FARM RECORDS 

Programs arc grouped Into packages of 
4 to 7 programs priced at $14.95 per 
j package Including shipping and nan- 
J dllng. Available on disk or tape. 

Write for catalog: ^eg 

MICRO LEARNING WARE, BOX 2 1 34, 
i. MANKATO MN 56001, 507 6252205 
r'TRS-80 It • registered tradtmirk ol TANDY CORP.' 



{ MAXELL* or ODysm 1 

P A 

I wmmmmmm. 

T •" SfMOLR MM N 

R DOUBLE DENSITY *» of *0 lor MM E 

S B" DOUBLE SID* R 

8 DOUBLE DCMSITY so. of lOior i70 A 

3V MINI fc» of tOtor ISO ^ 

i DYSAfCDHMUl I 

B SV'MIMI BonofSforlSS M 

M <Sp»clty 8-SoMorM«rdS«c1or.5-SoftarMonjS«etart * 

I mm \ 

A 
N 
G 



COD MOO MdHionel 



^121 



1*. 



238 EXCHANGE STREET 
CHICOPEE. MA. 01013 

413.592-4761 

Mt«M*»MHM0 

I ATARI EEEBBBBB1 TI/B0-4 1 



RET I 



f 



f 



• • • • • SECURITY CONTROL CENTER • • • • • 

You con control light when you're not ai horn*, ot random 
timet. Turn video or recording equipment, oppliance. boll. 
loud olorm device on ond off ai preset times, even months 
odvonce. * Com** with progrom, control module, ond oc 
odoptot • "(12°. JO)' 

• • • AUTOMATIC TELEPHONE DIALER • • • 

You con dial to lephono outomotkoily 500 or more. Even if 
you forgot celephone number, rl you remember port ol it 
you con find the number through search command. 
* Comet with program, control module ond ocodoptor 

•(sao.soj* 



60-DEEP 

To be used to signal the end of long tort ond Hgnor you in 

cote of loodtng error It olto lett you know with one beep. 

two beeps etc. Exoctly whot port of the progrom you ore m. 

* Comet with instruction control module ond oc odoptor 

•<l».50>* 

►^271 

• ' 5-C COMPUTER TECHNOLOGY • • 

P.O. Dox 1246. Covlno CA 91722 

Phone (213) 302-2216 or 966-9660 

k — Visa and Mastercharge accepted — A 
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FOR TRS— 80* 

"FLIPPY 11 — 250K bytes/disc 

FAST— 5ms Track to Track 



REAL VALUE 

AEROCOMP offers the best value in 
microcomputer disc drives on the morket today! 
Reliability, features and cost tough to beat. We 
deliver... and we ttand behind our product*, at 
evidenced by the only FREE TRIAL OFFER in the in- 
dustry. Examine your systems needs and order to- 

MYSTERY REMOVED 

There appears to be some confusion in the 
terminology used to describe disc drives and their 
features. Here's what we mean: 

•FLIPPY Allows the use of both sides of 

a diskette with a single- 
headed drive by simply turning 
the diskette over (Model 
40-1). 
'TRACK specified in tracks per inch 

DENSITY ( T P I ) . 

Refers to the number of trocks 
per radial inch on the diskette. 
Typically 48 TPI = 40 usoble 
trocks and 96 TPI = 80 useable 
tracks. 
* DOUBLE refers to recording density in 

MNSITY bits per inch (bpi). Typically 

single density means data con 
be recorded up to 2.938 bpi: 
double density means data can 
be recorded up to 5,876 bpi. 



•OOURLS- refers to number of read/write 
SIDED heads. Single-sided is one 
head read write one side on- 
ly: double-sided is dual heads 
allowing read/write opera- 
tions on both sides of the 
diskette. A double sided drive 
appears as two separate 
drives to the controller. 

• CAPACITY unformated capocity is the 
total amount of storage space 
available on a diskette. 
Typically 1 25 K bytes on a 40 
track 5.25in. diskette. For- 
mated capacity is the totol 
USABLE storage space on a 
diskette. Typically 102K bytes 
on a 40 track 5.25in. diskette. 

•ACCESS the time required for the head 

TIME to move from one track to the 

next. Typically S to 40 
milliseconds (ms). 

FREE TRIAL OFFER 

Order your AEROCOMP Disc Drive and use it 
with your system for up to 14 days. If you are not 
satisfied for ANY REASON (except misuse or im- 
proper handling], return it, pocked in the original 
shipping container, for a FULL REFUND. We hove 
complete confidence in our products ond we know 
you will be satisfied! ORDER TODAY! 

WARRANTY 

We offer you a 90 day unconditional warranty 
on parts and labor ogalnst any defect In materials 
ana workmanship. In the event service, for ony 
reason, becomes necessary, our service depart- 
ment is fast, friendly ond cooperative. 

100% TESTED 

AEROCOMP Disc Drives are completely 
assembled ot the factory and ready to plug in 
when you receive them. Eoch drive is 100% bench 
tested prior to shipment. We even enclose a copy 
of the test checklist, signed by the test technician, 
with every drive. AEROCOMP MEANS RELIABILITY ! 

ORDER NOW 

• MODEL 4)0-1 DISC DRIVE t339.93ea. 

Single-sided, "Flippy". 48TPI. 
(40 track; single density unfor- 
mated 125K bytes/side: double 
density unformated 250K 
bytes/side). 

• MODEL RO-2 DISC DRIVE t439.95ea. 

Double-sided. 48TPI. 
(80 track/40 per side; single 
density unformated 250K 
bytes: double density unfor- 
mated 500K bytes). 



COMPARE AND BUY AEROCOMP! 



ACCESS HEAD DISC CAPACITY IAtT- Ftll 
"FLIPPY" TIM! LOAD L»ICTO« (uniormatod INTRT TRIAL 
{irock to tOUMOM tingl* DOOM 

trock) density) 


AieocoMp 


Tit 


Snts. 


TIS 


Tit 


J SOU by !•■ 

(both tie**) 


Tit 


Tit 


BARN) 
■HACK' 


NO 


40m» 


YES 


NO 


I09K bytot 


NO 


NO 


PfftCOM 


YES 


Mm. 


YES 


NO 


2S0K byt*» 

(both »id«») 


YES 


NO 


MPI 


NO 


Sm» 


YES 


YES 


125K bytoi 


YES 


NO 


SMMAM 


NO 


40m» 


YES 


NO 


I09K by tot 


NO 


NO 


SI1MINS 


NO 


25m» 


YES 


NO 


1 JSK by i.» 


YES 


NO 


TANDON 


NO 


5m» 


NO 


NO 


I3SK bytei 


NO 


NO 


PfftTK 


YES 


2Sm* 


YES 


NO 


250* byt.s 
(both nri«) 


NO 


NO 


■AM 


NO 


IJm« 


YES 


NO 


12SK by I., 


NO 


NO 



• MODEL SO 1 DISC DRIVE t439.93eo. 

Single-sided. "Flippy", 96TPI. 
(80 trock: single density unfor- 
mated 250K bytes/side; double 
density unformated 500K 
bytes/side). 

• MODEL DISC DRIVE IM5.*Sn. 

1*0-12 Double-sided, 96TPI. 

(160 trock/80 per side: single 
density unformated 500K 
bytes: double density unfor 
mated 1 megabyte). 

All models ore capable of single or double density 
ond are complete with power supply ond silver 
enclosure. Send for information on AEROCOMP 2 
and 3-drive systems available in 40 ond 80 trock. 

• SELECT EITHER A 2- DRIVE Oft 4- DRIVE CABLE 
FOR USE WITH YOUR DRIVB(S): 

2-DRIVE CARLE (for use with 

lor 2-drive systems) 

814.99m. 

4- DRIVE CARLE (for use with 

I-, 2-, 3-or 4-drive systems) 

t34.95ea 

Add $1 .25 shipping and hand 

ling 

• MINI DISKETTES (5.25 in), Box of 10 t29.93 

odd $1 .25 shipping and hand 
ling 

• DISC OPERATING SYSTEMS 

NBWDOS + (40 TRACK) • 109.00 

NEWDOS/R0 (SO TRACK) 1 149.00 

* SPECIAL COMBINATION OFFER* 

• Model 40- 1 Disc Drive $339.95 

• 2 Drive Coble 24.95 

• Disc Operating System (NEWDOS+) 109.00 

• Freight V25 

Reg. $479.15 

Special t399.93 

SPECIAL COMBO EXCEPT WITH NEWDOS/RO 
Reg. $519.15 Special t429.93 

To order by mail, specify Model Number(s) of 
Drive, cable, etc. (obove), enclose check, money 
order. VISA or MASTERCHARCE card number ond 
expiration date, or request COD shipment. Texas 
residents odd 5% soles tax. ADD $4.00 per drive 
for shipping and handling. Please allow 2 weeks 
for personal checks to clear our bank. No personal 
checks will be accepted on COD shipments-cash, 
money orders or certifed checks only. You will 
receive a card showing the exact COD amount 
before your shipment arrives. Be sure to include 
your name ond shipping address WE SHIP PROMP 
TLY! In the event there is a slight delay, you will 
be notified of the shipping date and we will NOT 
deposit your money order or charge your 
bankcard until the day we ship! 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888, OPERATOR 24 

FOR VISA/MASTERCHAROE/CO.D. ORDERS 

California dial (800) 852-7777, Operator 24. Alaska 
and Hawoii dial (800) 824-7919. Operator 24. 
TOLL FREE LINES WILL ACCEPT ORDERS ONLYl 

For Applications ond Technical information, call 
(214) 337-4346 or drop us a cord. 



Dealers inqiries invited 



Foctuol mol««iol from <urr#n! monutocturor t OOto »h*Ott '• believed reliable but connot be g;,o'on..d comporing Atrocomp 
Model 40 I lo timilor model* 



The IRS-tO* ..pa-Hi 



•"• trock to 



■IrQd.miiik of Tor.dy RodlO Shock 



AE3GCGI7IP 

Redbird Airport, Bldg. 8 

P.O. Box 24829 

Dallas. TX 75224 ^mt 
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FOR TRS-80* MODEL I USERS ONLY 




ID Times 
Normal Speed 



"TRS-80 is a trademark ol landy Corp 



High speed load TRS-80* Level II cassettes 
Input 15K byte Level II program in 15 seconds 
Search BASIC or SYSTEM programs by name 



Unlike other high speed tape input de- 
vices, FASTLOAD uses standard format 
cassettes. Therefore, there is no need to 
re-record on other media. At 8000 baud, 
FASTLOAD is faster than disk for short 
programs. FASTLOAD reads tapes at the 
fast-forward speed of the CTR-41 cassette 
recorder. The recorder can also be used 
for CSAVE at the normal speed. 



FASTLOAD connects to the 40 pin I/O or 
to the Expansion box. The control program 
does not use computer memory because 
it is in a built-in PROM. Other valuable 
features are keyboard debounce program, 
automatic key repeat routine and key- 
beep via cassette speaker. Price is $188.00 
for FASTLOAD and $95.00 for the modi- 
fied CTR-41 recorder. 
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Personal Micro Computers Inc. 

475 Ellis Street, Mountain View, CA 94043 (415) 968-1604 
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HARDWARE 



An interface to the outside world. 



Build Your Own Port 



James S. Hawkes, Ph.D. and 
Grady Reese 



A computer port is similar to 
a sailing port, because both 
serve as points of exchange. At 
a port a ship unloads its cargo 
onto the dock where it is stored 
and later shipped to its main- 



INPUT 1 


INPUT 2 


OUTPUT 


LOW 


LOW 


LOW 


LOW 


HIGH 


HIGH 


HIGH 


LOW 


HIGH 


HIGH 


HIGH 

Table 1 

Table 2 


LOW 


Port Select 


on 


TRS-80 


8255 


Address Lines 


Port 


A1 


AO Selection 








A 





i 


B 


1 

1 




1 


c 
Control 


Table 2 


Port Selection. 



land destination. 

Similarly, the computer port 
receives information from an ex- 
ternal device and holds it until it 
is called by the controlling ma- 
chine. It also stores information 
sent by the controlling machine, 
which it can later send to an ex- 
ternal device. 

A port that only transmits in- 
formation is an output port; 
while a port that can only re- 
ceive information is an input 
port. Certain bi-direction ports 
can both receive and transmit. 

The Parallel Port 

A port permits you to commu- 
nicate with external devices. 
Frequently, ports are used In 
conjunction with other equip- 
ment to monitor environmental 
conditions such as temperature, 



wind velocity, voltage, and pres- 
sure. 

Ports can also be used to con- 
trol simple on-off functions for 
hot water heaters, televisions 
and lights. Through a parallel 
port eight bits of information 
(in most microcomputers) are 
transmitted simultaneously. In 
some ports data transmission 
can reach speeds of over 
100,000 bytes per second. Be- 
cause of these high speeds con- 
trol signals are necessary be- 
tween the computer and the ex- 
ternal device. These are called 
handshaking signals. 

There are two types of parallel 
I/O. One is called "accumulator 
I/O" because the byte to be han- 
dled by the port must be loaded 
into the accumulator before it 
can be transmitted to the port. 



The second is called "memory 
mapped I/O" because a memory 
read or write instruction is used 
to access the peripheral. The 
TRS-80 parallel printer port on 
the expansion interface is a 
memory mapped port. 

With a small investment of 
time and money you can build 
your own port, which can be di- 
rectly attached to the TRS-80 ex- 
pansion bus located at the rear 
of the keyboard, or to the screen 
printer bus on the expansion in- 
terface. 

The simple application is 
made possible by a large scale 
integrated circuit called a pro- 
grammable peripheral interface 
(PPI). The PPI used in this design 
is the Intel 8255. 

The 8255 PPI Chip 

The 8255 PPI, originally cre- 



10 REM *** TESTING AND DEMO PROGRAM FOR THE PPI-flO 
20 REM **« OPS - RECEIVING PORT **• 
30 REM *** P - PORT NUMBER **« 

40 REM *** N NUMBER TRANSMITTED *** 

50 REM *** E VALUE RECEIVED **« 

nO REM ********************************* 



70 OUT 131,137:REM *** INITIALIZE PORT *** 

80 CLS:N=0:OPS=" ":P=0:E-n : REM *** INITIALIZE VARIABLES *** 

90 INPUT "ENTER NUMBER TO BE TR ANSM ITTED" ; N 

100 IP N>255 OR N<0 THEN 90 

110 INPUT "SELECT OUTPUT PORT (A OR B)";0PS 

120 IF 0PS*"A" THEN P-128: REM ••• SET PORT NUMBER ••• 

130 IF OPS="3" THEN P=129: REM *** SET PORT NJM3ES ••• 

140 IF P0128 AND P<>129 THEN 110: REM ••• TESTS FOR ILLEGAL ENTRY *** 

ISO OUT P,N: REM *** SEND NUMBER TO SELECTED OUTPUT PORT *** 

160 E=INP(130) : REM **• READ PORT C *** 

170 PRINT 9 120, E 

180 FOR I=lTO1000:NEXTI : REM *** DELAY LOOP *** 

190 GOTO 80 

Program Listing. 
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ated to be used with the 8080A 
microprocessor, can be used 
with most of the current micro- 
computer chips including the 
Z-80. 

By sending the appropriate 
control word in BASIC or ma- 
chine language to the 8255's 
control port, you configure the 
chip's 24 I/O pins in one of three 
ways: as three independent uni- 
directional input or output ports; 
as two uni-directional input or 
output ports with handshaking 
signals; or as one uni-direction- 
al input or output port plus one 
bi-directional port with com- 
plete handshaking signals on 
both. 

The three major parts of the 
8255 (see Fig. 1 ), are the comput- 
er interface, the peripheral inter- 
face and the internal control 
logic. 

The computer interface con- 
sists of eight data lines, six con- 
trol lines, and two power supply 
lines. The data lines D0-D7 are 
connected to the computer's da- 
ta lines and are used to transfer 



data to and from the computer's 
data bus. 

Next there are the address 
lines AO and A1. These two lines 
use their four possible binary 
combinations (00,01,10,1 1) to se- 
lect one of the four ports within 
the 8255. 

A fundamental requirement 
for the parallel port is that it 
must reside at a specific ad- 
dress or addresses. The address 
chosen is a function of the type 
of parallel I/O you select. The 
chip select active low line 
makes use of the decoded ad- 
dress to select the PPI for an I/O 
operation. 

This brings us to the read (ac- 
tive low) and the write (active 
low) lines. These two lines are 
used to tell the chip whether to 
read or write. They are con- 
nected to the computer's memo- 
ry read (RD) and memory write 
(WR) lines for memory mapped 
I/O or to the IN and OUT lines for 
accumulator I/O. The RESET (ac- 
tive high) will set all ports to 
their input mode. This initializes 
the chip and allows it to be 



reconfigured. 

The next group of pins sup- 
ports the peripheral interface. 
Data is transferred to and from 
external I/O devices through 24 
pins which constitute three 
eight-bit ports. These are called 
port A (PA0-PA7), port B (PB0- 
PB7), and port C (PC0-PC7). The 
user is able to control the func- 
tion of the I/O lines by sending a 
control word to the chip's pro- 
grammable control port. 

As stated above, the control 
word determines for each port 
one of three operating modes: 

(1) Mode 0— Simple input and 
output. In this mode the 
8255 provides two eight-bit 
I/O ports (A and B) and two 
four-bit ports which can op- 
erate as one eight-bit port 
(C). Each port is latched in 
its output configuration and 
unlatched in its input con- 
figuration. Additionally, 
each port can be individual- 
ly defined as input or out- 
put. 

(2) Mode 1— Strobed input and 
output. This mode provides 




Fig. 1 



two uni-directional 8-bit in- 
put or output ports (A and B) 
with port C providing the 
necessary handshaking sig- 
nals. Data is latched for 
both input and output at 
ports A and B. 
(3) Mode 2— Strobed bi-direc- 
tional I/O. In this mode there 
are two usable ports: one bi- 
directional I/O port (A) and 
one uni-directional I/O port 
(B), both with full handshak- 
ing provided by port C. 

PPI-80 Port Design 

The port contains four funda- 
mental parts: the decoder logic, 
the 8255 PPI, the reset logic, and 
the power supply. 

Because the port is designed 
to be used with accumulator I/O, 
only eight address lines A0-A7 
must be decoded. Normally, ad- 
dresses are decoded by using 
inverters and eight input NANDs 
(see Rod Hallen's article in Kilo- 
baud Microcomputing, January, 
1980). While this technique is 
both straightforward and inex- 
pensive, there is one drawback; 
the port address cannot be 
changed without physically re- 
wiring the circuit. 

To be able to use the port for a 
number of different applica- 
tions, and because of other pe- 
ripherals which could conflict 
with some of the four addresses 
needed to implement the port, it 
would be advantageous to make 
it easy to change the port's ad- 
dress. 

A simple and Inexpensive way 
to do this uses a DIP switch (S1), 
a small resistor network (R1- 
R6), and two exclusive-OR (XOR) 
ICs, U3 and U4, instead of the 
traditional inverter. (See Fig. 1.) 

The decoding circuit utilizes 
two 74LS86 integrated circuits, 
which are quad-two input XOR 
gates. Remember that the XOR 
gate produces 1 (high) if the two 
input signals are of the opposite 
type, and (low) otherwise. See 
Table 1, XOR truth table. 

If one of the inputs is high, 
then the other Input must be low 
to obtain a high as an output. 
Setting the DIP switch (S1) 
changes the input to one side of 
XOR gate and causes it to func- 
tion as an inverting or non- 
inverting buffer with respect to 
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DISK ORIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 



m 




ISO-1 



ISO-2 



Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
'ISOLATOR (ISO-1 A) 3 filter isolated 3-prong sockets; 
integral Surga/Spika Suppression; 1875 W Maximum load, 

1 KW load any socket $56.96 

'ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; 

(6 sockets total); integral Spike/Surge Suppression ; 

1875 W Max load, 1 KW either bank $56.95 

•SUPER ISOLATOR (ISO-3), similar to ISO-1 A 

except double filtering & Suppression .... $85.95 
'ISOLATOR (ISO-4), similar to ISO-1 A except 

unit has 6 individually filtered sockets .... $96.95 
'ISOLATOR (ISO-5), similar to ISO-2 except 

unit has 3 socket banks, 9 sockets total . . . $79.95 
•CIRCUIT BREAKER, any model (add-CB) Add $ 7.00 
*CKT BRKR/SWITCH/PILOT any modal 

(■CBS) Add $14.00 

N£ PHONE ORDERS 1-617-655-1532 

iSS Electronic Specialists, Inc. 



171 South Main Street. Natick. Mass 01760 



Dept.8M 



ADVANCED BUSINESS 
SOFTWARE FOR THE TRS-80 

(New Available Fat Modal II Also) 
'FORECASTING * RISK ANALYSIS 'U.S. MACRO MODEL 

If you're serious about improving your business 
with a computer, why not use the best business planning software 
available 7 Or Oavid M Chereb has made the most powerful and 
successful business analytical techniques available to micro 
computer users 

All programs listed below are in Basic, lor 32K (or morel disk 
based TRS 80 systems 

BUSINESS PLANNING PACKAGE lor FORE- 
CASTING An integrated set of forecasting programs 
to handle a variety of business forecasting needs 
from Trend Analysis to Advanced Multiple Regres- 
sion (100 pg User Manual) $99 
INVESTMENT RISK ANALYSIS The maior ingred- 

ient in any investment is uncertainty This 
program accounts for cost changes, shifting 
revenue streams and interest rate fluctuations 
Now you can manage risk (35 pg User Manual) 
$99 
U.S. SIMULATION MODEL Knowing where the 

economy is going and how it reacts to government 
fiscal and monetary actions can save you a lot of 
money This is a user onented economic situation 
model constructed to professional standards (BO 
pg User Manual) $199 
NOTICE TO CUSTOMERS: 
Because of (he tremendous increase in recent 
orders, our shipping response time has slowed We 
are expanding in order to correct this situation But 
for the next month our shipping date will average one 
week after receipt ol your order 

To order CALL 213/424-3652. or write to APPLIED ECONOMIC 
ANALYSIS. 4005 Locust Ave. Long Beach. CA 90807. 
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Fig. 1a. 



the other input presented at the 
gate. 

To invert an address line, set 
the appropriate switch on S1 so 
that the input line to the XOR 
gate is pulled high (one). Then if 
one is presented on the other in- 
put, an address line, the gate 
will output at 0, and if a low is 
presented, it will output a 1. In 
this state the XOR is functioning 
as an inverter. Similarly, by set- 
ting S1 so that one of the inputs 
to the gate is low, it acts as a 
noninverting buffer. By setting 
S1 switch to invert or not to in- 
vert, you can select the address 
at which you wish to locate your 
port. 

Since the TRS-80 is continu- 
ously selecting ROM and RAM 
addresses, the address lines are 
always changing. It is likely that 
the address you select with S1 
will be decoded, since the port 
decodes the lower eight lines 
only. For this reason we XOR'd 
the input (IN active low) and Out 
(OUT active low) signals and 
used the resulting output as an 
input to the 8-input NAND. 

For the correct address to be 
decoded and supplied to the 
8255 as the CS (active low), it 
must be present, and either the 
IN or OUT lines must be low. 
When the port is properly ad- 
dressed by the TRS-80, all of the 
inputs at U2 will be high, and the 
resulting output will enable the 
PPI. 

After the 8255 is enabled, it 
must be told what function to 
perform. That is, if the TRS-80 
should read information from 
the PPI, the IN line must be low. 
When the CS and IN go low, all 
that is left to be done is to speci- 
fy whether I/O port PA, PB, PC or 
the control port is involved. 

The address lines A0 and A1 
define which of these ports will 
be selected. (See Table 2.) 



In order to affect an input to 
the TRS-80 from port C; IN, CS, 
and A0 must be low while A1 Is 
high. When this condition oc- 
curs, the 8255 latches the con- 
tents of port C on the data lines, 
D0-D7, until IN goes high. Amaz- 
ingly, all this can be done with 
one BASIC statement. 

Sending data to the PPI from 
the TRS-80 is accomplished in 
much the same fashion except 
the OUT (active low) is used in- 
stead of the IN. 

If you are wondering whether 
the PPI will be able to receive the 
data as fast as it can be sent by 
the CPU, rest your fears. All 8255 
input and output can be done in 
less than 500 nanoseconds. 
Moreover, all of the 8255's in- 
puts and outputs are TTL com- 
patible. 

But, the output drive capabili- 
ty of any port line is limited to 
one milliamp. This will not even 
light an LED. Consequently, if 
you plan to drive more than one 
TTL load you must provide the 
proper buffer and/or level shift. 

The reset logic utilizes an 
XOR gate in a very unique way. 
TRS-80 reset (active low) is tied 
to one of the inputs of the gate 
while the other input is tied to an 
RC network consisting of C1 
and R7 (see Fig. 1). This second 
input of the XOR is also con- 
nected to system ground 
through S2. 

During normal operations, the 
system reset line is held high 
and the input from the RC net- 
work will normally be held high. 
Thus, the resulting output from 
the XOR gate will be low. The 
output of the XOR gate is then 
fed to pin 35 (reset active high) 
of the 8255, enabling normal op- 
eration of the chip. 

This design allows the PPI-80 
to be reset in several ways. First, 
by pressing the TRS-80 reset 
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button, driving the system reset 
line low, you cause the XOR out- 
put to go high, resetting the 
8255. The same condition will 
occur on power up of the 
TRS-80. 

During power up the RC time 
constant, formed by C1 and R7, 
is sufficiently long to insure that 
the RC input to the XOR gate will 
remain low longer than the 
system reset. This causes the 
8255 to reset. Thus, the PPI-80 
will be reset whenever it is 
powered up. S2 can also be used 
to manually reset the PPI-80 by 
forcing the output of the RC net- 
work low. 

The remaining part of the 
PPI-80 is the power supply. Re- 
fer to Fig. 1b. The construction 
is simple because of a 7805 IC. 
This Is a single-package, three- 
terminal voltage regulator. It 
contains all the electronics to 
implement tight voltage regula- 
tion plus over voltage and ther- 
mal-shutdown protection. The 
remainder of the circuitry con- 
sists of a full-wave bridge recti- 
fier (BR1) and filter capacitors 
(C2-C4). 

Software Considerations 

The primary purpose of a port 
is to communicate with the out- 
side world. The 8255 can do this 
in one of its three modes. 

Mode represents simple I/O. 
That is, each of the ports in Fig. 
1 can perform input or output, 



but not both. In this mode the 
data to be transmitted is latched 
to the ports. 

In other words, if you write a 
byte to Port A, that bit pattern 
would stay on the pins PA0-PA7 
until another was transmitted. 
When the TRS-80 reads port C, 
whatever is latched to pins 
PC0-PC7 is transferred to the 
TRS-80. 

This type of I/O is used pri- 
marily for controlling devices 
that can be turned on or off. An 
input port can sense the condi- 
tion of an on-off switch, and an 
output port can close or open 
the switch. This mode is the sim- 
plest of the three. 

Mode 1 offers one important 
additional feature— handshak- 
ing. In this mode port A and port 
B can be assigned to input or 
output data. Port C provides the 
handshaking signals that syn- 
chronize the dialog between two 
machines. (The handshaking 
signals present on the 8255 in 
Modes 1 or 2 are given in Table 
3.) 

Suppose Port A is an output 
port. When writing data to an 
output port, previously transmit- 
ted information may not have 
been read by the external de- 
vice, causing an overwrite. To 
prevent overwriting, the 8255 
produces a standard handshak- 
ing signal, output buffer full 
(OBF) which is active low. This 
signal is produced on PC1 for 
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R1-R7 


4700 ohm, '/« watt. 5°o 


RS# 271 1330 


Capacitors 






C1 


100 ut, 25V electrolytic 


RS» 272-1028 


C2 


1000 uf. 35V electrolytic 


RS# 272-1032 


C3 


1 uf. 50V ceramic disc 


RS# 272-135 


C4 


10 uf, 16V tantalum cap 


RS# 272-1071 


Semiconductors 






BR1 


1A. 50PIV full wave bridge 


RS» 276-1 161 


U1 


8255 PPi 


Jameco Electronics 


U2 


74LS30 8-mput NAND gate 


RS# 276-1914 


U3-U4 


74LS86 Exclusive OR gate 


Jameco Electronics 


U5 


7805 voltage regulator 


RS» 276-1770 


Misceilanous 






S1 


6 position DIP switch 


RS# 275-1301 


S2 


SPST momentary switch 


RS« 275-1547 


IC sockets 


3 14-pin IC sockets 


RS# 276-1999 




3 16-pm IC sockets 


RS# 276-1996 




1 40-pm IC socket 


RS# 276-1996 


Transformer 


1 modular wall plug type 


RS# 60-3053 


Cane 


1 40 conductor cable 


AP» 924065-36-R 


Board 


i suitable pert board 


RS# 276-152 



NOTE A drilled and etched board is available from Quant Systems. P O Box 628. 
Charleston. SC 29402 

Parts List. 




TRS-80*— CONDENSE 

The Ultimate in BASIC 
Compression Utilities ^ 

•* RiImh 1.3 New Available " ^r 



Write BASIC programs using single statement lines for ease 
of maintenance 

Write BASIC programs with unlimited remarks and comments 
to improve program readability and documentation 

— AND STILL GET — 
OPTIMUM USE OF MEMORY — FASTER PROGRAM 
EXECUTION 

Compresses programs up to 70% of original size 

Improves execution time by as much as 30°'o 

Creates multiple-statement program lines 

Blank compression 

Remark and comment deletion 

Renumbers GOTO, GOSUB, THEN, ELSE, and RESUME 

statements which reference deleted line numbers 

PLUS THESE NEW USER REQUESTED OPTIONS 

• Retention of low numbered remark statements 

- Checkpoint / Restart Facilities 

- Phase 1 work file 



Modal I $21.95 

(Diskette) 



Model II $24.95 

(Diskette) 



INTERNATIONAL SOFTWARE ASSOCIATES 
P.O. Box 14805 
Owatn. Ne. 68124 
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Tandy Corporation" 



Memory Chips For Your TRS-80! 



$59.95! 



Don't spend $150.00 at Radio Shack when you can install these 

prime, tested, guaranteed, ram chips yourself for less than half that 

price' 

Features. 

1) We guarantee all our ram chips! 

2) Comes with clear, easy to understand, instructions' 

3) Chips will work in keyboard or expansion interface! 

Catalog «: 

2701 16K Ram Chips tor the TRS 80 Keyboard 59.95 

2702 16K Ram Chips lor TRS HO I xp.msion Ini 59 95 

?708 Dip Shunts lor K.-vbu.u.l I required i 2.00 



Simutek's Sensational Best Sellers: 

MICRO-BEEP 

Micro Beep is a simple sound device thai operates ott your aux plug Irom your cassette 
cable Now you can have inexpensive, easy to use. sound lor an excellent price' 
Micro Beep works with Basic using simple commands' 
OUT255.4 ON CHJT255.0 OFF 

Requires No Extra Software! Requires Level II Basic or Disk Basic Will work with 4K 
48K' Comes completely assembled 1 (Requires fransfsfor radio barrerv) 

Catalog i: 

2001 Micro Beep Sound only 15.95 

Mu.ro Beep is being used bv TRS 80 Owners all over rhe world' 



• I RFr POSTAGE AND HANOI ING • ^ , 9 
Order »2000 Micro Speed Mod Makes Computer 5". Faster 

We accept VISA Master Charge Money Orders Checksor (C O D S3 OOextralSend 
orders to Simutek. PO Boo 13687-Z. Tucson. AZ 85732 



$29.95 



Name _ 
Address 

City 



State 



Zip 



Phone orders welcome 24 hours' (602) 886-5880. Simutek oilers a number ol other fine 
products especially lor TRS 80V Send lor FREF ■ ataiog TRS 80 is t, TM ol Radio 
Shack. A Tandy Corp Arizona residents add 4".. sales lax 



'Reader Service— sn page 226 
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>• SOFTWARE! 



•CAMNK SOI'IVAU i 



Yes! Quality Software for the TRS-80 is now 
written & available. BCC is pleased to be able to 
present some very fine software now with even 
more available in the very near future. Also we 
h. ., i. , develop custom designed software for your 

"" °« KC - every need. Write us for a FREE price quote. 

tm-tO la a tt«d. Ufk of ctw Kadlo SUa Dlv. ol Iaady Corp. 

S^ For Software Think BCC ^5 
o Mail Base 80 



■WO I (Requlr** 
MOD IKRaquirn 

» HAS DOM ACCESS protraa which keeps track 
It allows dlr.ct .cc... of Information In 

have outstanding bill* a toaorrov produce 



Wei) S*9,95 
lve.)$l?9.95 

•Ited nuaait of entries. PI 
Today. Hat all people who 
tip-code order. EXCELLENT' 



o Oil Delivery 



NOD II (REQUIRES 48K a « drives) . 
SOa. This syatee, handlea rverythlng fc 



prlc 



o Vendor _*» i i«.,»ir 

This program seeps trace of a 
direct acceaa of coded Infora 
various other fields. 



48K a 2 drives) 5)9.95 
unllaUrd nuabet (4M per disk) 
Ion by vendor number , 4 alto per 



>0-^ For Supplies Think BCC ^O, 

o Disks & Tapes .. a inch j.,k,n,.. w »r.,„d s«».»5 no m P i.. >.•.> 

8 Inch dlsbettea )M trend $64.95 (Bos of 10) iWerbal 1» 519.95 (Box of 10) 

Cassette. Very High Quality 516/doi C20's. _ ADD 'n STAC stackable cassette 
holders. Each holds 8 cassettes. 53.49s* 

D PnnterS Tha fabulous BASE 2 PRINTER 96 .her ASCII with Tractor Feed 4 H. 
Suffer This printer Just can't be beat!!! 5649.00 (2 lor 51200.00) 
RECONDITIONED CENTRONICS 102A 11)0 charefser ■ " ) 51500.00 



Mister Crurg* E «P "-«• 
Vim Signature 



ORLiER NOW All programs tome on quality cassettes Programs are available on diskette for an 

additional charge of 17 00 per order NYS residents add 7°» Check hoses of items being ordered 

I of items ordered Total amount enclosed 'All items must be prepaidi 

Bourrut Consulting Corporation 

. 8) Friendly « Sm.thtouxi.nv 11787 »^57 J 



MICRO-SPEED 

IKS SO SPEED IT MODIHC ATION 
I HI HI SI O/Y Till MARKl I' 

Sirnuli'A's Mi> m-Spi'ci/ m< reuses < onipufer 
operufiM') s/ieei/ l>\. W,. 



3) 



Speeds up your TRS-80 from 1.77MZ to a hefty 2.66 MZ! 
Shuts down during disk or cassette I/O to end lost pro 
grams, then turns back on automatically when disk or 
cassette 10 is (unshed (Provided, o( course, it was on to 
begin with) 

Connects to keyboard LED and blinks when unit is 
operating. Stops blinking when turned off! 

4) Comes with illustrated instructions (Some soldering 
required) 

5) Average person can install in 10 20 minutes! 

6) All work is done in hardware! Absolutely no software 
drivers needed! 

7) Operates with any TRS-80, (except Model II) works with 
TRSDOS, NEWDOS or any other operating system or 
software. Works with RS 232 and telephone modems' 
Comes completely assembled and ready to install 

All wires are stripped, switch installed' 

There are no hidden extra costs to you! 
9) May be turned on or off at any time! Even during program 

execution! 
10) Money back guarantee!! 



8, 



►^19 



order »200() Micro Speed Mod. 29.95 

We accept Visa Master Charge Money Order Check 
(CO D $3.00 extra) Send orders to: 
Simulek, P.O. Box 13687-Z, Tucson. AZ 85732 

Name 

Address . 

City State Zip 

Phone- orders welcome 24 hours' (602) 886-5880 Simutek off? rs a number of other 

line products especially ior TRS 80s' Send lor "FREE" catalog TRS 80 i* a TM of 

Radio Shack A Tandy Corp Arizona residents add 4 .. sales tax 

NO CHARGE FOR SHIPPING 



port B and PC7 for port A in 
Mode 1. 

The user must know when the 
external device has received the 
byte sent from the TRS-80; the 
acknowledge (ACK), which is ac- 
tive low, provides this informa- 
tion. The logic for this signal 
must be available on the exter- 
nal device. 

The remaining signal usually 
found on an input port is inter- 
rupt (INTR), which is active high. 
This signal goes high when the 
TRS-80 outputs a byte to the 
8255 and remains In this state 
until the ACK is received from 
the external device. 

When functioning in Mode 1 
as an input port, the roles of the 
handshaking signals are re- 
versed. The 8255 must be sig- 
naled when a device is ready to 
transmit information. This is 
done by the strobe (STB), which 
is active low. Upon receiving a 
strobe, the 8255 stores the byte 
and sets the input buffer full 
(IBF) at active high. 

The IBF is monitored by the 
sending device to determine 
when it can transmit the next 
byte. As long as this signal re- 
mains high, it must wait; but 
once the TRS-80 reads a byte, 
this signal is driven low. 

By now you must be wonder- 
ing how the TRS-80 becomes 
aware of data waiting at the 
port. Polling techniques can be 
used for software while the ac- 
tive high interrupt request signal 
(INTR) is used for hardware. Af- 
ter data is received the INTR is 
set high (logic 1), but just like the 
IBF, the INTR is reset by the 
8255 after a read. 

The most sophisticated form 



of parallel I/O is bi-directional, 
which is provided by the 8255 in 
Mode 2. Bi-directional I/O is 
used with an intelligent external 
device, such as another comput- 
er. The 8255 permits port A to 
function as the data port, while 
port C provides all the hand- 
shaking signals discussed 
earlier: OBF, IBF, STB, ACK, and 
INTR. They function in exactly 
the same manner as in Mode 1 
except they are bi-directional. 

Using the Port 

To read the contents of a port 
in BASIC you must use INP(port 
number). This statement is used 
like a function, such as ABS(X) 
or SQR(124). It must be used in 
conjunction with another state- 
ment. 

In the following example 



10 G = INP(127) 

the variable G would be as- 
signed the value of the contents 
of the port 127. 

To send a value to the port 
use the statement OUT port 
number, value. Any value that is 
sent must be between and 255. 
The OUT statement is a com- 
plete BASIC statement and re- 
quires only a line number to be 
included in a program. See line 
70 in Fig. 2. 

Four port addresses must be 
reserved. The two low-order ad- 
dress lines, A0 and A1, define 
which port is being addressed. 
The remaining address lines can 
be configured to suit your own 
needs, if they do not conflict 
with other port definitions. 



Mode 1 


Mode 2 


INPUT 


OUTPUT 


INPUT/OUTPUT 


Bit Function 


Function 


Function 


2 STB f B 


ACK ) B 


Unused 1 
Unused > 
Unused / 


5 IBF / A 


INTR \ 

Unused 1 _____ 
. . . I PORT 
Unused > 


INTR 
STB" ) 

ibf \ «*" 


6 Unused 


JCR ( A 


ACK \ 


7 Unused 


SBF ; 


o"6T ' 


Depend on 






Port B 






definition 






Table 3. Port C Functions in Modes 1 and 2. 
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For example, look at address- 
es 128, 129, 130, and 131. The 
decimal address 128 is equiva- 
lent to 10000000 binary. Notice 
that the two least significant 
bits are 0. Table 2 reveals that if 
the two low-order bits, corre- 
sponding to A0 and A1, are 
then port A is selected. Ports B, 
C, and the control port are se- 
lected by 129, 130, and 131 re- 
spectively. 

The 8255 is a programmable 
port. That is, before using it you 
must define the mode of opera- 
tion for each of the ports. By 
sending the control port the ap- 
propriate message, you select 
the mode of operation for each 
port. 

Table 4 contains control-word 
bit definitions for the three 
modes. This is the beauty of the 
8255. With a simple software 
command you can configure the 
ports as you need to use them. 

The software you develop will 
depend upon the port's applica- 
tion. In Mode the principal op- 
eration will be sensing and oper- 
ating switches. BASIC permits 
this to be done with relative 
ease with the INP and OUT in- 
structions discussed earlier. 

In Mode 1, however, hand- 
shaking signals are required. 

Polling Handshake Signal* 

One technique for handling 
the handshaking signals is 
called polling. This requires the 
controlling program to periodi- 
cally read the handshaking 
signals at port C and act on 
them. The INP command de- 
scribed earlier retrieves the stat- 
us byte located at port C. 

After the TRS-80 sends a byte 



to port A, it must not send anoth- 
er until the receiving device re- 
trieves that byte. This can be 
monitored by scanning the OBF 
bit in port C. If the OBF bit for 
port A is low (logic 0), then the 
TRS-80 should not send a byte 
because the previous byte has 
not been read yet. A program 
can perform some other task 
and check the status of the bit 
periodically or can check it con- 
tinuously. 

When the external device re- 
ceives the byte, it must return 
the ACK signal to the 6255 
which drives the OBF high. 

To use port B as an input port, 
the TRS-80 must know when the 
external device, has sent a byte. 
This can be determined by 
checking the IBF signal associ- 
ated with port B. 

Since the IBF is an active high 
signal, the TRS-80 must scan 
port C until IBF goes high, which 
means port B has received a 
new byte from the external 
device. Reading the contents of 
port B will cause the 8255 to 
drive the IBF low. The sending 
device must have sufficient 
logic to send data only when IBF 
is low. 

In Mode 2 operation, port A 
becomes a bi-directional I/O 
port. Handshaking signals on 
port C must be monitored in ex- 
actly the same fashion as Mode 
1, checking the status of the IBF 
and OBF signals. 

One of the most exciting pos- 
sibilities of the port is the rapid 
exchange of information be- 
tween two computers. The soft- 
ware required is very simple and 
even BASIC software can create 
transmission speeds so fast 



Ml 


Definition 





Port C Lower PC0-PC3, used In Mode or 1 




1= INPUT 2 = OUTPUT 


1 


PORT B Definition PB0-PB7, used in all modes 




= OUTPUT, 1= INPUT 


2 


Mode Select for Group B; PC0-PC3 and PB0-PB7 




0=MODE0. 1=MODE1 


3 


Port C Upper PC4-PC7. used in Mode or 1 




= OUTPUT, 1 = INPUT 


4 


Port A DeMnition PA0-PA7, used in Mode and 1 




= OUTPUT, 1 = INPUT 


5-6 


Mode select for Group A. PC4-PC7 and PA0-PA7 




00 = Mode 0, 01 = Mode 1. 10 = Mode 2, 11 - Mode 2 


7 


Operation CODE 




1 = Mode Set (write control word) 




= Bit SET/RESET (used to generate clock signals) 




7ao/e 4. Control Port Bit Definition. 




COMPUTER 

PIRATES 

-OflTfl 
THIEVE 

ARE HERE... 

Don't let computer pirates: DIVINE your DATA 

FILCHE your FlTES 
PERUSE your PROGRAMS 

Protect them all with CRYPTEXT, the hardware 
encryption module that brings ultra-high level 
security to the small computer user. Once 
encrypted, your files can be stored or trans- 
mitted in strictest privacy. A single CRYPTEXT 
unit will differentially control the medical, 
legal or financial records, mailing lists, and 
design data for an entire firm. 

Breaking CRYPTEXT encrypted data is like un- 
scrambling an egg. We don't say its impossible 
but we have 3 oz. of fine gold waiting for the 
first person who succeeds in breaking our test 
message . 
SECURITY SYSTEMS FOR USE WITH : 

NORTHSTAR 



TRS-80 



APPLE II 



SUPERB RAIN 




OKJDATA PRINTER 

The Best Printer in the World for the TRS-80! 
We'll Stake Our Reputation On It! 



Look al the Features! 

1) 200 million character head 
warranty! Better than any 
competitor! 

2) Works under the most demanding 
business applications! 

3) A "Real" 9x7 DOT Matrix Impact 
Printer! 

4) 80 characters per second! 
: >i Full upper and "'.<.•'! i ase' 

6) Double width characters! 

7) Supports TRS80 Graphics.' See 
Illustration. (These graphics are 
exactly the same graphic codes as 
the TRS 80s. No special software 
required) 

8) Connects directly to TRS 80 with 
standard cable! 

9) Friction & pinfeed, use roll paper, 
stationary or regular data paper' 

10) 6 or 8 lines per inch 

11) 80 and 132 columns 
121 Quiet operation 




Actual photo of printout from Okidata 
Printer' From Simufex's EJecfnc Artist 
Program' 

This is the finest printer you can buy 

i! .-.- . pro .• ti n ,i njr ' R"> 80 

Regular List Price 

1850.00) 

Tractor Feed Option 

$150 00' 

Special Simutek 

Customer Price Only — 

$63800! 

(Tractor Feed $125.00 Extra) 



Catalog ■ 

<*XJ0l Okidata MVroline 80 

wxxtf Frac i„ r Feed Option 

914 1 1 Cable For TRS 80 Keyboard 
41401 Cable Foi FxpansKin Interfau 
<W40I Cable For M.xlel II TRS 80 



'•IS (Ml 

125 00 

55 00 

WOO 

CM HI 



We Accept VISA Maitercharge Checks Money Orden 

or (COD $300 Extra) 

NO TAX ON OUT OF STATF ORDERS' *" 1 » 

Free Sriipprnq In US 

Send Orders To SIMUTEK. P.O. Box 13687-/. Tucson. AZ 85732 



Address . 

City _ 



Slate . _ _ 



&p 



Phone Order* Accepted 24 Flour* (602) 886 5880 Smiurex offers other hne prodi*. Is 
lor TRS 80s Send lor free catalog' Anzona residents add 4'i. sales lax 

IBs w. k A TM ol IU4k> StuK k * l.nds Corp 
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iks so c oMp.Aimn disk drivfs £b 

AT (.Rl VI DISC (H MS" <* 



These MPI drives arc completely compatible with Radio Shack's and 

may be mixed and matched' (i e you may use Radio Shack drives and 

MPl's ogether with no problems' They are totally compatible with 

TRSl >S, NEWDOS. or any other TRS 80 software') 

Thet 4PI 's Ivive doors that close and keep dust out 1 

Thes. MPTs have auto diskette eject' 

These drives are one o( the fastest on the market 5 mjiseconds 

wrsus Radio Sha. k's 40 rnilsei onds' 

rhese drives come con plete with power si. pj v ,unl i ,i« ind are readv, 

to use immediately They are compatible with Radio Shack's disk cable 

or you may purchase our cable 

Dual drive is same as two drives but uses only one diskette' Save money 

on expensive diskettes' It may be used as drive and 1. land2or2and3' 

This is a fantastic buy 1 

SAVE $1 16 (Single drive) or $451 iDual drivel 

Over Radio Shack's single drive prices' 

WE SHIP FAST! ORDER YOUR DRIVE TODAY!!! 



Order' 




MIKI 


MPI Single Drive 




800] 


MPI Dual Drive 


549.00 














8005 


TRSIXW Manual and TRSDOS 2. 3 


19.95 


8006 


NEWDOS* (in. ludes editor assembler that 
works with tape or disk, disassembler, super/ap. 
bask variable reference, renumber, disk commands 
from basic, screen to printer command. 








9995 


8016 


NEVVDOS 80 ..nd NEVVDOS* (NEW NEVVDOS* 








149 95 


8007 


TRS-80 Disk and other mysteries by 

H C Pennington gives explicit descriptions 






of TRSDOS. NEWDOS. SUPERZAP. DEBUG etc . . 


. 22.00 


8008 


Ten pack diskettes 


. 29.95 


8009 


Single diskettes 


2 99 


WHO 


Disk holders (hold ten eachl 


2.99 



Please add $5 00 per drive for shipping & handling 

No i.u on out of Male orders" 
We accept Visa Mailer Charge Money Orders Checks (C O D S3 00 eKlral 
Send orders lo SirewteV PO Bo. I3M7-Z. Ttxson KI HS732 

Name 



State 



Zip 



City 

Phone orders accepted 24 hours (602) 886-5880 Foreign orders add $20 postage 
and handling per drive TRS-80 is a TM of Radio Shack A Tandy Corp 
Arizona residents add 4"<. sales lax 



TRS-80 It a restored trademark of TANDY CORP. 



FOR THE 




USYSTEM 
EXPANSION 



tm 



TRS-80 



&.cq- 9s r pcB ° ARD * 1 

VO-7 L USER MANUAL J 



SERIAL RS232C 20 mA I O 
FLOPPY CONTROLLER 
32K BYTES MEMORY 
PARALLEL PRINTER PORT 
DUAL CASSETTE PORT 
REAL-TIME CLOCK 
SCREEN PRINTER BUS 
ONBOARD POWER SUPPLY 
SOFTWARE COMPATIBLE 
SOLDFR MASK, SILK SCREEN 



LNW 

RESEARCH 



8 Hollowolan Si. Irvin* CA 
714-552-8946 92714 

TO ORDER 

O. Box 16216 Irvin* CA 92713 
Add S3 for postogt and handling . 
CA resident j odd 6% solas lax 



that the two machines appear to 
function as one. 

Construction 

The prototype circuit for this 
article (Fig. 1) was built on a Ra- 
dio Shack board (part #276-152). 
However, since the operation of 
the circuit is not critical, a good 
perf board or vectorboard, with 
either point-to-point wiring or 
wire wrap should produce good 
results. It is also possible to pur- 
chase an etched and drilled cir- 
cuit board from Quant Systems, 
Charleston, SC. IC sockets are 
recommended regardless of the 
construction method you use. 

Begin assembly by installing 
the IC sockets for U1-U4 and S1, 
then solder the resistors in 
place. Next, mount C2 and wire 
it into the circuit as indicated in 
Fig. 1. 

Choose connectors for the 
three 8-bit ports then mount 
them to the board and wire them 
to the peripheral interface pins 
of the 8255. Sixteen-pin IC sock- 
ets make convenient connec- 
tors for the three I/O ports. 

In addition to the eight I/O 
lines, you may want two power 
supply lines to provide power to 
a satellite board. Depending on 
software definition, you may re- 
quire as many as three hand- 
shaking signals. 

Since 13 of the 16 available 
lines may be utilized, connec- 
tion to an external device will re- 
quire a 16-line jumper cable. 
This method of connection 
should always yield several 
spare lines for those oversights 
that always come up at the last 
minute. 

The circuit requires a + 5 volt 
power supply. While this is avail- 
able on the TRS-80 bus, it is not 
recommended for the source be- 
cause of its limited current 
capability. Build your own by 
following the schematic in Fig. 
1b, or purchase a suitable plug- 
in modular supply. Use a +5 
volt regulator chip as a safety 
feature for the ICs. 

Switch S2 is used to reset the 
PPI-80 at the project board. If 
this capability is not desired, S2 
may be omitted. The same reset 
function is accomplished at 
power up of either the TRS-80 or 
the PPI-80 and can also be ac- 



complished by pushing the 
TRS-80 reset button. 

Connecting the board to the 
TRS-80 is straightforward (see 
Fig. 1). First you need a 40-pin 
edge connector with cable. 
These cables were as scarce as 
dinosaurs, but now are available 
from several sources, including 
Hobby World, 19511 Business 
Center Drive, Northridge, CA 
91324. 

After making the connections 
to your board, double-check 
your work. The TRS-80 edge con- 
nector is numbered with even 
numbers on the bottom, starting 
at the edge nearest the center of 
the keyboard. Check the edge 
connector to the associated IC 
socket using an ohmmeter. 

Testing 

Determine if the PPI-80 is 
working properly by using one of 
the ports to send data to anoth- 
er. All you need to do is connect 
the corresponding port lines. 
(For example, connect PC0-PC7 
to PA0-PA7.) Make sure the dip 
switch is set for port A, to be 
located at port 128, and enter 
Program Listing 1. 

Note that line 70 writes the 
control word 137 to the 8255's 
control port at address 131. This 
specifies Mode for all ports 
and defines port C as an input 
port and ports A and B as output 
ports. 

The remainder of the program 
permits selection of a number 
between and 255 to be sent to 
either port A or B and then to be 
read by port C. The number re- 
ceived by port C will be dis- 
played and should be equal to 
the number entered. 

Applications 

Applications for the PPI-80 
are numerous. It can be used to 
create real time computer 
games. It can be used for analog 
to digital conversion to monitor 
and control a home heating sys- 
tem. Connected to a Sears or 
Radio Shack remote home con- 
troller, it can switch lights and 
appliances on and off in an emp- 
ty house. The authors are using 
their PPI-80 to construct a music 
synthesizer. 

The possibilities are up to 
you. ■ 
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WE WILL NOT BE UNDERSOLD 




16K MEMORY UPGRADE KITS $49 

for TRS-80*. Apple II. (specify): Jumpers $2.50 

PRINTERS NEC Spinwriter 

Letter Quality High Speed Printer 

Includes TRS-80" interface software, quick 
change print fonts, 55 cps, bidirectional, 
high resolution plotting, graphing, propor- 
tional spacing: R.O $2689 
R.O. with Tractor Feed $2789 KSR with Tractor Feed $3200 
779 CENTRONICS TRACTOR FEED PRINTER $969 

Same as Radio Shack line printer I 

737 CENTRONICS FRICTION & PIN FEED PRINTER $839 

9x7 matrix 

730 CENTRONICS FRICTION & PIN FEED PRINTER $639 

7x7 matrix Same as Radio Shack line printer II 

P1 CENTRONICS PRINTER $269 

Same as Radio Shack quick printer 

PAPER TIGER (IP440) $939 

Includes 2K buffer and graphics option 
TI-810 Faster than Radio Shack line printer III 

Parallel and serial w/TRS-80' interface software $1575 

with upper and lower case and paper tray $1665 

OKIDATA Microline 80 Friction and pin feed $559 

Tractor Feed, friction, and pin feed $679 

EATON LRC 7000 + 64 columns, plain paper $349 

ANADEX DP-9500 $1389 DP-8000 $869 

DISK OPERATING SYSTEMS 

PATCHPAK #4 by Percom Data $ 6.95 

CP/M for Model I, Zenith $145 • for Model II. Altos $169.00 

NEWDOS Plus — with over 200 modifications 35track $89.00 

and corrections to TRS-DOS 40 or 70 Track $ 99.00 



SOFTWARE FOR THE TRS-80* ^,& a ' 



CO-INVESTMENT PORTFOLIO MANAGER: This is 
what investors have been wailing tor' This powerful 
program was developed by secunty analysts working 
with software designers It comes on one cassette - 
16K LEVEL II BASIC on one side. 32K DISK BASIC on 
the other Store and report data. Review your portfolio, 
Produce detailed status, value, gain, and security 
analysis; Compare alternatives 949.95/110 

INTELLIGENT TERMINAL SYSTEM ST-80-* BY 
LANCE MIKLUS: Enables a TRS 60' to acl as a dial 
up terminal on any standard time sharing network 
Provides a TRS-80' with control key. ESC Key, 
Repeat Key. Rub Out Key. Break Key. full upper and 
lower case support, selectable printer output and 
program selectable t ransmission rates S139/$10 

CCA DATA MANAGEMENT SYSTEM: Automate your 
information processing tasks You can create a tile ol 
customer information, quickly and easily add. delete 
or update records; search a file; keep a file in order ol 
the value in any field; and print records and labels in 
any desired sequence or from |ust a pari ol a file 
Requires 32K TRS -HO and one drive $74.95/$10 

CSA MAHJST SYSTEM: Creates, maintains and etfi 
ciently utilises a name, address and telephone 
number file. 400 individual name/address entries can 
be maintained on a single density mini. floppy, and are 
manipulated directly by record number (direct access 
file method) Sorts can be performed, name » address 
combinations can be coded. Listing directories and 
labels can be printed A conversion facility is provided 
to convert most sequential name address Hie formats 
into direct Requires 32K TRS 80 and one dnve 

149 95/110 



SIM SYSTEMS 

INSEO-80" 1 : Indexed Sequential Access Method 
I ISAM) lor the TRS-80 Model I A must lor anyone writ 
ing business programs Eliminate wasted disk space 
from direct record processing Split second access to 
any record Access data records instantly via alpha' 
numeric "key" eg Pari NR. Up code or sequentially in 
ascending key sequence. Add/modify records in any 
order Access up to Ihree files per program Files 
may be spread over multiple disks. Machine language 
processing from your basic program. Utility program 
to convert direct files lo INSEO-80 format. »49.9S/$10 

FULLY INTERACTIVE ACCOUNTING PACKAGE: 
ISAM (INSEO-80) based Includes General Ledger. 
Accounts Payable. Accounts Receivable and Payroll 
System runs "stand alone" or "co-ordinated Gil al 
users option Based on Osborne accounting method 
Requires 32K TRS 80 2 or 3 drives NIA CA 

General Ledger $99/110 

Accounts Receivable $99/110 

Accounts Pay* We $99/ $10 

Payroll SM/S10 

Osborne books. Req'd as additional documentation 
$20 ea 

INVENTORY Requires 32K. TRS 80. 1 dnve S12S/S10 
INSORT-80 Callable form BASIC via USR. Sorts "Ran- 
dom " Disk Files Disk" to "Disk" sort times — 350 
records in 35 sees. 1000 records in 8 minutes. 3500 
records in 12 minutes Machine language processing 
Up to 35 sort keys ascending/descending Utility to 
build BASIC program Runs under NEWDOS 

(49.95/110 



n. 



DISK DRIVES $314 

More capacity than Radio Shack 35 Track (80 K 
Bytes) drives. Fully assembled and tested. 
Ready to plug-in and run the moment you 
receive it. Can be intermixed with each other 
and Radio Shack drive on same cable. TRS-80* 
compatible silver enclosure. External card edge 
•^^ included. 

90 DAY WARRANTY. ONE YEAR ON POWER SUPPLY. 
FOR TRS-80* 

CCI-100 5'V. 40 Track (102K Bytes) for Model I $314 

CCI-200 5V 4 ". 77 Track (197K Bytes) for Model I $549 

CCI-800 8" Drive for Model II (V? Meg Bytes) $795 

For Zenith Z89 

CCI-189 5% ". 40 Track (102K Bytes) add-on drive $394 

Z-87 Dual 5'/ 4 " addon drive system $995 

DISKETTES— Box of 10 (5 '/«")- with plastic library case $24.95 
8" double density for Model II (box of 10) $36.49 

COMPLETE SYSTEMS 

TRS-80 ' LEVEL II-16K with keypad $709 

TRS-80' Expansion Interface $269 

HEWLETT PACKARD HP-85 $3199 

ZENITH ZB9, 46K all-in-one computer $2595 

ZENITH Z19 $740 

TELEVIDEO 912B $745 920B $769 
ATARI 400 $489 ATARI 800 $799 

MATTEL INTELLIVISION $249 
Software available for the above systems 



CAT MODEM Originate and answer same as 

Radio Shack Telephone Interface II 
LEEDEX MONITOR Video 100 



$148 
$119 



CP/M BASED SOFTWARE for 
Zenith, Altos, Radio Shack, Apple %%zl?£? 



MICROSOFT 

BASIC -80: Disk Extended BASIC ANSI compatible 
with long variable names. WHILE/WEND, chaining^ 
variable length li le records $32 5/ $25 

BASIC COMPILER: Language compatible with BASIC 
80 and 3- K) times taster execution Produces standard 
Microsoft relocatable binary output Includes MACRO 
80 Also linkable lo FORTRAN 80 or COBOL 80 code 
modules S3S0VS2S 

F0BTRANB0: ANSI 66 {except lor COMPLEX) plus 
many extensions. Includes relocatable object com- 
piler, linking loader, library with manager Also 
includes MACRO-80 (see below) $425/ $25 

COBALatt Level 1 ANSI 74 standard COBAL plus 
most of Level 2. Full sequential, relative and indexed 
file support with variable file names. STRING. UN 
STRING. COMPUTE. VARYING) UNTIL. EXTEND 
CALL COPY. SEARCH. 3 dimensional arrays, com 
pound and abbreviated conditions, nested IF Power 
lul interactive screen handling extensions Includes 
compatible assembler, linking loader and relocatable 
library manager as described under MACRO 80 

$700/925 
Z-IO SOFTCARD FOR APPLE: Your key to tuture soft 
ware expansion Get the best of both worlds. Apple s 
6602 and CP/M Z-80. Plug in the card and get a 280 
Supports Apple language card and all Apple peripher 
als Comes with set of three manuals. (339/S7S 

CCI-TELNET VERSION & A communication Package 
which enables microcomputer users to communicate 
both with Large Mainframes and other microcom 
puters Extensive commands make it useful in many 
applications where communication between com- 
puters is necessary Powerful terminal mode enabling 



user to save all data from a session on disk Com 
pletely CP'M compatible Multiple communication 
protocols supported Able to transfer files in both 
directions without protocol where the other machine 
does not support any protocol Extensive ON 
SCREEN help Source code provided S14tfS15 

MICROPRO-WORDSTAR Menu driven visual word 
processing system for use with standard terminals 
Text formatting performed on screen Facilities for text 
paginate, page number, justify, center and underscore 
User can print one document while simultaneously 
editing a second. Edit facilities include global search 
and replace. Read 'Write to other text files, block 
move. etc. Requires CRT terminal with addressable 
cursor positioning $398 '$40 

BDS 'C COMPILER: Supports most features of larv 

Sluage. including structures, arrays, pointers, recursive 
jnctlon evaluation, and overlays Package contains 
compiler, linker, library manager, sample source files 
include games, a terminal emulator with disk I/O plus 
the source lor many standard library lunctions. BOS C 
User's Guide; Book The C Programming Language by 
Dennis Ritchie and Brian Kernigham Requires at least 
24 K of RAM 1125(820 

CONFIGURABLE BUSINESS SVSTEM BY DMA: CBS 

is a data management system that allows true trans- 
action processing The system features a screen 
menu generator and a comprehensive report genera 
tor which can be used lo produce invoices, purchase 
orders, re order reports, mailing labels or other special 
reports specific to the application Good documenta 
lion and a demonstration inventory system supplied 
Requires al least 48K memory Does not require any 
support language $295 



ACCESSORIES 

HEAD CLEANING DISKETTE: Cleans drive Read/ 
Write head In 30 seconds. Diskette absorbs loose ox ide 
particles, fingerprints, and other foreign particles that 
might hinder the performance of the drive head Lasts 
at least 3 months with daily use Specify Btt" or 8". 
$20 M/S45 lor 3 



FLOPPY SAVER Protection tor center holes of 5% ' 
floppy disks Only 1 needed per diskette Kit contains 
centering post, pressure tool, tough 7-rml mylar reirv 
lorcing rings. Installation toots and rings for 25 
diskettes $11.95 

Re-orders Of rings Only: $ 7.95 



ACCESSORIES 

EXTERNAL DATA SEPARATOR: Eliminates data 
separation probtemsfcrci. Improves reliability This 
plug in unit comes fully assembled and tested $29.95 
AS 232 $89.00 

DISK DRIVE EXTENDER CABLES: Fits all mini-disk 
drives $15.95 



AC LINE CORD FILTER A 6 PRONG POWER STRIP 
$39.00 
DISK DRIVE CABLES: 2 drive $29.00 4 drive $35.00 
DUST COVERS: TRS 80/Apple. S 7.95 

TRS 80 1 OTHER MYSTERIES St 9.9S 

RF MOOU L ATOR: Adapts video to TV $35.00 



dealer (national/international) inquiries invited Send for FREE Catalogue 



The CPU SHOP 

TO ORDER CALL TOLL FREE 1-800-343-6522 

Massachusetts residents call (617)242-3361 

For detailed technical information, call 617/242-3361 

Hours: 10AM-6PM (EST) M-F(Sat. till 5) 

*TRS-80 is a Tandy Corporation Trademark 
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5 Dexter Row, Dept. K9M 
Charlestown, Massachusetts 02129 

Massachusetts residents add 

5% sales tax 

Quantities on some items are limited 




■ Reader Service— see page 226 
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EDUCATION 



Children associating with a computer? 



Kidstuff 



Dan Keen 

Dave Dischart 

RD 1, Box 432 

State Highway 83 

Cape May Ct. House, NJ 08210 



Small kids can be hard on 
things. But with proper su- 
pervision, a microcomputer can 



be a powerful teaching aid. 

This program, for example, 
will help your preschooler asso- 
ciate objects with sounds. It's a 
crucial skill, if he is to learn how 
to read. The program also 
makes the child pick out letter 
shapes on the keyboard. 

He'll have fun, too; many of 
the objects are animated. A car 
travels down the highway, an 




airplane takes off, a train chugs 
down the tracks, and a dragon 
breathes fire. 

Kid Testing 

We designed the program for 
kindergarten children. But "kid 
testing" proved that even 2- and 
3-year-olds like it. They may not 
know the letters, but with paren- 
tal supervision they quickly 
learn to associate the shapes 
with names. In fact, they soon 
learn the sequence and will fre- 
quently tell you what object will 
be displayed before it is even 
drawn. 

Since most children in this 
age bracket can't read, the com- 



puter has trouble communicat- 
ing with them. An adult must 
show the child how to respond. 

Once into the program, opera- 
tion is simple. The program uses 
INKEYS so that the child never 
has to hit the enter key. When he 
sees a flashing question mark, 
he types the letter that the ob- 
ject displayed begins with. If he 
is right, the word RIGHT and a 
smiling face appear. 

If he's not, the screen prints 
WRONG— TRY AGAIN and 
draws a sad face. The computer 
then waits for him to type anoth- 
er letter. He can make any num- 
ber of guesses. 

Before an object is shown, a 
dummy INKEYS picks up any 



Fig, 1. Sample Shapes 



OBJECT 


ACCEPTABLE LETTERS 


plane 


Airplane, Plane. Jet 


boat 


Boat. Choo-choo 


heart 


Heart, Valentine 


tree 


Tree, Christmas tree 


cowboy 


Cowboy, Bandit, Man. Outlaw 


house 


House, Building 


car 


Car, Automobile 


castle 


Castle. Building 


Santa 


Santa 


dragon 


Dragon, Monster 


steps 


Stairs 


clock 


Clock, Watch 


letter 


Letter, Mail. Postcard 


toothbrush 


Toothbrush, Brush | 


Table 1. Objects and Their Answers 
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stray keyboard input. Thus, if 
the child accidentally leans on a 
key during animation, the letter 
won't register as a bad guess 
when the next object appears. 

Most objects have several ac- 
ceptable answers. Table 1 gives 
a list of subjects and answers. 

Consonants are emphasized, 



since beginning vowel sounds 
are more difficult. We didn't try 
to check every letter in the al- 
phabet. 

You'll need 16K Level II or 32K 
Disk BASIC to run the program. 
You must put the exact number 
of Xs inside the quotes on 
strings. Otherwise, the entire 



program will bomb. Also be sure 
to include the second question 
mark. 



One Caution 

Because of its string packing 
routines, this program will not 
run with Apparat's NEWDOS + 
unless you put all the strings 



at the beginning of the program. 
Otherwise, all the string loca- 
tions in later lines would be out 
in the interface RAM, causing 
VARPTR to return an error. 

Don't be alarmed at the weird 
screen scrolling when you list 
after running the program. This 
is caused by the string packing 
routines. ■ 



5 cLEflRieee.s=e.GosuB5eeee 

188 rtt«='XXXXX' 

181 l£ST0K:K=Vf«PTR(Al$):flD=PEEK(K«2)*2S£«PEEK(K4l) 

182 WTR138. 148. 148. 157. 132 

183 F0fip38TD4:REflDK:PHEflD*P,X:IEXTP 
104 f&z'KOOOHOOOOOr 

185 K=VflRPTR(R2$):fiD=f£EK(K+2)*256+PEEK(K+i) 
IBS DflTftt28. 144, 128. 168. 26. 8, a & 131.131.139. 131 

187 FORP=8T011:REflDX.Pt«ErtHP,X;f£XTP 

188 fl3*s'K0OOOOOOOr 

189 K=VRRPTR(fl3l):flW , m((K*2)*2564PEB(<K*l) 
118 DflTM88,176. 184,176. 26.a&& 128,138 

111 FORP=8T09:REflDX:PCKE«HP,X:«XTP 

112 A8*='XX»«" 

113 K=VflRPTR<fiB$):flD=fEEK(K+2)*256^EEK(K+l) 

114 MTR128,128,128,128,128 

128 CLSJ0W^0i:&m:PO&KM,X)€WJQRL=ttim5:mHl&,fG$, :G0OB198:NEXT 

138 FORL=915T0264STEP-6e:PRIMT8L-Lfl8f, PRIKNUAB; :GfJ9B198:PRlWT8LCHRI<38), :PRIHT!LRlfc :G0SUBi98:f ) RINT8L,CHR$<38), :PRIMT«.-64,H 

2$) .G0SUB198.NEXTL 

158 OS:PRINTM88.Rl*:ffl9fi6BBB8: IF(f^'P^«(ftM"fl')«<R$=M")T>tNrjfJSlJB6288e:G0T028e 

168 G0SUB6188B:G0SUB68ee8:GfJT015e 

198FfJ»=lT01B:«XT:PRIMTIL-2.' % :PRINm*64, ■ "; ;PRIMT8L-64. ■ ':RETURN 

288 Fl$='XX»00000000000000000000«XXXXXX»OOOOOOOOOOOOOOOft a 

282 K=VPRPTR<Fl*).f»=P££K(K+2)*256+P£EK(K+i) 

284 DATR176. 176. 176. 176, 176, 128, 26. 24. 24. 24, 24. 24. 24. 24. 24, 184, 191, 179, 191, 191, 191, 191, 189, 184, 149, 128, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24 
, 24, 24, 138, 143, 185, 191, 191, 191, 191, 135, 138, 133, 128 

286 F0RP^TO48.R£rTDX.FtrXEflD4f,X.fCXTP 

218 F2*='»3XXXXXXXXXXXXXXXXXO»»COHOH0^^ 

212 K=VflRPTR<F2*):flD=PEEK(K*2)*256^EEK(K*l) 

214 DATR176, 176, 176, 176, 176, 128, 26, 24, 24, 24, 24, 24, 24, 24, 24, 184, 191, 179, 19L 191, 19L 19L 189, 184, 134, 128, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24 

,24, 24, 138, 143, 185, 191,191, 191, 191,135, 138, 137, 128 

216 FORP*8T048 . REflDX . PCKEAD+P, X : NEXTP 

228 F3*^X£KKKOCCCvCCtfKXXXOO0C^^ 

222 K^fWTR(F3*).flD=PEEK(K*2)*256+fEEK(K+l) 

224 MTftl76, 176, 176, 176, 176, 128, 26, 24, 24, 24, 24, 24, 24, 24, 24, 184, 191, 179, 191, 19L 191, 191 189, 176. 148, 128, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24 

,24,24,138.143.185,191.191,191,191,135.128.131.128 

226 FORP=8T048:RE«)X:POKE«HP,X:«XTP 

238 F4l= a X}C«00COM000O0O00000O000000000CCDOXO0O0O0000{XX" 

232 K=VflRPTR<F4$) :flD=PEEK<K+2)*256+PEEK(K+l) 

234 DAT8176. 176, 176, 176, 176, 128, 26, 24, 24, 24, 24, 24, 24, 24, 24, 184, 191, 191, 191, 191, 191, 191, 189, 184, 149, 128, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24 

,24, 24, 138, 143, 185, 191, 191, 191, 191, 135, 138, 133, 128 

236 FOKP=8T048:REflOX:P()KEHHP.X:rEXTP 

255 BO*='XXXXXXXXXXX" 

268 K=VflRPTR(B0l):flD=PEEK(K+2)*256+PEEK(^l) 

265 DOTR128. 176, 176, 188, 188, 191, 188, 188, 176, 176, 176 

278 F0RP=eT0ie : REFDX . POKEHHP. X . ICXTP : CLS . P0=512 

275 PRINTIPO, B0$, : F«DE=1T028 : ICXTDE ; P0=P0+1 : IFPtK562Tr£N275 

288 aS:p™M58,B0I.G0Sie68eee;IF(R*='B^^ 

285 G09fi61888:G0SUB6B888:(]0T028e 
raTr^'KOCOOOCftOOOOOMCOOOCCHOOO^ 
385 K=VflRPTR(TR$):flD=P£EK(K+2)*256+P£EK(K+l) 

318 DATA128, 188, 188, 146, 148, 148, 168. 171, 151, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 128, 168, 191, 191, 191, 191, 19L 191, 191, 191, 144, 26, 24, 24, 24 

Program continues 
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, 24, 24, 24, 24, 24, 24, 24, 128, 138, 135, 128, 128, 128, 12a 138, 135 

315 F0RPO^T058. REflDX. POKEflD+P0,X.NEXTP0 

328 aS.L0M58.F0RPO=648T0783STEP2.PRINT6P0,a*$(15i), :PRINT6P0+1CHRS<131), ; NEXT :PRINT8784,STRING*<64, 131), 

325 PRINT6L0, TR*. G0SUB375 

338 PRINT8L0,TR$, .PRINT6L0-57, "* a , G0SUB375 

335 PRINT8L0, TR$, PRINT8L0-58, " ", PRINT8L0-123, **", G0SUB375 

348 PRINT6L0,TR$, PRINT6L0-124, " ', G0SUB375 

345 IFU£588Tf€N48eELSEG0T0325 

375 FCRDE=8TO10.NEXT[£.LO4.Cl+l RETURN 

488 aS.PRINT8488,TRi.G0SUB68888 

418 IF(tt="T'0RJtt='C"'nCNG0SUB628e8.G0T0i888 

428 G05UB61888.G05UBb8888.G0T0418 

1888 CIS. 1.0=582. SM=8 

1818 PRIMT«.0,F1$, G0SUB1188 

1828 PRINT8L0.F2I, G0SUBU88 

1838 PRINT6L&F3*. G0SUB1188 

1835 IFLIK452TJCM1588 

1848 3t=SU+l . IF9K2Tt€N18i0ELSEPRINT6LO, F4I, . G0SUB1188 : 3t=8 : G0T01828 

1168 F0JteiT015.NEX7Q.L0=LO-i: RETURN 

1588 OS.PRIMTWeaFll, G05UB6688B 

1688 IFfl$="F , T»CNG0SUB6288e.G0T02e8e 

1788 G0SUB61888.G0SUB68888 G0T01688 

2888 HE*= a XXOOOOOOOOttOGCOOOO0OCO0OOOOOOOOOOO0« a 

2818 K=VHPTR<HES):flD=PEEK<K+2)*256+fEEK(K+i) 

2828 DATR168, 131, 131 137, 152, 131, 131, 169, 26, 24, 24, 24, 24, 24, 24, 24, 137, 144, 128, 128, 128, 152, 129, 26, 24, 24, 24, 24, 24, 24, 138, 164, 168, 134, 26 

,24,24,129 

2838 F0RP=8T037 . REflDX . POKEflD+P, X . NEXTP 

2848 aS.PRINT8488,HEI.G0SU8688C« 

2858 IF(fll="H")ORiR$= , V")T*NGOSUB62080.GOTO384e 

2868 G0SUB61886.G0SUB6O889.G0T0285e 

3846 TEI^'XXXXXXXXXXXXXXXX" 

3858 K=VflRPTR<TEI) flD=PEEK(K+2)*256+PEEK(K+l> 

3866 DftTfli2S, 160, 198, 1S8, 26, 24, 24, 24, 24, 24, 128, 136- 143, 175, 143, 141 

3876 FORP^6T015 . REflDX . POKEflD+P, X . NEXT 

3886 CLS.PRINT8468,TEJ G0SUB686ee 

:898 IF(R$='C)0R(fl^"T")TfCNG0SUB6288e.G0T0il6e 

3895 G0SUB61888 GOSUB6888e.GOT0:898 

3186 CCtf-"XXXXXXXXXXX£KOC<KC^^ 

3116 K^VflRPTR(COI,' .flD^PEEK(K+2>*256+PEEK(k'*l) 

3126 DfiTfll76, 188, 188, 188, 176, 176, 26, 24, 24, 24, 24, 24, 24, 24, 176, 176, 191, 19L 191, 179, 176, 26, 24, 24, 24, 24, 24, 24, 24, 24, 19L 32, 32, 191, 191, 19 

132,32,191 

3138 WTR26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 143, 176, 32, 191, 191 191 32, 176, 143, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 176, 188. 143, 131, 131, 131, 143, 1 

88,176 

3148 FORP=8T076 . REflDX . POKEflD+P, X . NEXTP 

3174 aS.PRINT8488,CO$.G0SUB688ee 

3176 IF(Ri= , C , )()R(R$= , H^OR(f^ , B^OR(fl*="0 , )T)CNGOSUB628ee:GOT04888 

3188 G05UB61888.G0SUB68888 G0T03176 

4888HK*="X»0000000W««0MMOCO00M«^ 

XXOCOCCOOOOOOOOOMOOOOOKOOOOf 

4818 K=VflRPTR(HH$) .flD=PEEK(K+2)*256+PEEK(K+l) 

4828 MTU2& 176, 128, 168, 176, 176, 144, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 128, 176, 18a 191 191 191, 188, 191 191 26- 24, 24, 24, 24, 24, 24, 24, 24 

. 24, 24, 24, 24, 128, 176, 188, 191 191 191 191 191 191 191 191, 191 188, 176, 26, 24, 24, 24, 24, 24, 24, 24. 24, 24, 24, 24, 24. 24, 24, 24 

4838 DflTR12a 191 191 143, 143, 191 191 191 191 191 191 191 141 143, 191 191 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 128 

4835 D6TR191 191 176, 176, 191 191 131 131 131 191, 191 176, 176, 191 191 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 12a 191 191 

191 191 191 191 12a 12a 12a 191 191 191 191 191 191 

4858 F0RP=8T0151 REflDX POKEflD+P, X: NEXT 

4668 CLS.PRINT8336.HHI:(j0SUB68888 

4876 IF(ft»='B a )0R(RS= a H a )T>£NG0SUB62668:G0T04168 

4686 Q0SUB6ie6e:GOSUB66666:(j0T04676 

4166 CCI='X»OO00OO0OOO0OO0OOOOOOO0O0O0OO0OOOOOOOOOOOOOOO0O00O0O0OO00OOOOOO00CO< a 

(118 K=VflRPTR(CCI) :flD=PEEK<K+2H256+PEEK<K+l) 

4126 D6TR156, 14a 14a 14a 14a 14a 172, 26, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 17a 186, 188, 188, 18a 189, 18a 18a 18a 18a 188, 19a 18a 188, 

18a 14a 26 

1136 DATR24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 138, 133, 18a 188, 13a 143, 143, 143, 143, 143, 143, 133, 18a 18a 138, 141 

♦148 F0RP=6T068: REflDX: POKEflD+P, X: NEXT 

Program continues 
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PROGRAMMING TOOLS FOR YOUR 

TRS-80 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 
INSIDE LEVEL II is a comprehensive reference guide to the Level 
II ROMs which allows the machine language or Basic programmer 
to easily utilize the sophisticated routines they contain. Concisely 
explains set-ups, calling sequences, and variable passage for 
number conversion, arithmetic operations, and mathematical func- 
tions, as well as keyboard, tape, and video routines. Part II pre- 
sents an entirely new composite program structure which loads 
under the SYSTEM command and executes in both Basic and 
machine code with the speed and efficiency of a compiler. In 
addition, the 18 chapters include a large body of other information 
useful to the programmer including tape formats. RAM useage, 
relocation of Basic programs. USR call expansion, creating SYS- 
TEM tapes of your own programs, interfacing of Basic variables 
directly with machine code, a method of greatly increasing the 
speed at which data elements are stored on tape, and special 
precautions for disk systems. INSIDE LEVEL II is a clearly or- 
ganized reference manual. It is fully typeset and packed with 
nothing but useful information. It does not contain questions and 
answers. ROM dumps, or cartoons INSIDE LEVEL II 15.95 

TELECOMMUNICATIONS PROGRAM 

This program allows reliable high speed file transfers between two 
disk-based computers over modems or direct wire. It is menu 
driven and extremely simple to use. Functions include real-time 
terminal mode, save RAM buffer on disk, transmit disk file, receive 
binary files, examine and modify UART parameters, program 8 
custom log-on messages, automatic 16-bit checksum verification 
of accurate transmission and reception, and many more user 
conveniences. Supports line printers and lowercase characters. 
With this program you will no longer need to convert machine 
language programs to ASCII for transmission, and you will know 
immediately if the transmission was accurate. TELCOM $29.95 

PROGRAM INDEX FOR DISK BASIC 

Assemble an alphabetized index of your entire program library 
from disk directories. Program names and free space are read 
automatically (need not be typed in) and may be alphabetized with 
a fast Shell/Metzner sort by disk or program. The list may also be 
searched for any disk, program, or extension; disks or programs 
added or deleted; and the whole list or any part sent to the printer. 
Finally, the list itself may be stored on disk for future access and 
update. The best thing since sliced bread" (January issue of 80 
Microcomputing). One drive and 32K required. INDEX $19.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step through any Basic or machine lan- 
guage program one instruction at a time, and see the address, 
hexadecimal value, Zilog mnemonic, register contents, and step 
count for each instruction. The top 14 lines of the video screen are 
left unaltered so that the "target program" may perform its display 
functions unobstructed. STEP80 will follow program flow right into 
the ROMs, and is an invaluable aid in learning how the ROM 
routines function. Commands include step (trace), disassemble, 
run in step mode at variable step rate, display or alter memory or 
CPU registers, jump to memory location, execute a CALL, set 
breakpoints in RAM or ROM. and relocate to any page in RAM. The 
display may also be routed to your line printer through the device 
control block so custom print drivers are automatically supported. 
STEP80 $16.95 



4 SPEED OPTIONS FOR YOUR TRS-80! 

The SK-2 is the most versatile clock modification available for the 
TRS-80. Speeds may be switched between normal, an increase of 
50%, or a 50% reduction; selectable at any time without interrupt- 
ing execution or crashing the program. Instructions are also given 
for a 100% increase to 3.54 MHz, though the TRS-80 is not reliable 
at this speed. The SK-2 may be configured by the user to change 
speed with a toggle switch or on software command. It will au- 
tomatically return to normal speed any time a disk is active, re- 
quires no change to the operating system, and has provisions for 
adding an LED to indicate when the computer is not at normal 
speed. It mounts inside the keyboard unit with only 4 necessary 
connections for the switch option (switch not included), and is 
easily removed if the computer ever needs service. The SK-2 
comes fully assembled with socketed IC's and illustrated instruc- 
tions SK-2 $24.95 

RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature print formatting package featuring 
user defineable line and page length (with line feeds inserted 
between words or after punctuation), screen dump, and printer 
pause control. The serial version allows baud rate selection from 
the keyboard. In addition, printing is done from a 4K expandable 
buffer area so that the LPRINT or LLIST command returns control 
to the user while printing is being done. Ideal for Selectric or other 
slow printers. Allows printing and processing to run concurrently. 
Please specify PARALLEL or SERIAL (RS-232 interface) version. 
SPOOLER $16.95 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of ANY tape written for Level II. They may 
be SYSTEM tapes (continuous or not) or data lists. The file name, 
load address, entry point, and every byte (in ASCII format) are 
displayed on the video screen. CLONE $16.95 

MACHINE CODE FAST FOURIER TRANSFORM 

This complete package includes 3 versions of the machine lan- 
guage FFTASM routine assembled for 16. 32, and 48K machines. 
a short sample Basic program to access them, a 10K Basic pro- 
gram which includes sophisticated interactive graphing and data 
manipulation, and a manual of instructions and examples The 
machine language subroutines use variables defined by a support- 
ing Basic program to make data entry and retrieval extremely fast 
and easy for custom implementation. They perform 20 to 40 times 
faster than their Basic equivalent (256 points in 12.5 seconds), and 
require less than 1550 bytes of memory FFTASM 49.95 



FOR THE MODEL II 
LYNC 

from Midnight Software 

High level data communicationfor the Model II with CP/M. LYNC 
will send and receive any file with automatic error checking and 
retries. Either end may initiate file transfers, and multiple files may 
be sent with wildcard filenames. Remote or local directories may 
be called from within the program Allows full protocol, non- 
protocol, and real-time conversation modes. May be used over 
phone lines at 300 baud or direct to another computer at up to 9600 
baud Also available for other CP/M computers LYNC $95.00 



MUMFORD 
MICRO ■ 
SYSTEMS 



ORDERING: Complete satisfaction is guaranteed or a full refund will be made. All Model I 
programs are shipped on cassette unless $5 is included for a formatted (no system) disk. 
Include $1 postage and handling. California residents add 6% sales tax. Visa, Master- 
charge and COD orders accepted. 

Box 435-E Summerland, California 93067 (805) 969-4557 



^■Reader Sen/ice— see page 22t> 
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(158 asPRiMrweftcciGoaBtteee 

1168 IF(R$= a R ( )OR(M= a C a )THENQ06UB62888:(iOT058B8 

4178 G09JB61888:GOSlfi68888:GOT04168 

3888 CL5:PRIKT8784>STRINGI(64,131) 

3188 POM55:SK=8 

3118 PRINT8695, '*', :PRINTK3S. " '; ;G0T05138 

5128 PRINT8695,* ■; :PRINT8635, a » a > 

5138 PRINT«PO.TE$; :PRINT*554,CC$; :KH>0+i 

3146 IFPO>583T»€H516e 

3158 SM=SH*1:1FS»D1T»B6M=8:(i0T05118ELSE5128 

3168 PRINT8mCH&<38); :PRINTK64,CHR*<38); ;PR1NT862&CHR«<38); :PRINT869&CHR$(38>i 

5288 PO=338:SW=8 

5218 PR1NT8695, '«•; :PRINT863fi ' "j :G0T05238 

5228 PRINT8695. ■ \ PRINT8635, •*•; 

5238 PRINTH>aHH*; :PR1KT«54,CC*; :PO=PO+i 

5248 IFP0>378THEN5388 

5258 SH=SM:IF9OlTHEN9W:(OT052i8ELSE5228 

5388 CLS:F0RX=88TO127:F(3RV=21TO4?:Sn(X,V):«XTV,X 

5382 FORX=98T091:FORV=28T022:RESET(JCV):NEXTY,X 

5384 F0RX=94TO95 : F0RV=21T022 : RESEKX, V) : NEXTY, X 

5386 F0RX=98T8117 : F0RV=21TQ28 : RESEKX, V) : NEXTY, X 

5388 FCRX=128T0121.FORY=2iT()22:RESEKX,Y):NEXTY,X 

5318 FCRX=124T0125:FORV=21T022:RESCT(X,V):»CXTV,X 

5312 FORX=98T099:FORV=34T035:RESCT(JCV):KXTV,X 

5314 FCRX=U6TOU7:F0RV=39TO48:RESET<X,V):fCXTV,X 

5316 FORX=118T0122:FORV=15T016:SET(X,V):«XTV,X 

5318 F0RV=17TQ28:SEK12ZV):NEXT 

5338 S=l G0SUB688B8 IF(f»= ,l C')0R(fil= > B')0R(R»='F a )H€NGOSUB62888.GOTO5488 

5348 GOSUB6ie88:GOSUB68888.G0T05338 

5480aS.SEK50,0).SEK5L8):FORX^O49:SF<:U):NEXT:SCT^ 

,3). NEXT 

5416 SET(56,3).F0RX»37TO4e.SET<X,4) HEXT;SET(56,4):Srr(57,4) 

5428 FHGW4T036 : SETGC 5) : NEXT . SEK58, 5) : SEK59, 5) ; F0RX=31TO33 . SEKX, 6) : NEXT 

5438 SEK60, 6) . SEK6L 6) . FM&W8T038 . SEKX, 7) : NEXT . SEK62, 7) : SEK6X 7) . FORX=22T024 : SEKX, 8) ; NEXT.SEK26,8):SEK27,8) 

5448 F0RX=68T066 . SEKX, 8) . NEXT . SEK2L 9) ; FORX=25T042 . SEKX, 9) : NEXT . F0RX=52TO59 . SCT<X,9).NEXT.FCRX=67T071.SEKX,9):NEXT 

5458 SEK28.18) : SEK27, 18) : FORY=18T014 . SEK38, V) ; NEXT . F0RX=49T051 : SEKX, 18) : NEXT ; SEK55, 18) : SEK7M8):SEK73,i8);SEKi9,ll);SEK2e, 

ll):SEK26,ii) 

5468 F0RX=46TO48 : SEKX, 11) : NEXT . SET<74, 11) : F0RX=28TO25 : SEKX, 12) : NEXT : F0RX=42TO45 : SEKX, 12) ; NEXT . F0RX=63T065 : SEKX, 12) : NEXT 

5478 SEK72, 12) : SEK74, 12) ; SEK22, 13) SEK4L 13) : FORX=55T057 : SEKX, 13) : NEXT ; SET(68,13):SET(62>13):FORX=65T067:SET(X>13):NEXT 

5488 SEK7L 13) : SEK73, 13) : F0RX=37TO48 : SEKX, 14) : NEXT : SEK47,14) : SEK53, 14) : SEK54, 14) : FCRX=57T059;SEKX,14);NEXT:SEK61,i4) 

5498 FORX=68T078 . SEKX, 14) : NEXT . SEK72, 14) : SEK37,15) : SEK39, 15) : SEK46, 15) : SEK4& 15) : SEK49,15):SEK5i,i5):SEK52,15):SEK6i,15):S 

EK7Z15) SETC7X15) 

5588 SEK38, 16) : SEK45, 16) . SEK58, 16) . SEK66, 16) : SEK67, 16) : SEK74, 16) : SEK75, 16) : SEK82, 12) : SET(8L13):SET(8L14):FORV=13T016:SET(8 

3,Y):NEXT 

5518 SEK79,15) : SEK88, 15) : SEK78, 16) : F0RX=35TO37 ; SEKX, 17) . NEXT : SEK44, 17) : SEK64, 17) : SETC65, 17) : F0RX=49T05i: SEKX, 17): NEXT :F0RX=68 

T078.SEKX,i7):NEXT.SEK76,17):SEK77,17) 

5528 SEK82, 17) :SEK4Z 18) SEK43,i8):SEK54, 18) :F0RX=71T075.SEKX, 18) :NEXT:SEK88, 18):SEK81,18):SEK36, 19) :SETC?> 19) :SEK4L 19) :F 

0RX=45T048.SEKX, 19) .NEXT.SET(54, 19) 

5538 F0RX=57T068 . SEKX, 19) . NEXT . F0RX=63T078 . SEKX, 19) : NEXT . SET<78, 19) : SEK79,19) : SET(36 < 28):SET(4e,28):FORX=44T049.SET(X,28):NEXT.SE 

T<53i 20) .SEK5& 20) :SET(6L 28) .SEK62, 28) 

5548FORXi7CT(^.Sn<X,2B>.NEXT.SCT<8fc20>.F 

K8L21).3EK33,22).SEK4L22) 

5558 F«X*53T035.SET<aj 22). NEXT F0RX-=57TCC9.SET(^ 22). NEXT. FORX^63TO70: SCT<A,22).NDff.SET(82.22).SET<34,23).SET(35i23>.SET(42,23).F0 

RX=50TO52 . SEKX. 23) . NEXT . SEK66, 23) . SEK68, 23) 

5568 SEK82, 23) . SEK34, 24) ; F0RX=36T039 : SEKX, 24) : NEXT . SEK42, 24) : F0RX=45T049 : SEKX, 24) : NEXT : F0RX=61T065 : SEKX, 24) . NEXT . SEK68, 24) : FO 

RY=24T026.SEK83,V).NEXT 

5578SEK35,25).SEK36,25).FCrc^T043.SEKX,25).N^ 

EXT 

5580 FO&46T056. SEKX, 26) : NEXT . FORX=61T065. SEKX, 26) .NEXT . FORX=42T045: SETCX, 27) . NEXT :F0RY^27T033 . SEK84, V) : NEXT : SEK43, 28) : SET (44, 2 

9) . SEK45, 38) :SEK46, 31) :SEK47, 31) 

5598 SEK47, 32) . SEK4& 32) . SEK82, 33) . F0RY^34TO42 : SEK88, V) : NEXT . SEK82, 36) . SEK8L 35) ; F0RV=34T036:SET(83,V):NEXT.SET(8L38):SET(52i 

31) . SET<5L 32) . SEK52, 32) : F0RX=49T05i . SEKX, 33) . NEXT . SEK53, 33) 

5594 SETC5L 34) . SET(54, 34) . SET(55, 35) . SEK56, 36) . SEK57, 37) . SEK58, 37) . F0RX^59TO6i . SEKX. 38) .NEXT . F0RX^62T064 . SEKX, 39) NEXT . F0RX^64 

TO67.SETu,40),NEXT 

Program continues 
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5596 FORX^68T07i . SETtiw 41) . NEXT . F0RX-72T075 . SEKXi 42) .NEXT . F0RX^76T088 . SET(X, 43) . NEXT . SET(8L 44) 

5660 &OSUeb0000.IFfl^ ,, £"THENGOSUBb2000.GOTO5806 

5700 GOSUB61000.GOTO5400 

5800 «j«HR$<i88)KHRI<ia)*CHRI<i89)*CHR$<i88)*STRlNGI(2i i40)+CHR*<26)+STRING*<&24) 

5810 MGMW+CHR*a76)+STRING*G, 191)+CHR$<i35HSTRIN6*(2, i31)+CHR*(26HSTRING*C12, 24) 

5820 HG$=HGI+CHR*(i60)+CHRJ(i84)*CHRJ(188)*STRINGI(4, M)KHR*(i59)+(»$(129)+CHR*(26)+STRING*<i3, 24) 

5838 NBI=flG$+C«W(176)>CHRI(i88)*a«$(190)+5TRIN(il(7, m)+CHR$<135)+CHR*(26)+STRING*(i2,24> 

5840 MGI=HG*+CHR»(i76)+CHR$(i90)*STRINGI(10, 191HSTRINGK3, 188)+CHR$(i32)+CHR$<26)+STRlNG$<19i 24) 

5850 NGI=HG*+CHRI( 176)+CHR*<188) +STRINGK10. 191>+CHR*(1I5)+STRING*(5, 13i)+CHR$<129)+CHR$<26)+STRING*<22, 24) 

5860 MG*=HG*+0*$<i76)+af *<188)+STRING*<il, 19D+CM?*(i59)+C»»(129)*CHR*<26)+STRING$(i& 24) 

5878 HG$=HG$+CHR$<176)+CHRI(188)*STRING$(13il91)+CH»(i35) 

5880 Mi$<HR*<i6e)KHR*<i84)KHR$<198)*STRING$<6, 143)KHR$<191)+CHR$<159)+STRIN(i*<5, 143)+CHR*<191)+CHR*(159)4CHR$(133)+CHR*(26)+STRI 

NG*<25,24> 

5890 ^llWtt$4STRINGI(i J 176)+C}«$<184)•K}«$(190)+al»(143)+CHR$(131)+• a 4CH»<191)*C»Ki8i)*' a 4CHR*<19i>+CHR$<i81> 

5988 OS : PRINT841& N6I; : PR I NTW83, Hlli 

5910 R£Sn(67,19):X=422 

5928 W=IW(EV$:IFRI= , D , OWtt= , H , BCNGO9JB62000:GOTO6800 

5925 IFMO""THENGOSUB618B0:QOTO598e 

5938 PRINTM4& '?'; PR1NTRC Vj :F0RDE=lT0ie:l£XT:PRlHTI448» ■ '; :PRIOT«t ■ '; :F0RK=iTO18:NEXT 

5948M+1 

5958 IFX>434THEKX=422 

5968G0T05928 

6888 a5.X=86.FORQ=}a099:SET(a28):SET<Q,21):NEXT 

6818 X=X-4:FORQ=XT099:SET(Q,22):SET(0,23):NEXT 

6828 X=X-4 :F0RQ=XT099. SET <Q, 24): SET (0,25). NEXT 

6838 X=X-4:FORQ=:XT099.Sn<Q. 26): SET (0,27) :NEXT 

6835 X=X-4.FORQ=XT099:SET(Q,28):SET(6,29):NEXT 

6848 GOSU868888:IFR$= l S < THENGOSUe62880:GOTO6108 

6858 GOSUB61088GOTO6040 

6180 CLS:PRINTW65, "1"; PRINT8232, '2'i :PRINTf36L *Tl :PRINTM8B, '4'; :PR1MT«5B, '5"; :PRIITTK8& Vi 

6118 PRINT8535, Ti :PRINT846a "8"; PRIHTI339. "9"; :PRHfT82i2, "18"; :PRINT!15i, "li'j PR1MTI94, 'i2\ : 

6128 F0RX=61T075 : SET(X, 16) : NEXT : F0RV=6T015 : SEK6L V) : (EXT 

6138Sn(68,7):SET(59,8):SET(6Z7):SET(6X8):Sn(7114):SET(74,15):SET(74,17):SET<73 < 18) 

6148 FORX=36T086 : SETOC 2) : SETOC 38) : NEXT ; F0RV=38T02STEP-1 : SETG4, V) : SETC35, V) : SET<86, V) : SEK87, V) :NEXT 

6158 GCSUB68080:IFR*= a C a C4^ a H a THENC«SUB62088:GOTO62e8 

6168 GOSUB61800GOTO6150 

6280 aS:F0IWM8TOi27:Sn<X,n):Sna33):NEXT:F0RV=^^ 

6218 F0RX=115T0122 : SETOC 13) : SETOC 18) : NEXT : F0RTO4T017 : SETU15, V) : SET<122, V) : NEXT 

6228 PRINT8378, • 15", :PRINTK8Z 'CLARK KENT 1 , PRINT8346, "DfllLV PLAfCT"; :PRINTM18» ftTROPOLIS*. :PRWTW87. "SANTO CUUS"; PRINTK51, ■ 

RD1 80X1", :PRINT8615, "NORTH POLE", 

6238 GO9je60088:IFR$= 1 P a (]RR$= > L > ORft»= > H 1 THENGOSUB62888:6OTO6388 

6248 G0Slfi6ie88:F0RX=48T0127:SET()C33):NEXT:G0T06238 

6380 as . Y*=STR1 NGK16. 176)+STRING*<5, 186>+CHR$(144) : PRINTW6& VI 

6318 GOSUB68880:IFR$= > B l (l»l= a T a TNENGOSlfi62888:GOTO6488 

6328 G0SUB61888:(j0T06318 

6488 END: ' DELETE THIS LINE IF VOU MRKT RN ENDLESS LOOP 

6418 G0T0108 

58880 DEFINTR-Z: CL5. PRINTCHRK23) : PRINT" HON* DAD:' 

58818 PRINT. PRINT" INSTRUCT CHILD TO HIT THE a :PRINT"RPPROPRIflTE KEY. IF fi a 

58828 PRINT-TRAIN APPEARS HE SHOULD HIT'PRINT'THE LETTER T HHEN a :PRINT a fl QUESTION HARK FLASHES. ■ 

58838 PRINT. PRINTHIT ENTER WHEN CHILD IS READY. ■ 

58048 A$=INKEY$:IFfl*= ,,a THEN5e048ELSEaS. RETURN 

54888 BREAK 

68080 DUHHV^INKEVI 

68885 R$=INKEY*:PRINTM48, '?"; .F0RX=1T0188.NEXT 

68010 PRINT0448," B j .FORX=iTOi80.NEXT.IFft$="THEN60085ELSERETURN 

61800 SETU& 41) . SET(17, 40) . SET(26, 40) : SET(27, 41) F0RX=18T025 : SETOO 39) .NEXTX 

61005 SET<2L37).SETa7,35):SET(18,35):SET<24,35).SCT(25,35):TO^ HGflIN a , 

61888 IFS=1THENS=8:FORX=8T038.FORV=35T042.RESET(}OV).NEXTV,X. RETURN 

61810 FORDE=0TO880 NEXT . PRINT0704, CHRK30) . PRINT0768, CHRK38) . PRINT8832, CHR*<30) . PRIHT8896, CHR*<30) . PRINT0968, CHRK30); 

61820 RETURN 

62880 F0RX=18TQ25 . SET(X, 40) . NEXT . SETQ7, 39) : SETQ6, 38) . SETC26, 39) . SET(27i 38) 

62805 SET(2L37).SET(i7,35).SET(18,35).SET(25,35):SET(26,35) 

£2816 PR1NT0904, "RIGHT 1 VF(JRW=iTCG00.NEXTPRINT8784,CHra<30>.PRM^ 

62028 RETURN 
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THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80 ™* MICROCOMPUTER 



SOFTWARE 

EOR TRS-80 ' 

OWNERS 



H 



CQMPLITRQNICS 

MONTHLY NEWSMAGAZINE 

Practical Support For Model I & II 



MONTHLY 

NEWSMAGAZINE 

FOR TRS-M" 

OWNERS 



• PRACTICAL APPLICATIONS 

• BUSINESS 

• GAMBLING • GAMES 

• EDUCATION 

• PERSONAL FINANCE 

• BEGINNERS CORNER 

• NEW PRODUCTS 

• SOFTWARE EXCHANGE 

• MARKET PLACE 

• QUESTIONS AND ANSWERS 

• PROGRAM PRINTOUTS 
AND MORE 






PROGRAMS AND ARTICLES PUBLISHED IN OUR FIRST 12 ISSUES 
INCLUDE THE FOLLOWING 

A COMPLETE INCOME TAX PROGRAM (I ONG AND SHORT FORM I 

INVENTORY CONTROL 

STOCK MARKET ANALYSIS 

WORD PROCESSING PROGRAM (FOR DISK OR CASSETTE) 

I OWER CASE MODIFICATION FOR YOUR VIDEO MONITOR OR PRINTER 

PAYROLL (FEDERAI TAX WITHHOLDING PROGRAM) 

EXTEND IhDIGIl ACCURACY IO TRS 80" FUNCTIONS (SUCH AS 

SQUARE ROOTS AND TRIGONOMETRIC FUNCTIONS) 

NEW DISK DRIVES FOR YOUR TRS 80" 

PRINTER OPTIONS AVAII ABI E FOR YOUR TRS 80" 

A HORSE SELECTION SYSTEM"*ARITHMETIC TEACHER 

COMPLETE MAILING LIST PROGRAMS (BOTH FOR DISK OR CASSETTE 

SEQUENTIAL AND RANDOM ACCESS) 

RANDOM SAMPUNG***BAR GRAPH 

CHECKBOOK MAINTENANCE PROGRAM 

LEVEI II UPDATES"*! FVFI II INDEX 

CREDIT CARD INFORMATION STORAGI Fll F 

BEGINNER'S GUIDE TO MACHINE I ANGUAGI AND ASSEMB1 Y 

1 ANGUAGE 

I INF. RENUMBERING 

AND CASSETTE TIPS. PRCXiRAM HINTS. LATEST PRODUCTS 

COMING SOON (GENERAL LEDGER. ACCOUNTS PAYABLE AND 

RECEIVABLE. FORTRAN 80. FINANCIAL APPLICATIONS PACKAGE. 

PROGRAMS FOR HOMEOWNERS. MERGF TWO PROGRAMS. 

STATISTICAL AND MATHEMATICAI PROGRAMS (BOTH 

ELEMENTARY AND ADVANCED) AND 



WORD PROCESSING PROGRAM (Cassette or Disk) For writing letters, text, mailing lists, etc , with each new subscriptions or renewal 

LEVEI- II RAM TEST (Cassette or Disk) Checks random access memory to ensure that all memory locations are working properly 

DATA MANAGEMENT SYSTEM (Cassette or Disk) Complete die management (or your TRS 80" 

CLEANUP (Cassette or Disk) Fast action Maze Game 

ADVEN rURE (Cassette or Disk) Aikenture «fl b\ S. ott Adams (From Adventureland International) 



F I*EE 



rRSW'ISA IKAMtMAKK of f ANDY CORP 



SEND FOR OUR NEW 48 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS 80" PROGRAMS AVAILABLE ON 
1 CASSETTE AND DISKETTE) $2 OR FREE WITH EACH SUBSC RIPTIONS OR SAMP LE ISSUE _ ! 



•CQMRJTRQNICSi 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 




<5ft\ 24 ORDER 
LINE 



(914) 425-1535 



ONE YEAR SUBSCRIPTION $24 

TWO YEAR SUBSCRIPTION $48 

SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE 

<»1 July 1978 • »7 - January 1979 • »12 - June 1979 • »18 - January 1980) 




NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



NEW SUBSCRIPTION 

CREDIT CARD NUMBER 

SIGNATURE 

NAME 

ADDRESS 



RENEWAL 



NEW!!! 

MOD-II NEWSLETTER 
SlZ/ycar Cor 12 i— n— ) \ 



EXP DATE 



CITY. 



STATE . 



^ZIP 



ADD *fc YEAR (CANADA, MEXICO) ADD $12 YEAR AIR MAIL OilTSIDf OF U 5 A . CANADA St MEXICO ■ 



130 • 80 Microcomputing, September 1980 



H 



CQIYIPLITRQNICS 



N 



• • • EVERYTHING FOR YOUR TRS-80 . • • 

TRS-80 Is a trademark of lh«- H.utlo Shack Division of Tandy Cor|M>rallon 

* All Orders processed within 24-Hour s 

* 30-Day Money Back Guarantee on all Software (less a $3 penalty for handling) 
•k 10-Day Money Back Guarantee on Disk Drives and Printers PLUS 120-Days Free Service 



»»%»»»»» y »»»% 



• LEARNING LEVEL II By David uen 

The Original Author Ol The Level Manual 
A Step By Step approach to Learning Level II 
especially geared to new TRS-80" Owners 

$15.95} 



TRS-80" DISK ANO OTHER MYSTERIES 
Over 100 pages o' indespensible information tor 
disk owners Learn to recover information from 
bad disks, how to make Basic programs unhstable 
and 12 more chapters of never published tips and 
information. Written by H C Pennington 
(For all Disk Owners) $22.50 



NEW SBSG BUSINESS SYSTEM FOR MODEL I 
OR MODEL II ■ IN STOCK 

- General Ledger 

- Accounts Receivable ] 

- Accounts Payable 

- Payroll 

- Inventory Control with Invoicing 

Each module can be operated individually or as a 

coordinated SYSTEM. Turn-Key error catching 

operation for beginners 

Complete manual and documentation 

accompany each program 

Minimum System requirements 2-Disk Drives 

for Model I 1-Disk Drive for Model II 

Each module can be formatted to span data 

on up to 4-Disk Drives 

Free 30-Day telephone consultation 

Call for complete specifications 

Model I Version $125 00 Per Module 

$495.00 Per System 
Model II Version $225.00 Per Module 

$995.00 Per System 



DATA MANAGEMENT SYSTEMS 

- DMS replace index cards or any data requiring 
long lists of information 

• TBS In-Memory Information System 

(For Cassette Systems) $39.95 

• TBS Disk Data Manager (Requires 1 or more disk 
drives) Set up fast random access, files in 
minutes Stores up to 320K of information on 4 
Drives Up to 10 fields and 255 characters per 
record. Supports upper and lower case RS-232 or 
TRS-232 Features complete editing $49.50 

• Personal Software CCA Data Management 
System Completely user oriented, menu drive, 
130 page Step By Step Manual Capable of 
inventory control, sorting data, reporting data in 
nearly any form (for reports and mailing labels) 
Sorts data by up to 10 fields for zip code, balance 
due. geographic location or whatever Prints 
reports with subtotals and totals automatically 
calculated. Fast random access $75.00 



FROM RACET COMPUTES 

• REMODEL-PROLOAD - Renumbers program 
lines, combines programs The only renumber 
program that will renumber the middle of a 
program Specify 16K, 32K or 48K Works with 
Cassette or Disk $34.95 

• GSF • Use in your Basic Programs for Instant 
Sorting (will sort 1000 items in 9 seconds) Other 
commands include Compress and Uncompress 
Data Duplicate Memory. Display Screen Controls 
and Fast Graphic Controls $24.95 
(For Cassette or Disk, specify 16K. 32K or 48K) 

• DOSORT - All G S F commands plus special 
Multiple Disk Sorting Routines $34.95 
(Specify 32K or 48K) 

• INFINITE BASIC • Adds 70 commands to your 
TRS-80" including Instant Sort. Matrix 
Commands, String Commands. Left and Righi 
Justification. String Centering. Simultaneous 
Equations. Upper and Lower Case Reverse and 
more (For Cassette or Disk) $49.95 

• INFINITE BUSINESS (Requires Infinite Basic) 
Eliminate Round-off error 127-Digit Calculation 
Accuracy. Insert New Elements in Sorted Arrays 
Automatic Page Headings. Footings and 
Pagination. Multiple Precision Arithmetic and 
more (For Cassette or Disk) $29.95 

• COPSVS - Copy Machine Language Programs 
(For Cassette Only) $14.95 

• DSM (Disk Sort Merge) $75.00 



FROM SMALL SYSTEM SOFTWARE 

• RSM-2 Machine Language Monitor $26.95 

• RSM-2D Disk Version ol RSM-2 $29.95 

• DCV-1 Converts Machine Language Programs 
from tape to dis* $9.95 

• AIR RAIO - The ultimate TRS-80" game converts 
your TRS-80" into a real time shooting gallery 

$14.95 

• BARRICADE - A fast pong style game $14.95 

• CPM • (For Disk Only) $150.00 

• TRS-232 INTERFACE - Interface with Software 
driver RS-232 printers to your TRS-80" $49.95 

• TRS-232 FORMATTER - Additional (optional) 
Software for TRS-232 owners Adds many printer 
commands to your TRS-80" $14.95 
(With purchase of TRS-232) $9.95 

• PENMOD - Use the Electric Pencil with RS s lower 
case modification $19.95 



FROM GALACTIC SOFTWARE 

• MAIL PAC - For Model I Disk Systems 

only $99.95 

Quick-sorting full user control over mailing list 
from Galactic Software 

• STOCK MARKET PAC $99.95 



ICQMPLiTRQNXCSi 



»*»T1 ■ *«rr>. *r«> i ./>■ t ri ■* ».» 4 




SO N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

HOURS: 9-5 

Monday thro Saturday 

48-Page Catalog $2 FREE With Any Order 

Order By Phone Or Mail 
Add $1 Per Order For Shipping Within UPS Areas 

Add $3 For COD. 

Add $3 For All Foreign And Non-UPS Shipments 

Add $3 For UPS Blue Label 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



FROM APPARAT NEW DOS • $99 95 

35 40 and 77 Track Versions available 

NEW DOS/90 (With variable record length files 

chainings and many other features $149 95 



FROM THE BOTTOM SHELF 

CHECKBOOK II (For Cassette or Disk) $39 95 

SYSTEM DOCTOR (A complete diagnosis of your 

TRS-80" Checks memory video cassette disk 

ROM and all other parts of your system) 

For Cassette or Disk $28.50 

CHECKBOOK REGISTER ACCOUNTING 

SYSTEM (Requires 2 disk drives) $75.00 
LIBRARY 100- 100 established business game 
and educational programs plus FREE I my 1'ilul 
all tor $49.50 

BASIC TOOL KIT - Lists all variables GOTO s 
and GOSUB's in your program $19.80 



SOUNDWARE - Adds sound to your TRS-80" 
Just plus it in $29.95 

Sample programs included 

TING TONG - Can be used with Sotmdware for a 
Sound version ot pong $9 95 



• VIC - The Cart» Visual Instructional 

Computer Program $19 95 

The Level II 16K Cassette is designed to teach 
beginners the Basics ot Machine Language and 
Assembly Language Programming See every 
Machine Language Instruction Display on your 
video VIC includes Step By Step 55 page manual 



VISTA VS0 OISK DRIVE - 

110K ol Storage $395 00 

Add $29 95 for Cable (Free with purchase ot 
2-Disk Drives) 10 day money back guarantee 



FROM HOWE SOFTWARE 

• MON-3 - Machine I anguage Programming for 
beginners MON-3 is a complete System Monitor 
with Users Manual $39.95 

• MON-4 - Disk Version ol MON-3 $49 95 



FROM MICROSOFT 

• LEVEL III BASIC $49.95 

Now Cassette owners can add Disk Commands 
to their TRS-80" without owning a Disk Drive 

• MICROSOFT DISK ADVENTURE $29.95 

• TRSDOS BASIC COMPILER $195 00 

Run Basic Programs up lo 15 times faster 



• NEC BUSINESS QUALITY PRINTERS 

(For MOD I or MOD II) $2,995 00 



THE ELECTRIC PENCIL 

Cassette 

Disk 

MOD-II Version 



$99.95 
$150.00 
$325.00 



HORSE SELECTOR II By Dr Hal Davis 

The TRS-80" version updated for the TRS-80" 
and originally reviewed in Systems and 
Methods $50.00 



wmamass 

FOR MOD-II OWNERS 



NEW MOD-II NEWSLETTER 

MOD-M Catalog Fr»« w subscription $12/y ear 

MAIL PAC $199.95 

MICROSOFT BASIC COMPILER 

$395.00 

MICROSOFT BASIC $325.00 

GSF SORT ROUTINE $50.00 

CP/M $170.00 
PEACHTREE BUSINESS 

SOFTWARE Call 

WORD STAR $495.00 



• Reader Service- see page 22*> 
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• ••EVERYTHING FOR YOUR TRS-80 ••• 



TR.S-no In a trademark of ihr Kactlo Shack Dlvlnlt 



if Tandy Corporation 




COORDINATED BUSINESS SYSTEMS 



SMALL BUSINESS 
SYSTEMS GROUP 



• EACH MODULE CAN BE OPERATED INDIVIDUALLY OR AS A COORDINATED SYSTEM. 

• TURN-KEY ERROR CATCHING OPERATION FOR BEGINNERS 

• FREE 30-DAY TELEPHONE CONSULTATION WITH SBSG 

• EACH MODULE CAN BE FORMATTED TO SPAN DATA ON UPTO 4 DISK DRIVES 

• COMPLETE MANUAL AND DOCUMENTATION ACCOMPANY EACH MANUAL 

• MINIMUM SYSTEM REQUIREMENTS - 2 DISK DRIVES FOR MODEL I ...1-DISK DRIVE FOR MODEL II 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices. In 
addition, it produces cash management reports. This system aids in tight 
financial control over all cash disbursements of the business Several 
reports are available and supply information needed for the analysis ot 
payments, expenses, purchases and cash requirements All A/P data feeds 
General Ledger so that data is entered into the system just once. These 
programs were developed 5 years ago for the Wang micro-computer and 
have been tested in many environments since then. The package has been 
converted to the TRS-80'" and is now a well documented, on-line, inter- 
active micro-computer system with the capabilities ot (or exceeding many 
larger systems. 



CAPABILITIES 



ACCOUNTS RECEIVABLE 

The objective of a computerized A/R system is to prepare accurate and 
timeley monthly statements to credit customers. Management can gener- 
ate information required to control the amount of credit extended and the 
collection of money owed in order to maximize profitable credit sales 
while minimizing losses from bad debts. The programs composing this 
system were developed 5 years ago, especially (or small businesses using 
the Wang Microcomputer They have been tested in many environments 
since then. Each module can be used stand alone or can feed General 
Ledger for a fully integrated system. 



PAYROLL 



Payroll invoices many complex calculations and the production of reports 
and documents, many ot which are required by government agencies. It is 
an ideal candidate for the computer. With this Payroll system m-house. 
you can promptly and accurately pay your employees and generate 
accruate documents/reports to management, employees, and appropriate 
government agencies concerning earnings, taxes, and other deductions. 
The package has been converted to the TRS-80" and is now a well 
documented, on-line, interactive micro-computer system with the capa- 
bilities of (or exceeding) many larger systems 

CAPABILITIES: 

* performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

* can handle salaried and hourly employees 

* employees can receive. 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

(Continued on next page) 



* menu driven; easy to use; lull screen prompting and cursor control 

* invoice oriented; everything revolves around the invoice; handles new 
invoice or credit memo or debit memo 

* invoice information recorded, invoice #, description, buyer, check 
register *, invoice date, age date, amount of invoice, discount (in %), 
freight, tax ($), total payable 

* transaction print and file maintenance procedures insure accuracy 

* flexible check calculation procedure; allows checks to be calculated for a 
set of vendors - or - for specific vendors 

* program prints your checks; contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back) 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• aging 

• check register report (to give an audit trail of checks printed) 

• vendor listing and vendor activity (activity of the whole year) 

* fully linked to GENERAL LEDGER; each invoice can be distributed to as 
many as five (5) different GL accounts; sysem automatically posts to cash 
and A/P accounts 



CAPABILITIES 



* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; invoices can be entered before ready for billing, when 
ready for billing, after billing or after paid 

* allows entry of new invoice, credit memo, debit memo, or change/delete 
invoice 

* allows for progress payment 

* transaction information includes: 

• type of A/R transaction 

• customer P.O. # 

• description of P.O. 

• billing date 

• general ledger account number 

• invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print and file maintenance procedures insure accuracy 

* customer statements printed; computer statements with your company 
letterhead can be purchased from SBSG 

* reports include; (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

* fully linked to General Ledger: will post to applicable accounts: debits A/R. 
credits account you specify 
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(PAYROLL CAPABILITIES CONTINUED) 

* employees can be paid using any combination of pay types (except, hourly 
cannot receive salary & salary cannot receive hourly) 

* special non-taxable or taxable lumpsums can be paid regularly or one time 
(bonus, reimbursements, etc) 

* health & welfare deductions can be automatically calculated for each 
employee 

* earnmgs-to-date are accumulated and added to permanent records; taxes 
are computed and deducted US income tax. Social Security tax, state 
income tax, other deductions (regular or one time) 

* paychecks are printed; computer checks with your company letterhead 
can be purchased from SBSG 

* calculations are accumulated for. employee pay history. 941A report. W-2 
report, insurance report, absentee report 

* fully linked to General Ledger Each employee's payroll information can be 
distributed to as many as (12) twelve different GL accounts, system 
automatically posts to cash account 



INVENTORY/CONTROL INVOICING 

• OVER 1000 ITEMS ON MODEL I 

• OVER 3000 ITEMS ON MODEL II 

• LOW STOCK ALARM 

• INVOICING DEDUCTS FROM INVENTORY 

• COMPLETE INVENTORY REPORTS 

• REORDER POINT REPORT 

• QUICK ITEM ACCESS 



CLIENT BILLING. STOCK CONTROL. DENTAL BILLING. COMMODITIES 
Medicare Medicaid billing also available 



MODEL I 
MODEL II 



$125 Per Module 
$495 Complete System 
$225 Per Module 
$995 Complete System 



WE ARETHEONLYSOFTWARECOMPANYTHATOFFERSAREFUND 
WITHIN 30 DAYS ON ALL SOFTWARE (H & E COMPUTRONICS 
MONTHLY NEWSMAGAZINE SUBSCRIBERS ONLY).. WE DO 
CHARGE A $3 PENALTY TO COVER POSTAGE AND HANDLING 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data from 
other accounting subsystems (A/R, A/P. Payroll, direct posting) in an 
accurate and timely manner Maior reports include the Income Statement 
and Balance Sheet and a "special'' report designed by management The 
beauty of this General Ledger system is that it is completely user formatted 
You "customize" the account numbers, descriptions, and report formats to 
suit your particular business requirements These programs were de- 
veloped 5 years ago for the Wang micro-computer and have been tested in 
many environments since then. The package has been converted to the 
TRS-80" and is njw a well documented, on-line, interactive micro- 
computer system with the capabilities of (or exceeding) many larger 
systems 



CAPABILITIES 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1.750 transactions may be entered via 

• direct posting, done by hand; validated against the account file 
before acceptance 

• external posting, generated by A/R. A/P Payroll or any other user 
source 

* data is maintained and reported by; 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more 

* user formats reports with the following designed as you wish 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven; easy to use; full screen prompting and cursor control 



iCLMMBDMCSi 

50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 




HOUR 
24 ORDER 

LINE 
(914) 425-1535 




PLEASE SEND ME: 

MODEL I $125 PER MODULE 



$495 COMPLETE SYSTEM 

MODEL II $225 PER MODULE 

$995 COMPLETE SYSTEM 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIOE OP N.Y. STATE) 

(800) 431-2818 



CREDIT CARD NUMBER 
SIGNATURE 



EXP DATE- 



NAME 



ADDRESS 



_CITY_ 



-STATE^ 



ADD t6 YEAR (CANADA MEXICO! • ADD H2/YEAR AIR MAIL - OUTSIDE Of U S A CANADA I MEXICO "' 



-ZIP- 



* Reader Service— see page 226 



80 Microcomputing, September 1980 • 133 



CQIYIPLJTHQMICS 
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C. 



• • • EVERYTHING FOR YOUR TRS-80 • • • 

TRS-SO la a trademark of Ihr Radio Shark Division of Tandy Corporation 

100 sure* : MASTER PAC 100 

ttHOGH^^ [ _ «nd EDITION CCOMPLETEL Y *™ggP) 

FOR YOUR TRS-80™ LEVEL II MICROCOMPUTER 



ALL ON CASSETTE OR DISKETTE 



BUSINESS AND PERSONAL FINANCE 
1. CHECKBOOK MAINTENANCE 

2 TIME FOR MONEY TO DOUBLE 

3 FEDERAL FICA & WITHHOLDING TAX 
3. COMPUTATIONS 

4 HOME BUDGET ANALYSIS _ — 
ANNUITY COMPUTATION ..elWCSS 
UNIT PRICING ttljain*' 
CHANGE FROM PURCHASE "* 
NEBS CHECK PRINTER 
DAYS BETWEEN DATES 
MORTGAGE AMORTIZATION TABLE 

11. INVENTORY CONTROL 

12. PORTFOLIO VALUE COMPUTATIONS 
13 VALUE OF A SHARE OF STOCK 

14. SALES RECORD KEEPING SYSTEM 

15. FUTURE VALUE OF AN INVESTMENT 
16 EFFECTIVE INTEREST RATE (LOAN) 

17. PRESENT VALUE OF A FUTURE AMOUNT 
18 RATE OF RETURN VARIABLE INFLOW 

19. RATE OF RETURN CONSTANT INFLOW 

20. REGULAR WITHDRAWAL FROM INVESTMENT 

21. STRAIGHT LINE DEPRECIATION 

22. SUM OF DIGITS DEPRECIATION 

23. DECLINING BALANCE DEPRECIATION 
24 BREAK EVEN ANALYSIS 

25. SALVAGE VALUE OF INVESTMENT 

26. PAYMENT ON A LOAN 

27. FUTURE SALES PROJECTIONS 

28. CREDIT CARD FILE 

29. ECONOMIC ORDER QUANTITY (EOQ) 
INVENTORY MODEL 

30. VALUE OF HOUSE CONTENTS 

31 TEXT EDITOR 

32 MONTHLY CALENDAR 

33 DAY OF WEEK 

34. CASH FLOW VS. DEPRECIATION 

35. COMPLETE MAIL SYSTEM 
36 INTEREST RATE ON A LEASE 



STX 



TiSTlCS 






STATISTICS AND MATHEMATICS 

37 RANDOM SAMPLE SELECTION 
38. ANGLO METIC CONVERSION 

39 MEAN, STANDARD DEVIATION. 
MAXIMUM AND MINIMUM 

40 SIMPLE LINEAR REGRESSION 
41. MULTIPLE REGRESSION ANALYSIS 

42 GEOMETRIC REGRESSION 

43 EXPONENTIAL REGRESSION 

44 SIMPLE MOVING AVERAGE 
45. SIMPLE T TEST 
46 CHI SQUARE TEST 

47. NORMAL PROBABILITIES 

48. BINOMIAL PROBABILITY 

49 POISSON PROBABILITY 

50 MATRIX ADDITION AND SUBTRACTION 

51 MATRIX TRANSPOSE 
52. MATRIX INVERSE 

53 MATRIX MULTIPLICATION 

54. SOLUTION OF SIMULTANEOUS EQUATIONS 

55 QUADRATIC FORMULA 

56. LINEAR EQUATION SOLUTIONS 

57. ROOT HALF INTERVAL SEARCH 
58 ROOTS OF POLYNOMIALS 

59. ROOTS NEWTON'S METHODS 

60. PRIME FACTORS OF INTEGER 

61 LEAST COMMON DENOMINATOR 
62. RADIAN DEGREE CONVERSION 

63 NUMERICAL INTEGRATION 

UTILITIES 

64 QUICK SORT ROUTINE 

65 PROGRAM STORAGE INDEX 
66. MULTIPLE CHOICE QUIZ BUILDER 
67 FORM LETTER WRITER 

68. SHELL SORT 

69. CASSETTE LABEL MAKER 

70. CODES MESSAGES 

71 MERGE TWO FILES 

72 SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73. DRAWS BAR GRAPH 

74 DRAWS HISTOGRAM 

75 MOVING BANNER DISPLAY 

GAMBLING AND GAMES 

76 RANDOM SPORTS QUIZ 
77. GOVERNMENT QUIZ 

78 HORSE RACE 

79 MAGIC SQUARE 

80 ARITHMETIC TEACHER 
81. HIGH LOW GAMBLE 

82 UNSCRAMBLE LETTERS 

83 HANGMAN 

84 GAME OF NIM 
85. RUSSIAN ROULETTE 

86 ROULETTE GAME 

87 ONE ARMED BANDIT 

88 HIT THE TARGET 

89 WALKING DRUNK 

90 STATE CAPITAL QUIZ 

91 TICTACTOE 

92. DICE GAME 

93. LUNAR LANDAR GAME 

94. BIORHYTHM 

95. HORSE SELECTOR (CLASS CALCULATOR) 

96. RANDOM DICE ROLL 

97 RANDOM ROULETTE ROl.l 

98 RANDOM CARD DEALER 

99 GUESS THE NUMBER 
100 WHITE OUT SCREEN 



oX MBLn< e 



USE* 



■■"■255S* 



GUARANTEED SATISFACTION 

WE ARE THE ONLY SOFTWARE COMPANY THAT OFFERS A REFUND WITHIN 30 DAYS ON ALL SOFTWARE (H & E COMPU 
TRONICS INC. MONTHLY NEWSMAGAZINE SUBSCRIBERS ONLY). WE DO CHARGE A $3 PENALTY TO COVER POSTAGE 
AND HANDLING. 



•CQMPLrmQNXCS? 

SO N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

□ MASTER PAC 100 CASSETTE VERSION $59.95 

D MASTER PAC 100 DISKETTE VERSION $59.95 

D MASTER PAC 100 (MODEL II DISKETTE VERSION) $99.95 




HOUR 

ORDER 

LINE 



& 24 

(914) 425-1535 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 

* All order* processed within 24-Hourn 
it 30-Day money back guarantee on all Software 
(?•!• a $3 penalty for handling) 



CREDIT CARD NUMBER EXP. DATE. 



SIGNATURE. 



NAME 



ADDRESS . . . 



CITY STATE . . . 

*** ADD 12 FOR POSTAGE AND HANDLING ($4 OUTSIDE OF THE U.S.A.) 



ZIP 



**A m Oft limrof.nmAiilin/1 Cr,ntr>rr> p>t%r 10A/1 



•campuTHQNics; 

EVERYTHING FOR YOUR TRS-80 

TRS-SO Is • trademark of the Radio shark Division of Tandy Corporation 



MICROSOFT BASK COMPILER 

With TRS80"" BASIC Compiler, your Level II programs will run at record speeds! 
Compiled programs execute an average of 3- 1 times faster than programs run under 
Level IL Make extensive use of integer operations, and get speeds 20-30 times faster 
than the interpreter. 

Best of ail. BASIC Compiler does it with BASIC, the language you already know. 
By compiling the same source code that your current BASIC interprets, BASIC 
Compiler adds speed with a minimum of effort 

And you get more BASIC features to program with, since features of Micro- 
soft's Version 5.0 BASIC interpreter are included in the package. Features like the 
WHILE. WEND statement long variable names, variable length records, and the CALL 
statement make programming easier. An exclusive BASIC Compiler feature lets you 
call FORTRAN and machine language subroutines much more easily than in Level II. 

Simply type in and debug your program as usual, using the BASIC interpreter. 
Then enter a command line telling the computer what to compile and what options 
to use. 

Voila! Highly optimized, Z-80 machine code that your computer executes in a 
flash! Run it now or save it for later. Your compiled program can be saved on disk for 
direct execution every time. 

Want to market your programs? Compiled versions are ideal for distribution. 
You distribute only the object code, not the source, so your genius stays fully protected. 

BASIC Compiler runs on your TRS80" Model I with 48K and disk drive. The 
package includes BASIC Compiler, linking loader and BASIC library with complete 
documentation $195.00 



1980 INCOME TAX PAC 

Completely Revised - Latest Tax Tables ■ Fully Tested ■ Complete Manual and Docu- 
mentation. The new version of the Income Tax Pacs are full of error catching codes 
making it impossible to make an error. Follow the simple Step By Step procedure that 
makes tax preparation simple. 

INCOME TAX PAC A {•19.95.. .Cassette) 

For Level II 16K Cassette Only 
Does Form 1040 and 1040A 

- Schedule A itemized deductions 

- Schedule B interest and dividends 

- Output to video display 

■ Schedule TC tax computation 

INCOME TAX PAC B M9.95...Caasette or Diskette) 

For Level II 1 6K with or without printer.. .cassette or disk has all features of Income Tax 
Pac A Phis works with or without line printer. 

■ Formats Form 1040 and 1040A for standard tax forms 

- Schedule C income from a personally owned business 

- Form 2106 employee business expense 

PROFESSIONAL INCOME TAX PAC C 199.95.. .Diskette 

For Level II 32K with disk and printer (optional) 

Has all features of Income Tax Pac B Plus automatic memory storage for income tax 

preparers. 

- 22 additional schedules and forms 

■ Formats forms for individual or tractor feed printing 

MOD D CPA VERSION $199.95 



WINS 



AVERAGE PROFIT 



aaAmAf rTEED PROrii gj^ p^^^g 32% AT ALL TRACKS- 197S 

SHOWS 

THE HORSE SELECTOR II (PLATS) (By Dr. Hal Davis #50.00 

New simplified version of the original Horse Selector. The first Horse Selection System 

to actually calculate the estimated odds of each horse. 

HIGHER PROFTTS (OVER 100%) POSSIBLE THROUGH SELECTIVE BETTING ON: 

• Rates each horse in 10 seconds. 

• Easy to follow rules. 

• Can be used with any Apple II Computer. 

• 100% money back guarantee (returned for any reason). 

• Uses 4 factors (speed rating, track variant distance of the present race, distance of 
the last race). 

• Using the above factors, the Horse Selector calculates the estimated odds. BET 
on horses whose actual payoff (from the Tote Board or Morning Lines) is higher 
than payoff based on estimated odds. 

• Using the above factors, the Horse Selector calculates the estimated odds. BET 
on any selected horse with an estimated payoff (based on Tote Board or Morning 
Lines) higher than calculated payoff (based on Horse Selector II). 

• Source listing for the TRS*P. 71-59. HP-67, HP-4 1 . Apple and BASIC Computers. 

• No computer or calculator necessary (although a calculator would be helpful for 
the simple division used to calculate estimated odds). 

FREE DutcMng Tables allows betting on 2 or more horses with a guaranteed profit 



NEWDO8/80 

A New enhanced NEWDOS for TR&80" Model I for the 1980 s 

Apparat Inc., announces the most powerful Disk Operating System for the 
TRS-80'". It has been designed for the sophisticated user and professional programmer 
who demands the ultimate in disk operating systems. 

NEWDOS/80 is not meant to replace the present version of NEWDOS 2. 1 
which satisfies most users, but is a carefully planned upward enhancement which 
significantly extends NEWDOS 2. l's capabilities. This new member to the Apparat 
NEWDOS' family is upward compatible with present NEWDOS 2. 1 and is supplied on 
Diskette, complete with enhanced NEWDOS + utility programs and documentation. 
Some of the NEWDOS/80 features are: 

• New BASIC commands that supports with variable record lengths up to 4095 
Bytes long. 

• New BASIC commands that supports with variable record lengths up to 4095 
Bytes long. 

• Mix or match disk drives. Supports any track count from 18 to 80. Use 35. 40 or 
77 track 5" mini disk drives or 8" disk drives, or any combination. 

• A security boot-up for BASIC or machine code application programs. User never 
sees "DOSREADY" or "READY' and is unable to BREAK", clear screen, or 
issue any direct BASIC statement including "LIST " 

• New editing commands that allow program lines to be deleted from one location 
and moved to another or to allow the duplication of a program line with the 
deletion of the original. 

• Enhanced and improved RENUMBER that allows relocation of subroutines. 

• Powerful program chaining. 

• Device hanging for routing to display and printer simultaneously. 

• CDE function: simultaneous striking of the C. D and E keys will allow user to 
enter a mini-DOS to perform some DOS commands without disturbing the 
resident program. 

• Upward compatible with NEWDOS 2. 1 and TRSDOS 2.3. 

• Includes Superzap 3.0 and all Apparat 2. 1 utilities. 
$149.00 

STOCK MARKET MONITOR 

Galactic Software Ltd. 

CASSETTE VERSION $89.00 

DISK VERSION $99.00 

1 . The system is designed for the active "trader" not the "long term' investor, as 
the system is "'technically'" oriented. 

2. For the TRS80" Model I. Level H. 1 6K or more. Available in both disk and tape 
versions. 

3. Tracks user selected issues, in a technical system that reflects the issue's 
performance against the overall market. 

4. Set up data is input by the user from the Standard and Poors stock guide or 
Value Line. 

5. Dairy issue data. "high", "low", "close" and "volume" are input from any news 
paper containing this information. 

6. Dairy overall market, "volume'' and "closing Dow" are also provided from a 
newspaper. 

7. Volume and price changes of an issue, as they compare to volume an price 
changes of the overall market are the basis of this system's analysis of the given 
issue. 

8. Comparisons of the issue against itself are also done. This may allow the user 
to spot "unusual" activity on this issue. 

9. Clear indications are given as to whether the issue is "out performing ". "under 
performing" or "performing" with the market. 

10. Complete video and printed output is provided. 

1 1 . This program is intended to be a guide to indications, and is not to be used as a 
sole recommendation to buy, sell or hold an issue. These decisions are the 
responsibility of the user and his brokerage. 



•CJWUTRQNXCS? 

^ g SO N. PASCACK ROAD 

SPRING VALLEY, NEW YORK 10977 




P-rr^TV HOUR 

$£ 24 o-o." 

* — ' (914)425-1535 

ADD *2.00 FOR SHIPPING IN UPS AREAS 
ADD »3.00 FOR COD. OR NON-UPS AREAS 
ADD *4.00 OUTSDE USA.. CANADA & MEXICO 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 

*AUord«"P roC * M<d 

urfrhin 2 4 - Hour l_ ck guarantee 
* 10-Day money bac* «p« 

penalty for hondhns) 



H 



CQIY1PUTRQNICS 
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• • • EVERYTHING FOR YOUR TRS-80 "• • • 

TRS-ao Is a trademark of the Radio Shark Division of Tandy Corporation 

BUSINESS PAC 100 

100 Ready-To-Run 
Business Programs 




Software ««»» 



(ON CASSETTE OR DISKETTE) Includes 110 Page Users Manual 5 Cassettes (Or Diskettes) 

Inventory Control Payroll. ....Bookkeeping System Stock Calculations 

Checkbook Maintenance.. ...Accounts Receivable.... .Ac counts Payable 



BUSINESS 100 PROGRAM LIST 



1 RULE78 Interest Apportionment by Rule of the 78 s 

2 ANNU 1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASEJNT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL Straightline depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRD8 Declining balance depreciation 

10 DEPRDDB Double declining balance depreciation 

! 1 TAXDEP Cash flow vs depreciation tables 

12 CHECK2 Prints NEBS checks along with daily register 

13 CHECKBK1 Checkbook maintenance program 

14 MORTGAGE/ A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple. 

16 SALVAGE Determines salvage value of an investment 

1 7 RRVARIN Rate of return on investment with variable inflows 

1 8 RRCONST Rate of return on investment with constant inflows 

1 9 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 FVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWITH Equal withdrawals from investment to leave over 

24 SIMPDISK Simple discount analysis 

25 DATEVAL Equivalent & nonequivalent dated values for obiig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP X Markup analysis for items 

28 SINKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACK SH Black Scholes options analysis 

32 STOCVALI Expected return on stock via discounts dividends 

33 WARVAL Value of a wan-ant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection modef-i.e. what stocks to hold 

38 OPTWRfTE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

4 1 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALADINF Value of additional information 

44 UTILITY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 

46 TRAMS Transportation method for linear programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE 1 Single server queueing (waiting line) model 

49 CVP Cost-volume-profit analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

NAME DESCRIPTION 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QUEUECB Cost-benefit wafting line analysis 

56 NCFANAL Net cash-flow analysis for simple investment 

57 PROFIND Profitability index of a project 

56 CAP1 Cap. Asset Pr Model analysis of project 
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59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FIN RAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRJNDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 T1MEMOV Time series analysis moving average trend 

70 FUPRINF Future price estimation with inflation 

71 MAILPAC Mailing list system 

72 LETWRT Letter writing system links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL 1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 T1MECLCK Computes weeks total hours from timeclock info. 

78 ACCTPAY In memory accounts payable system storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

8 1 TELDIR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSF1LE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Sale-leaseback analysis 

99 RRCONVBD Investor's rate of return on convertabte bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



□ CASSETTE VERSION $ 99.95 
D DISKETTE VERSION $ 99.95 
D MODEL II VERSION $149.95 

ADD $2.00 FOR SHIPPING IN UPS AREAS 
ADD $3.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $4.00 OUTSIDE U.S.A, CANADA & MEXICO 

•CQMPmRQNXCSf 
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iCQMPUTRQNICSi Announces ...MOD-II 

WMJIMTA. APPV.CATONS SERVCE" 

running V° 
.nnouncem 



The Newsletter For Owners Of The 
TRS-M™* MODEL II MICROCOMPUTER 



1°\ for running V oUT n j u p<*a teS SPECIAL CHARTER SUBSCRIPTION RATE $11.00 D CFor \% issues] 

# Tips j« _. if , r cm« nIS 
9 Latest 

MOD-II PROGRAMS CURRENTLY AVAILABLE 

(1) ELECTRIC PENCIL (Michael Shrayer Software). ..Complete word processor with extensive editing and printer formatting features $275 

(STANDARD CP/M VERSION) $300 (DIABLO, NEC OR QUME CP/M VERSION) $325 (STANDARD TRSDOS VERSION) $350 

(DIABLO. NEC OR QUME TRSDOS VERSION). 

(2) GENERAL LEDGER, ACCOUNTS RECEIVABLE, ACCOUNTS PAYABLE, INVENTORY CONTROL AND PAYROLL (Small Business 
Systems Group). . works under TRSDOS can be used one module at a time or as a coordinated system $225 per module $995 for 
the complete system. 

(3) GENERAL LEDGER, ACCOUNTS RECEIVABLE. ACCOUNTS PAYABLE, INVENTORY CONTROL AND PAYROLL (Peachtree Software) 

requires CP/M and MICROSOFT BASIC professional business systems turn key operation discounts available $1000 per module 
... $5000 for the complete system 

(4) SELECTOR III (Micro-Ap) complete data management system user defined fields and codes . manages any list defined by the user 

includes additional modules for simplified inventory control, accounts receivable and accounts payable requires CBASIC-2 and CPM 

$295 

(5) GLECTOR (Micro-Ap). add on package to the SELECTOR III general ledger that allows the user to define a customized chart of ac- 
counts . $250 

(6) GSF (Racet Computers) Generalized Subroutine Facility a series of super fast machine language utilities that can be called from a 

BASIC program (no machine language knowledge required) sorts 1000 items in under 5 seconds allows PEEK and POKE statements... 

move data blocks compress and uncompress data... works under TRSDOS.. ..$50 

(7) DSM (Racet Computes) .. Disk Sort Merge sorts and merges large multiple diskette files on a 1 to 4 drive system NOT AN IN MEMORY 

SORT can actually alphabetize (or any other type or sort) 4 disk drives worth of data sorts one complete disk of information in 10 

minutes information is provided to use DSM with the RS MAILING PROGRAM works under TRSDOS $150 

(8) RSM (Small Systems Soft ware) a machine language monitor and disassembler can be used to see and modify memory or disk sectors 

contains all the commands found on the Model- 1 version plus some additional commands for the MOD-II works under TRSDOS $39 95 

(9) CP/M (Lifeboat Associates) an alternative operating system to TRSDOS that allows users to use hundreds of programs currently available 
to CP/M owners This is the only version of CP/M for the MOD-II that comes with an elementary CP M guide written especially for MOD-II 
owners $170 

(10) MICROSOFT BASIC (Microsoft) an enhanced version of the MICROSOFT BASIC found on TRSDOS works under CP M adds 
commands such as chaining (allows the user to LOAD and RUN a new program without losing the variables currently in memory), long 
variable length file records. WHILE/WEND and others .... can be used with the BASIC COMPILER to speed up programs (3-10 times faster 
execution) $350. 

(11) CBASIC-2 a non-interactive BASIC used for many programs that run under CPM requires CP.'M allows user to make more efficient 

use of disk files eliminates the use of the most line number references required for programs such as SELECTOR and GLECTOR $120 

(12) MAILING ADDRESS (Peachtree Software) requires CP/M keeps track of name and address information and allows the selective 

printing of the information in the form of mailing lists or address labels unique key structure and format ting structure allows for a multitude 
of retrieval alternatives ..$790. 

(13) PROPERTY MANAGEMENT (Peachtree Software) requires CP/M keeps track of all financial records related to property management 

$1500. 

(14) FORTRAN-80 (Microsoft) ANSI 66 (except for COMPLEX) plus many extensions requires CPM $425 

(15) H A E COMPUTRONICS, INC. SHARE-A-PROGRAM DISKETTE #1 works under TRSDOS a collection of programs written by MOD-II 

owners programs include data base management ...a word processor mail system mortgage calculations checkbook register 

and many others $8 (add $3 postage outside of the United States. Canada and Mexico) FREE if you send us a diskette containing a 

program that can be added to the SHARE-A-PROGRAM DISKETTE 

(16) MEMOREX OR WABASH CERTIFIED DISKETTES $49.95 (per box of 10) 

(17) FLEXI-MATIC DISKETTE STORAGE TRAY Stores 110 diskettes comes complete with index-dividers, dust cover, tilt plates and 
adjustable spacing $55.00 

(18) WORD-STAR The ultimate word processor a menu driven word processing system that can be used with any printer All standard word 

processing commands are included plus many unique commands only found on WORD STAR requires CP/M $495 

(19) MAIL LIST MERGE An add on package that allows the user to send form letters (created on WORD-STAR) to any compiled mailing list 

(using any CP/M based MAIL program such as the PEACHTREE MAIL PROGRAM). ..requires CP/M, WORD STAR and any CP/M based 
mail program ...$150. 

(20) EDITOR ASSEMBLER from Galactic Software Ltd. is the first user oriented Editor Assembler for the MODEL II and was designed to utilize all 
the features of the MODEL II. It includes innovative features for ease of coding and debugging and complete documentation (over 1 20 pages) 
works under TRSDOS. ..$229 

(21) MAIL/FILE SYSTEM from Galactic Software Ltd. stores 2,500 names per disk No sorting time is required since the file is automatically 
sorted by first and last name plus Zip Code on input Retrieve by any combination of 19 user codes Supports an 11 digit alphanumenca Zip 
Supports a message line Comes complete with user-oriented documentation (100-page manual) Allows for company nameand individual 
of a company and complete phone number (and extensions) works under TRSDOS $199 
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TUTORIAL 



Self help routines for frustrated programmers, 



My Way 



Robert V. Meushaw 
4188 Brittany Dr. 
Ellicott City, MD 21043 



I'm sure that many of you have 
been faced with situations in 
which the program you were 
writing just wouldn't perform to 
your expectations because of 
limitations which seemed be- 
yond your control. In some 
cases, processor speed or inef- 
ficient data storage techniques 
may limit your capabilities; but 
in almost every hopeless situa- 
tion I work on, I find that, with 
perseverance, there is always a 
better way. 

One of the most important 
lessons I have learned while pro- 
gramming is that you should 
use your computer to help you 
analyze and resolve your pro- 
gramming problems. 

I would like to describe sev- 
eral programming applications I 
have faced with my Level I 
TRS-80 and the approaches that 
I used to investigate such limita- 
tions. 

Problem One 

Computing vector magni- 
tudes when given the X and 
Y-coordinates (Fig. 1) requires a 



square root function that is un- 
fortunately not built-in to the 
Level I. Fortunately, the appen- 
dix of the Level I manual in- 
cludes a square root function 
(Listing I), but it performs much 
slower than I would have liked. 
Watching the results being 
printed, I can almost feel the 
burden of the routine. After this I 
begin to investigate how to im- 
prove the speed of my program. 

Looking at Listing 1, you can 
see that the routine makes suc- 
cessive approximations to the 
square root of X which even- 
tually converge (within the 
limits of the computer's ac- 
curacy) to the square root of X. 
The first approximation, Y, is 
taken as X/2. 

The value of W keeps track of 
the error in the approximation 
and whenever the error is zero 
or is the same as the previous 
iteration, the subroutine re- 
turns with Y as the square root 
of X. 

This seems fairly straightfor- 
ward, but, as you can see, there 
is really quite a lot going on in 
one iteration, which is reason 
enough for its lack of speed. 

Wondering how many itera- 
tions of such a routine are nec- 
essary to compute a square 
root, I decided to make some 
tests. 

The test program is shown in 
Listing 2. It generates random 



numbers to be input to the 
square root subroutine. Each 
time a new number is generat- 
ed, a counter is set to zero. 
Then the square root subroutine 
is called, and modified to incre- 
ment the counter with each 
iteration. 

When the subroutine returns, 
C contains the number of itera- 
tions necessary to compute the 
square root of X. The value of C 
is used to increment the array 
element A(C). 

Using this technique, the ar- 
ray element A(i) keeps count of 
the number of values of X which 
require iterations in the square 
root subroutine to return an an- 
swer. 

The first three lines in the 
program initialize the array 
elements to zero. Line 50 deter- 




mines the value of X. 

This line is not fully specified 
in the listing because I ran the 
program a number of times 
with different expressions for 
X. In each case the program ex- 
amines 15,000-20,000 values of 
X. This often requires several 
hours of run time. (On several 
occasions I let the test run over- 
night.) 

Usually, when a reasonable 
number of samples has been ex- 
amined, I interrupt the program 
and execute the routine begin- 
ning on line 2000 which displays 
the percentage of samples re- 
quiring iteration counts of one 
to one hundred. 

Some Interesting Results 

The program is first run with 
X = RND(0). This sets X equal to 



vector magnitude = V a' + b' 



Fig. 1 
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a random number between 
and 1. The resulting iterations 
are shown in Table 1. Beside 
each iteration value is its per- 
centage. 

We can see that 34.6 percent 
of the numbers require six itera- 
tions, 48 percent require seven 
iterations, and so on. The high- 



est number of iterations record- 
ed is fourteen, and no number 
requires five or less. 

Table 2 shows the results us- 
ing X = 1/RND(30000). The range 
of iterations is between seven 
and fourteen, with the largest 
percentage of the numbers re- 
quiring more than twelve 



30010 REN 'SQUARE ROOT* INPUT X, OUTPUT Y 

30020 REM ALSO USES ■ AND Z INTERNALLY 

30030 IF X«0 THEN Y«0: RET. 

30040 If X>0 THEN 300b0 

30050 PRINT "ROOT Of NEGATIVE NUMBER?": STOP 

30060 Y"X».5l ZaO 

30070 W«CX/Y-Y)».5 

30080 IF (w=0) ♦ (UaZ) THEN RETURN 

30090 Ysttw: Z=w: GuTO 30070 

Listing 1. TRS-80 Level I manual square root subroutine 
(shorthand notation has been expanded). 



Table 3 shows the results of 
X = RND(30000). These results 
appear similar to those of Table 
2 except that the range of itera- 
tions is offset slightly. 

The last set of results, shown 
in Table 4, is the result of using 
X = RND<0)* 1 E10. 1 chose this to 
give some very large values for 
X. Again, the results appear 
similar to those in Table 2 with a 
larger offset than in Table 3. 

The Search Begins 

Now that I have a reasonable 
understanding of how the 
square root subroutine is work- 
ing, and why it is consuming so 
much time, the problem remains 
to find a technique to reduce the 
time. 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

1000 
1010 
1020 
1030 
1040 

2000 
2010 
2020 
2030 
2040 
2050 
2060 



FUR 
All 
NEX 
J»l 
X«( 
C*0 
GOS 
ACC 
PHI 
J=J 
GUT 
END 



1=1 TU 100 
J=0 
T 1 

...one of several statements...) 

ub UOO 

)«ACCm 

NT J;" VALUES HAVE BEEN USEE" 

♦ 1 

SO 



Y*X*.b: 2*0 

MlX/I'D'.S 

C*Ol 

IF l«»0) ♦ l«=Z) THEN RET. 

Y=YtH: Z*«l GUTO 1010 

T^O 

FUR 1=1 TU 100 

T*T-»A(I) 

NEXT 1 

FOR K=l TU 100 

PRINT K, 10O»A(K)/T 

NEXT f 



INITIALIZE ARRAY «HICh 

COUNTS NUMBER OK SAMPLES 
FOP EACH ITERATION LO0NI 

J COUNTS NUMBER OF SAMPLES 

PICK RANDOM VALUE FOR X 

INITIALIZE NUMBER OF ITERATIONS 

COMPUTE SQUARE KCU1 

UPDATE PROPER COUNTER 

PRINT NUMBER OF SAMPLES USED 

UPDATE SAMPLE COUNT 

KEEP GOING 



COMPUTE APPHOX. TU SO. ROUT 

COMPUTE ERROR 

UPDATE ITERATION COUNT 

IF DONE, RETURN 

ELSE CCMFUTE NE« APPROX. 

SET TOTAL TO ZERO 

COMPUTE THE SUM 

OF THE NUMBER OF SAMPLES 
FUR ALL I1ERATION CUUNTS 

SET LOOP TO PRINT ALL 
ITERATION COUNTS IN 
PERCENTAGE UF TOTAL 



Listing 2. Program used to investigate the operation of the square root subroutine. The program 
was run with the value of X in line 50 given asX = RND(0), X = 1/RND(300O0), X = RND(30OO0), and 
X = RND(0)'1E10. The program starting at line 2000, run after a sufficient number of samples 
were taken, prints the percentage of numbers for each iteration count. 



10 


FOR Isl TO 100 


20 


MX)»U 


30 


NEXT 1 


40 


J'l 


50 


»> (... various expressions...) 


51 


B«( .. .various expressions...) 


60 


X*A»A+B*B 


70 


C»0 


80 


GOSUB 1000 


90 


A(C)«A(C)*1 


100 


PRINT J|" VALUES HAVE BEEN USED 


no 


J«J*1 


120 


GOTO 50 


130 


END 


1000 


Y»A*B: Z»0 


1010 


N«(X/Y-Y)».5 


1020 


C«C*1 


1030 


IF (NsO) ♦ (*«Z) THEN RET. 


1040 


Ys-Y + mi Z = «: G01U 1010 



INITIALIZE ARRAY WHICH COUNTS 
NUMBER UF SAMPLES FUR EACH 
ITERATION COUNT 

J COUNTS NUMBER OF ITERATIONS 

PICK RANDOM VALUES 
FOR A AND B 

COMPUTE SQUARE OF VECTOR MAG. 

INIT. NUMBER OF ITERATIONS 

COMPUTE SQUARE ROOT 

UPDATE PROPER COUNTER 

PRINT MESSAGE 

UPDATE SAMPLE COUNT 

KEEP GOING 



COMPUTE FIRST APPROX. 
COMPUTE ERROR 
UPDATE ITERATION COUNT 
IF DONE, RETURN 

ELSE MAKE NtU APPROX, 



Listing 3. Program used to compute the square root of X using the first approximation Y = A + B. 



My first thought is to investi- 
gate other methods of comput- 
ing the square root. One tech- 
nique, which often yields good 
results, is a power series ap- 
proximation. These approxima- 
tions are used in calculating 
many functions including sine, 
cosine, natural log and other 
functions. The advantage of 
such a technique is the elimina- 
tion of the numerous iterations 
the computation requires— thus 
saving time. 

Since it has been many years 
since I encountered such ap- 
proximation techniques, I find 
myself digging out college 
books, which I had hoped never 
to see again. Though it was not 
as clear to me now how a Taylor 
Series or Maclaurin Series 
approximation works, I even- 
tually convinced myself that 
there is no simple expansion 
which I can use. 

As is clear from Tables 1-4, 
larger numbers require more 
iterations to compute the 
square root. Part of the reason 
for this is that the first ap- 
proximation to the square root 
is taken as X/2, which becomes 
a worse approximation as X in- 
creases or decreases. Again, I 
consider a power series approx- 
imation such as: 

IF(X< = 10)THEN Y = X/2 

IF (X>10) AND (X< = 100) THEN Y = X/4 

IF (X>100) AND <X< = 1000) THEN Y = X/20 

I experiment with several vari- 
ations of this form, but none 
yield a significant reduction in 
the number of iterations. 

A Glimmer of Light 

Finally, I realize that I need to 
look for a solution to my specific 
application and not a general 
one. 

Looking back at Fig. 1, I 
notice that I am not trying to find 
the square root of just any num- 
ber, I am trying to find the length 
of the hypotenuse of a right tri- 
angle—knowing the length of 
each sidel 

Eureka! ! I have found the first 
approximation— the sum of the 
lengths of the sides of the tri- 
angle (i.e., A + B). 

My next task is to determine 
how good my approximation 
method really is. Listing 3 
shows the program which I used 
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Foster Rnd More €rr"icient Than: 

• TRSDOS 

• N6UUDOS + 

• VTOS 

DOSPLUS Uses less memory and still offers oil the com- 
mands of the other major operating systems. AND some 
innovative and useful features of our own design. 
DOSPLUS is now available for the TRS - 80*Model I. II, and III 

UMMV Of COMMANDS: 



APPEND 


ATTRIB 


AUTO 


eoor 


BUILD 


CLCflfl 


CLOCK 


COPV 


CR€RT€ 


DRT€ 


D€BUG 


Dtvice 


DIR 


DO 


DUMP 


FOAMS 


Ffl€€ 


KILL 


Lie 


LIST 


LOAD 


PflUS€ 


PROT 


R€NflM€ 


RS232 


TIM€ 


TflfKC 


V€RlfV 






•UIIT IN KRTURCS: 


UTIIITICS: 







AUTOMATIC LOUJ€flCRS€ 
SCA€€N PAINT6A 
K€V80AAD D€BOUNC€ 
fl€P€ATING K€VSOAAD 



fl€STOR€ >D€AD RL€S 
DISK DUMP, CMD 
FORMAT 



TRANSFER 
PURC* 
CL€ARAL€ 
BACK UP 



N€UJ FROM 
MICRO-SVSTCMS1I! 

Master Diskette Directory Ver 1 .0 - 

This program will read the directories of up to 160 disk- 
ettes or 5000 files! Insert your diskette in the drive, press 
enter, and it works automatically to reod, store, and 
categorize your files. No more looking through box after box 
of diskettes looking for those favorite programs that are 
"Around Here Somewhere ". Vou can get a listing of oil the 
files on all the diskettes. In addition, you can list them by file 
extension, diskette number, or program category. With mas- 
ter directory, you nemd never ogain worry about the frustra- 
tion of not being oble to locate a particular program. Master 
directory will search for a particular file name and give you 
every occurence of that file, its size, and the diskette number 
that contains it. 

fl totally self contained, machine language program on o 
self-booting diskette; master directory will work equally 
well on single or multiple drive systems. 



DOSPLUS— $99.95 



MASTER DIRECTORY— $29.95 



Pleose Contact: 
Micro Systems Software Inc. 
5846funston Street 
Hollywood, Florida 33023 
1 (305)983 3390 



• 384 




Coming Soon: Dosplus 4.0 for 10 - Megabyte TRS 80i* 



rRS 8C «». 
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<=5 







6 




346 


7 




48 
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87 
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> = 15 







Table 1. Distribution of 


square root iteration counts for 


X = RND(0). 






NUMBER OF ITERATIONS 


% OF NUMBERS TESTED 
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.04 


9 




.33 
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Table 2. Distribution of 


square root iteration counts for 


X = 1/RND( 30000). 
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Table 3. Distribution of 


square root iteration counts for 


X = RND(30000). 






NUMBER OF ITERATIONS 
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Table 4. Distribution of 


squa 


re root iteration counts for 


X = RND(0)'1E10. 






NUMBER OF ITERATIONS 


% OF NUMBERS TESTE0 
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1.1 
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13 
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52.3 
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33.6 


> = 7 







Table 5. Distribution of square root iteration counts using 


A = RND(0) and B = RND(0) and modified first approxima- 


tion. 







to generate the lengths of each 
side of the right triangle and the 
number whose square root I 
needed. As in the previous set of 
test cases, program statements 
50 and 51 are incomplete be- 
cause I used four sets of values 
to test the same conditions as 
before. 

The program is first run using 
A = RND(0) and B = RND(0). The 
value of X is computed as (A*A 
+ B*B). Table 5 shows the re- 
sult of using the new first ap- 
proximation for the square root. 

Compared with Table 1, the 
number of iterations is signifi- 
cantly reduced. In this case, 
most numbers require five or 
fewer iterations whereas Table 1 
shows that most numbers re- 
quire seven or more iterations. 

Table 6 shows the results of 
the new approximation when 
A = RND(3000) and B = RND 
(30000). Notice that the results 
are remarkably similar to those 
obtained in Table 5. 

Table 7 shows the results ob- 
tained using A = 1/RND(30000) 
and B = 1/RND(30000), and 
Table 8 shows the results ob- 
tained using A = RND(0)*1E10 
and B = RND(0)*1E10. 

I am astounded that the re- 
sults obtained using the new ap- 
proximation are almost identi- 
cal in the four cases that I 
tested. I noticed two other Im- 
portant facts. Most of the num- 



bers required five or six itera- 
tions, and also no numbers 
more than six iterations. 

This second fact is most im- 
portant since it tells me that I 
can construct a new square root 
routine eliminating the logical 
tests necessary to determine 
completion of the routine. 

Referring to Listing 1, 1 can re- 
move line 30080 by changing the 
basic structure of the routine to 

"The savings in 

storage 

amounts to 

about 25 bytes, 

which is 
enough to give 

me the 
breathing room 

I need." 

a FOR-NEXT loop using six 
iterations. Listing 4 gives the re- 
sulting square root routine, a 
faster version. 

It seems wasteful to perform 
six iterations when some num- 
bers require less, but looking at 
the statistics of Tables 5-8 you 
can see that 85 percent of the 
numbers require five or six itera- 
tions. Therefore, the instances 
of inefficiency are small. 



NUMBER OF ITERATIONS 



% OF NUMBERS TESTED 



< = 2 
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1.1 


4 


12/ 
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52.1 
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34.1 


> = 7 






Table 6. Distribution of square root iteration counts using 
A = RND(30000) and B = RND(30000) and modified first ap- 
proximation. 
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% OF NUMBERS TESTED 
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13 16 
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51.6 


6 


34.27 
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Table 7. Distribution of square root iteration counts using 
A = 1/RND(3000) and B = RND(30000) and modified first ap- 
proximation. 



MARK GORDON 

COMPUTERS 

DIVISION OF MARK GORDON ASSOCIATES, INC. '*n 
16 KENWOOD ST. CAMBRIDGE, MASSACHUSETTS 021 N 
(•1 7) 242-274* (617) 491 7505 

COMPUTERS 

Level-ll 4K System 529.00 

Level-ll 1 6K System 659. OO 

Model-ll 64K System 3499.00 

DISK DRIVES 

40 Track b'M Inch drive S 19.00 

77 Track 5'/» Inch drive 549.00 

4 Disk Drive Cable 19.00 

PRINTERS 

Centronics 730 S99.00 

Centronics 779-2 999.00 

Comprint 9 1 2p 599.00 

Integral Data 440C 999.0O 

NEC 5510 w-tractor 2679.00 

Tl 810 Basic 1995.00 

MISC HARDWARE 

Expansion int. TRS-80(Ok) 249.00 

Novation Cat modem 1 59.00 

1 6K Memory Kit 49.00 

Leedex Monitor 109.00 

Printer Cable for above 49.00 

ISO-2 Isolator 54.00 

AC LINE FILTER 24.00 

STORAGE MEDIA 

Verbatim-box IO-5'/« 25.00 

Memorex-box IO-5'/« 22.00 

Plastic Storage Box 5.00 

OPERATING SYSTEMS 

NEWDOS by APPARAT INC 49.00 

NEWDOS ♦ by APPARAT INC 99.00 

MMS FORTH DISKETTE-PRIMER 64.95 

DISKETTE TRS-80* 
BUSINESS SOFTWARE BY SBSG 

Free enhancements and upgrades to registered owners for 
the cost of media and mailing. 30 day free telephone sup- 
port. User reference on request. 
Fully Interactive Accounting Package. General Ledger. 

Accounts Payable. Accounts Receivable and Payroll. 

Report Generating. 

Complete Package (requires 3 or 4 drives) $475.00 

Individual Modules (requires 2 or 3 drives) $125.00 

Inventory II: (requires 2 or 3 drives) | 99.00 

Mailing List Name &. Address II 

(requires 2 drives) $129.00 

Intelligent Terminal System ST 80 III: $ 1 50.00 

The Electric Pencil from Michael Shrayer $150.00 

File Management System: $ 49.00 



FINE PRINT 

TRS-BO is • Tandy Corporation trademark. Um ot above operating sys- 
tems may require tha use of Radio Shack TRS-DOS. Radio Shack 
equipment sub|ect to the will and whim of Radio Shack 

ORDERING INFORMATION 

We accept Visa and Mastercharge We will ship COD certified check 
or money orders only Massachusetts residents add 5 percent sales 
tax. 

The Company cannot be Bebte tor pictorial or typographical meccurectee. 
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Now that I am over the major 
hurdle, I want to make my com- 
putations even more efficient. 
My primary target is the paren- 
theses which appear in line 120 
of Listing 4. 

I first experiment with alter- 
nate methods of writing the ap- 
proximation equations. Fig. 2 
shows some of the equation de- 
rivations. The first equation 
shows the value of the second 
approximation to the square 
root of X. In this equation, Y2 is 
the second approximation and 
Y1 is the first. As you can see, Y2 
can be simply computed from 
Y1. 

Continuing to the next ap- 
proximation, Y3 is simply ex- 
pressed in terms of Y2. In equa- 
tion 3, the substitution is made 
for Y2. This equation reveals 
something very interesting. If 



we assign the value of (Y1 + 
X/Y1) to Z, then two successive 
approximations can be simply 
computed using the equations 
Shown in Fig. 3. 

The fact that we have con- 
densed two approximations into 
this set of equations allows us 
to rewrite the square root rou- 
tine as shown in Listing 5. 
Notice that only 3 iterations of 
the FOR-NEXT loop are required 
and that the parentheses are no 
longer included. 

My final modification to in- 
crease the speed of the routine 
is shown in Listing 6. Here, the 
FOR-NEXT loop is replaced with 
three sets of equations which 
compute six approximations. 
This straight line coding re- 
quires more bytes of storage 
than the previous routine, but is 
slightly faster. 



Listing 7 is a test of the 
various modifications which I 
have developed. It times them. 
Five subroutines are used for 
the various tests. The first sub- 
routine is an immediate RE- 
TURN. I use this to determine 
how much time the main routine 
requires. 

The four other routines are 
the normal square root routines 
from the Level I manual: the nor- 
mal routine, using a modified 



first approximation and a FOR- 
NEXT loop, the routine using the 
modified approximation equa- 
tion, and the routine using the 
straight line coding of the ap- 



Z = Y ♦ X/Y 
Y = ZM + X/Z 

Fig. 3. Equations which com- 
bine two successive approx- 
imations to the square root of 
X. 



I U- Y -)-M=*") 



Y3 = Y2 + 



2 * Y2 



1 ( * -Y2) = 1 ( " + Y2) 

1 [ " +1 ( " Y )] 



2 Y1 

x 1 / >. 



(:♦«) 



Y1 4 Y1 



Y1 



Fig. 2. Equations for the second and third approximations to 
the square root of X. 



too 


YsA«B 


110 


FOR Ml TO b 


120 


W=CX/Y-X ) ». S 


130 


Y*Y+W 


140 


NEXT K 


150 


RET. 



COMPUTE APPROX. TO SO. KT. 
SfcT LOCP FOR SIX ITERATIONS 
COMPUTE ERROR 
COMPUTE NEK APPR0X. 
LOOP 



Listing 4. Modified square root routine using first approx- 
imation and FOR-NEXT loop. 



COMpUTF APPROX. TO SO. kT. 
SET LOCP FCR THREE ITERATIONS 
COMPUTF TmC APPROXIMATIONS 
USING MUD1F1EU EQUATIONS 
LOOP 



Listing 5. Revised square root routine using new first ap- 
proximation and combined approximation equations. Note 
that only three loop iterations are required. 



100 


Y=A*R 


no 


FOR K*I TO 3 


120 


Z*Y*X/Y 


130 


Y»Z/4 ♦ X/Z 


140 


NEXT K 


150 


RET. 



100 


Y = A + B 


no 


Z«Y*X/Y 


120 


YsZ/4 t 


no 


Z«Y*X/Y 


140 


YsZ/4 ♦ 


150 


Z*Y*X/Y 


160 


Y«Z/4 ♦ 


170 


RET. 



X/Z 



X/Z 



X/Z 



C0MPU1E APPROX. TO SO. RT, 
USING THREE SETS OF 
MODIFIED EQUATIONS TO 
COMPUTE SIX 
APPRCXIMATIONS 



Listing 6. Final square root routine which eliminates FOR- 
NEXT loop to maximize speed. 



WHAT IS tt THE PATCH"? 



We asked ourselves; WHY should our 
computer be as bland as everybody else's? 
Why not unlock the unused and wasted abili- 
ties available within each and every TRS-80 
Model 1. These abilities allow the display to 
be dressed up and the computer to be effec- 
tively easier to use. 

Now we have developed the means for get- 
ting the most from our computers and we 
know you need it too. With "THE PATCH", 
a new age of simplicity and convenience has 
arrived. You don't want to be left out, so 
don't kid yourself, you need the enhance- 
ments which "THE PATCH" provides. 

• Docs your keylx>ard bounce? 

Some say, "I have a software fix for 
that!" 

• Does your display still have that stand- 
ard, dull, underline cursor? 

Some brag, "We have a program which 
will give you a Block cursor, and it even 
blinks!!" 

• Does your Dualcase printer make you 
look foolish when you tell it to print lower- 
case because you could only see UPPERcase 
cm the display? 



Most cry, "We have a kit you can in- 
stall . . . and a program to run it!!!" 

• Don't you have better uses for protected 
memory than to waste it on programs which 
are TOTALLY UNNECESSARY? 

You sob, "I need all those advantages but 
they are just too much trouble to have all at 
once so I'll make do with what I have. 

FORGET ALL THAT . . . make your 
life easier 

What we are trying to tell you is: 

1. You CAN have Keyboard delwmnce if 
you need it! 

2. You CAN have Block cursor with NO 
distracting blinking! 

3. You CAN have FULL TIME Dualcase 
display! 

4. You CAN have typewriter style key- 
board operation! 

5. You CAN have faster cassette data 
files, up to four and om-half times 
faster! 

6. You CAN have even more features as 
we make them available. 



IHf PATCH", S69 97 plus V 50 ship and lurid 
Options Block cursor N/C. Dcbounce N/C 

Cassette File $10 00 
VISA or Mdster Card accepted 



All this from THE INSTANT you power 
up your computer, without making your 
other programs unusable because some un- 
necessary driver program is eating that mem- 
ory. 

"THE PATCH" is not a ROM. "THE 
PATCH" is not a PROM. "THE PATCH" 
is a microprocessor which modifies the 
Level II ROM to repair changes made 
by TANDY when they designed your compu- 
ter. This state-of-the-art technology makes 
these changes possible without using ANY 
of your computer's memory, That means, 
any program you use on your computer 
now, will still work after you install "THE 
PATCH", including word processors. 

"THE PATCH" fits easily into the Level 
II ROM sockets inside your computer, no 
tahles or switches to install. 

Sound too good to be true?? Call us. Tell 
us your innermost fears. Let us answer your 
questions. Do not cheat yourself out of using 
ALL of your computer's abilities ALL of 
the time. 



< All aiiSHSVlK.I I 

WHITE ri-'.CDA'l "THE l\K II 

lt<>\ S'HiJ 

\1..s,.iw II) SM) 



COMPUTER PAPER 

AND LABELS 



9% x 11 
(8%x11 Detached) 



$21.95 



1 PART BLANK 
3,000 to Box 

(Add $2.00 Shipping) 



14 7/8 x 11 
(Same Detached) 



$26.95 




VISA 



6S5 
MESCALERO 



15/16 X 3% 

1 Across $9.95/5M - 2 Across $19.95/10M 

^ 293 ST. LOUIS. MO 
63031 

TOLL FREE 600 325-6907 IN MISSOURI; 314-831-3535 



■ M.r.m-jHf.rei 




UTILITY SOFTWARE 1 ^MARIGOLnSSOOATES^ 

■ P. 0. BOX 20822 ^156 

FuR iR^-^J USERS ■ HOUSTON, TEXAS 77025 

NOW AVAILABLE FOR THE TRS-80 . BASIC SEARCH AND REPLACE 
NEWCMD adds FOUR new command words to your LEVEL II BASIC Language: 

CHANGE Changes BASIC line numbers from one number to another, and reorders BASIC 

text accordingly. 
DUPLICATE. . . Duplicates a BASIC line at another location without retyping. 
SEARCH Searches the resident BASIC program for every occurrence of a specified 

ASCII character string from to 240 characters long, and screenprints each 

line containing those characters. 
REPLACE Searches the entire BASIC program as above, then replaces the specified 

ASCII string with another string of your choice which can be from to 240 

characters long. Replace all PRINT'S with LPRINT's, remove blank spaces, 

etc.. Changes take place on the screen and In the program while you watch. 
IN ADDITION the command "LIST" is modified to allow variable speed forward and backward 

scrolling. 

NEWCMD is a 1200 byte machine language program. Available on cassette tape for LEVEL II, lhK 
TRS-80 machines at S14.95 plus SI. 50 postage and handling (foreign orders SI. 00 P4H) . Texas resi- 
dents please add 90c tax. Sorry, no credit cards. 



TRS-80* SOFTWARE! THE BEST 



THE DATA ORGANIZER 



'Variable length records *Max 20 field per record 

64 K Mod II $250.00 32 K Mod I $150.00 

MAGAZINE DISTRIBUTION PROGRAM 

• 500 titles • Invoices • 200 Vendors • Reports 

64 K Mod II $750.00 
AMBULANCE BILLING SYSTEM 

• 100 Calls/month • Reports unpaid, medicare • Tracks cars/drivers 

64 K Mod II $750.00 

DEALER OF TARANTO & ASSOCIATES MODEL II SOFTWARE 

A/RG/LP/R each $249.00 

All programs error free and fully documented. User tested. 

Client list available. Custom programming/consulting for TRS-80*. 

CMS, INC. 31 32 N. BROADWAY, CHICAGO, IL 60657 
(312)327-7550 ^393 

_" A trademark of Tandy Corp. 




630 E Sprrana 

»«lP"«ne !)f ?SO! 
;?M|b4?0441 



A computer game that has drawn 

the attention of the national 

news media. 

A computer game that has people 
around the world clamoring for it. 

A computer game that turns your 

love life into a menage a trois... 
you, your mate, and your computer! 



That's Interlude-the hottest new 
software program for personal 
computers. 

But it's more than just a game. 
It's an experience that will tantalize 
you . . . romanticize you . . . fantasize 
you. ..and often surprise you. 

Interlude begins with a unique 
computer interview of the partici- 
pants to determine their mood. 
Then it searches its memory to 
select the best Interlude for the 
occasion. You may be referred to 
the instruction manual which de- 
scribes most of the 106 Interludes, 
or your instructions may appear 
on your screen if you've chanced 
to hit upon one of the many sur- 
prise Interludes buried within the 
program. (When you discover 
secret Interlude #99. your love life 
may never be the same again!) 

Interlude... it's fun. ..it's fanciful... 
it's fantastic. It's the computer game 
for adults. Are you ready for it? 

Interlude 

The Ultimate Experience . 



INTERLUDE Dept 80 10428 Westpatk. Hous- 
ton. TX 77042. Rush me my copy of Interlude. 



Name 



Address 

City 

: lAppi* 



State 



Age 



Zip 



II' (I6K) ; TRS-80" (Level II- 
I6K) n s '4.95 for cassette [ ; $ 17.93 for 
diskette Add $1.50 for shipping. Texas 
residents add 6% sales tax. 

> " ' My check (payable to Interlude) is enclosed. 

Charge my [ ] Mastercharge LJ Visa 

Account No 

Expiration Date 

MasterCharge Bank Code 

Signature. 



(Charge customers must sign.) 

CHARGE CUSTOMERS: Order by phone toll- 
free! 1-800-327-9009 Ext. 306 (FLA: 
1 -800-432-7999. Ext. 306) 287 

•Registered trademark ot Apple Computers. Inc 
"Registered trademark ot Radio Shack, a Tandy Co 

AVAILABLE FOR IMMEDIATE DELIVERY. 



*- flestfer Sin/ice— see page 226 
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proximation equations. 

The results of the test are 
shown in Table 9. After subtract- 
ing the five second time of the 
main routine from the individual 
test times, the subroutine times 
can be compared. Execution 
speed is cut by a factor of more 
than eleven in going from the 
normal square root routine to 
my final specialized version. An 
improvement of this magnitude 
makes the work involved seem 



well worth the trouble. 

Problem 2 

The second example I want to 
discuss involves an application 
in which my primary concern is 
program space and accuracy. 
Because of the limits of the 
TRS-80 to slightly more than 
3500 bytes of usable storage, 
some programs can become 
pretty cramped. 

My problem is to construct an 



array which contains values of 
sin(X) over a range of to nil (i.e., 
0*-90*). As in the case of the 
square root function, Level I 
BASIC does not contain the sine 
function. So, again I turn to the 
Level I manual's sine function 
subroutine. This routine is 
shown in Listing 8. 

The basic sine routine calcu- 
lation Is performed using a 
power series approximation. 
Many mathematics text books 



10 FOR I«l TO 100 

20 A=RND( 30000 ) ; BsRND ( 30000 ) 

JO X«A*A * B*B 

40 G05UB 100 

SO NtXT I 

60 PRINT "TIMING TEST COMPLETED' 

70 END 



SET LOOP FOR 100 ITERATIONS 

PICK VALUES rOR A AND B 

COMPUTE SQUARE OF VECTOR MAC, 

COMPUTE SQUARE ROOT 

LOOP 

PRINT MSG. MHEN DONE 



Listing 7. Program used to test the efficiency of the various square root subroutines. 



30370 REM »SIN» INPUT X IN DEGREES, CUTPUT I 

30371 REM ALSO USES Z INTERNALLY 
30376 Z*AbS(X)/A: X*Z*X 

30380 IF X>360 THEN X=X/3oO: X« ( X-INI (X) )»360 

30390 IF A>90 THEN X«X/90« Y«INT(X)1 X»(X-Y)«¥0: ON Y COTO 

30410, 30420, 30430 

30400 X«X/57.29S78l IF ABSCXX2.4861E-4 THEN Y»0l RET. 

30405 GOTO 30440 

30410 X»90-X: GOTO 30400 

30420 X=-X: GOTO 30400 

30430 XsX-90: COTO 30400 

30440 Y*X-X»X»X/6*X»X»X*X»X/120-X»X»X»X*X»X«X/5040 

30450 Y»Y*X»X»X»X»X»X»X»X*X/362B80l IF Z«-l THEN Y»-Y 

30460 RET. 

Listing 8. TRS-80 Level I manual sine function subroutine. 



IS SET TO FIRST TERM IN PmR. SERIES 

Y IS SUM OF PO"ER SERIES TERMS 

SET LOCP 10 USE TERNS UP TO X*«9 

COMPUTE NEXT PkR. SERIES TERM 

ADD IERM TO SUM 

LOOF 



Listing 9. Modified sine routine. The statements of this routine could be used to replace the 
power series expression on lines 30440 and 30450 of Listing 8. 



100 


Q = X 


110 


Y«X 


\20 


FUR J=3 10 * J.TEP 2 


130 


Qa-Q » A/J »X/(J-1) 


140 


Y = YtQ 


150 


NEXI J 


160 


RETURN 



10 


fOR 1=0 TO 32 


SET LOOP FOR 32 SINE VALUES 


20 


Xsl.570/9o3 • 1/32 


X IS INPUT (0«1« /2) 


30 


TsX 


SAVE X 


40 


N=9: GuSuB loOg 


COMPUTE SQUARE ROOT 


50 


ftU)*l 


SAVE ANSMER 


60 


x*i 


RESTORE X 


70 


Mill GOSUb 1000 


CUMPUTE NE* SQUARE ROUT 


80 


A(2)*Y 


SAVE ANSWER 


90 


PRINT Alt J ,A(2) 


PRINT RESULTS 


100 


IF A(l)OA(2) P. "DIFFERENT"^ 


. PKINT MSG. IF VALUES DIFFERENT 


110 


NEXI I 


LOOP 


120 


END 




1000 


= X 


COMPUTE SINE OF X 


1010 


Y»X 


USING THE HIGHEST 


10 20 


FOR J = 3 TO N STEP 2 


POWER TERM SPECIFIED 


1030 


Qs-Q * X/J *X/(J«1) 


BY THE CALLING 


1040 


YaYtQ 


ROUTINE 


1050 


NEXT J 




1060 


RET. 





Listing 10. Program used to test the effect upon SIN(X) of different power series approxima- 
tions. 



will show that sin(X) can be ex- 
pressed as the infinite series: 

sin<X) = X - (X*"3y6! ♦ (X"5V5! - 
(X"7V7! + (X*"9V9! 

In the case of listing 8, the 
power series is computed using 
terms up to X**9. 

The Approach 

When it becomes apparent 
that I need a few more bytes of 
storage for data, I examine the 
sine subroutine to see how 
many bytes I can squeeze out. 

Computing the terms of the 
power series seems fairly repeti- 
tive and they seem to lend them- 
selves to a FOR-NEXT loop. 
After several tries, I arrive at the 
routine shown In Listing 9. 

The variable Q generates the 
terms of the power series. Each 
successive value of Q is com- 
puted by multiplying the pre- 
vious value by -X**2 and divid- 
ing by the product of O, the loop 
index and (J-1). The variable Y 
keeps a running sum of the 
power series terms. 

The savings in terms of 
storage amounts to about 25 
bytes, which is enough to give 
me the breathing room I need. In 
fact, more savings are possible 
if unnecessary lines in the re- 
sulting sine routine are elimi- 
nated. 

There is an added benefit to 
the modified sine routine. It is 
very simple and costs nothing in 
terms of storage, to obtain more 
accuracy. All that is necessary 
is to replace the nine in line 120 
of Listing 9 with the value of the 
highest power term desired in 
the approximation. For exam- 
ple, 15 can be used. 

The Final Test 

Just to satisfy my curiosity, I 
decide to try the routine with 
more terms. I first try using 1 1 as 
the highest power term. The test 
routine is shown in Listing 10. It 
uses the parameter N to specify 
for the sine routine the highest 
power term In the approxima- 
tion. 

For each value of X, the sine 
routine is called twice — once 
using terms up to X* *9 and once 
using terms up to X**11. The 
values obtained using each ap- 
proximation are printed, and in 
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NUMBER OF ITERATIONS 

< = 2 

3 
4 
5 
6 
> = 7 



% OF NUMBERS TESTED 



1 

13.5 
51.3 
34.2 





Table 8. Distribution of square root iteration counts using 
A = RND(0)'1E10 and B = RND(0)'1E10 and modified first 
approximation. 



SUBROUTINE USED 


TOTAL TIME 


TOTAL ! 


UBROUT 


Immediate RETURN 


5 sec. 




— 


Normal square root 


107 sec. 




102 sec. 


Listing 4 routine 


26 sec. 




21 sec. 


Listing 5 routine 


16 sec. 




11 sec. 


Listing 6 routine 


14 sec. 




9 sec. 



Table 9. Execution times of the various square root routines. 



addition the two values are com- 
pared and a message is printed 
when the values are different. 

The results of this test are 
both interesting and confusing. 
The approximation using the 
X**11 term is more accurate, as 
I had hoped. However, some re- 
sults which appear to be the 
same when printed, produce a 
message which says that they 
are different. 

I took this to mean that the in- 
ternal binary representations of 
the values are slightly different. 
A portion of the results of the 
test is shown in Table 10. The 
confusing part of the results ap- 
pears in the last computed 
value. The printed value dis- 
plays 1.0000008, which contains 
more digits than I have ever 
been able to print for a number 
(the normal number of digits is 
six). 

Next, I try adding another 
term to the power series ap- 
proximation (i.e., (X**13)/13!) 



but it produces no further im- 
provement in accuracy. 

Aside from these few puzzling 
occurrences, which I have yet to 
fully resolve, the results of my 
experiments are successful. I 
have achieved a savings in pro- 
gram space and an increase in 
accuracy. 

The Moral 

I hope that the two examples 
that I have presented will 
encourage you to find new and 
better ways to program routines 
in your applications. Don't as- 
sume that the method someone 
else uses is necessarily the best 
way for you. I'm sure that you 
too will discover that finding a 
better way is perhaps one of the 
most rewarding aspects of pro- 
gramming. 

Most important of all, how- 
ever, remember to make use of 
all your resources— including 
your computer— to improve 
your work. ■ 



for the TRS-80 from Micro -Mega 



VALUE OF SIN(X) 


VALUE OF SIN(X) 


TEST 


USING X"9 TERM 


USING X- -11 TERM 


RESULT 


.903989 


.903898 


different 


.92388 


.92388 


different 


.941544 


.941544 


different 


.956941 


.956941 


different 


.970032 


.970031 


different 


.980786 


.980785 


different 


.995186 


.995185 


different 


.998798 


.998795 


different 


1 


1.0000008 


different 


Table 10. Partial 


listing of results from test program shown 


in Listing 10. Note that some values are not equal in a logical 


equivalence test 


even though the printed values are the 


same. 







CASSETTE CONTROL UNIT 



• Speed up your cassette tap* hanrjimg • Pinpoint program locations on tape with an audi- 

01a monitor • Get protection trom recording and playback glitches resulting from ground 

loops • Eliminate the tedious plugging and unplugging ot recorder cables. 

The Micro Mega Cassette Control Unit does ail this and more You get instant manual con 

troi ot the recorder at the Hick ot a switch Want to tmq the beginning or end ot a program"* 

Flick another switch and you'll hear it All cables remain plugged m ait the time 

The Micro-Mega Cassette Control Unit does a lot to improve the appearance ot your TRS 80 

system, too As shown, it's ma 2 "i" x 5 box which snuggles between the keyboard and 

your recorder There is no need to move the recorder, and ail cables come neatly into the 

unit The Cassette Control Unit >s tailored to the CTR-41 recorder, but may be used with mot 

other recorders as well 



CASSETTE CONTROL UNIT. 

Add $1.00 for postage and handling 




.$37.95 



CPU MONITOR 



recorder volume setting It you 



Ever tmd yourself with a blank screen wondering what your computer is up to 7 The Micro Mega Monitor can tell you. tor example 

• " your CPU is m a loop with not exit. • When a long sort is nearmg completion, or • it a key bounces during keyboard input The 

CPU Monitor lets you listen to all CSAVEs and CLOADs and will help you quickly find the cot 

have an expansion interface, you will always knot* whether the realtime dock is on or oft 

because you can hear it 

The Micro Mega CPU Monitor gives a voice to the Z-80 microprocessor m your TRS 80 by us 

mg AM radio circuitry to pick up the computational rhythms of the CPU. whKh are amplified 

and played through a loudspeaker The pickup unit ot the CPU Monitor, shown at left in the 

photo, goes under your TRS 80 keyboard it is connected by a 36" cable to the speaker and 

control unit, which includes an on'otl volume control and an LED "power-on'' indicator The 

Monitor is powered by an AC adapter, shown at nght m the photo No batteries are ne* 

TRS 90 are required 

By listening to the CPU Monitor, you will soon become familiar with the personalities of the programs you 

are executing in e normal way tSee "Gaming Environment' below I 




rt and whether they 



CPU MONITOR 

Add $2.00 tor postage and handling 



$47.95 




' t 



$13.95 



THE ORIGINAL GREEN-SCREEN 



The eye-pieasmg Green-Screen fits over the CRT ot your TRS-80 Video Display and gives you 
improved contrast with reduced glare You get bright, luminous green characters and 
graphics like those featured by very expensive CRT unite 

The Green Screen is closely matched to the color and texture ot the TRS-80 Video Display 
and improves the overall appearance of your system It is attached with adhesive strips. 
which do not mar your display unit in any way The Micro Mega Green-Screen gives improved 
video display visibility for all applications and is espcially effective in creating dramatic, 
high impact displays lor computer games /See "Gaming Environment" below , 

THE GREEN-SCREEN 

Add $1.00 for postage and handling 

THE ULTIMATE STAR TREK PACKAGE 

Tired of trivial computer games 7 This complete Ster Tre* package win provide you with endless fascination and challenge In addi- 
tion to the program cassette, it includes comprehensive instructions, a pad of "Voyage Log" record sheets, and a free-standing 
"Torpedo and Maneuvering Chart " 

The package is built around the latest version of Lance Mickius ' incomparable Star Trek III, a 
13.000 byte program with a host ot subtle and imaginative features, which include numerous 
dynamic and spectacular graphic displays Star Tree ill putt you in command ot the Enterprise 
cruising H a galaxy ot 197 quadrants tilled with uncharted hazards, including hostile Klmgons. 
pulsars, and black holes You have at your disposal scanners, various weapons and defense 
systems, onboard computers, and a loyal crew tYou will need them all to survive the 
Klmgons I 

Your mission is to rid the region of Klmgons and to locate five inhabitable planets, all within 
300 stardays. before returning to Star Fleet Headquarters where your overall effectiveness as $ 
starship commander wilt be scored High scroes are possible only with careful planning and et 

tectne battle tactics The Voyage Log sheets wilt guide your strategy, and the Torpedo and Maneuvering Chart' wiitgrve you e 
vital edge m combat iWhen you engage three Klmgon ships you can't afford to mist I 

STAR TREK PACKAGE (for Level II. 16Konly) $22.95 

Add $1.00 for postage and handling 

CREATE YOUR OWN SPECTACULAR 
GAMING ENVIRONMENT (and save S5.00) 

The Enterprise is >n battle trim with deflector shields at full power As her captain, you are taking her into combat The battle- 
stations siren rings m your ears and CONDITION RED" flashes on your monitor screen You call tor warp drive and key in the coor 
dmates ot the quadrant where your scanners have detected Klmgon ships As you select the warp factor, you hear the reassuring 
clicking ot your navagational gear as it activates the warp drive 

Suddenly, you break out ot hyperspace an<t your monitor display t the chilling sight of three Klmgon Battle Cruisers floating on your 
screen > Their evil shapes glow m luminous green against the black void ot space Moments later, you haer the characterittic rasp 
mg sound ot Klmgon laser weapons, and. as you watch, high+nergy beems come kmting toward the Enterprise m succession trom 
each of the Klmgon ships 

You have been hit' You hear the dismal sound of the damage control alarm as DAMAGE TO WARP DRIVE" and DAMAGE TO 
PMASERS" flash on your screen The Klmgons have stopped firing ' The Enterprise it crippled, but youi best weapon is still intact. 
and it's your turn now' You key in the command lor photon torpedoes As your screen again displays the position of the Klmgon 
ships you select a firing vector from your torpedo chart and key it m Now you heer the buzz ot your photon torpedo at you tee it 
speeding toward a Klmgon ship it strikes him dead<enter' As you watch, the Klmgon Battle Cruiser disintegrates, accompanied 
by a satisfying crackling sound 

Does the above scenario sound tar-fetched 7 Not at all. it's a small sample ot what you will experience with Micro-Mega s Gaming 
Environment, which constttt ot • The STAR TREK PACKAGE • The GREEN SCREEN and • The CPU MONITOR The fast paced 
and dynamic action reflects the superb Star Trek III program together with the Voyage Log ' and "Torpedo Chart" of the Star Trek 
Package Ait of the unique graphic displays are greatly enhanced by the Green Screen Finally, the uncanny sound effects are pre 
ducedby the CPU Monitor, which faithfully pKks up the FOR. NEXT loops and other CPU patterns, which create the distinctive 
siren sounds that accompany the ALERT and DAMAGE messages along with the harther notes of the weapons salvos Once 
you've tried it, you won't any longer be satisfied with silent computer games 

Remember that with the Gaming Environment you alto get all of the other excellent features of the CPU Monitor and the Green 
Screen tor non gaming applications You also save S5 00 off the combined cost ot the individual items 

$79.85 



GAMING ENVIRONMENT. 

Add $3.50 for postage and handling 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown for postage and handling to price of the item. All items shipped within 48 
hours by first class or priority mail. Virginia residents, add 4% sales tax. 
••29 



Micro -Mega • P.O. Box B265 • Arlington, Va 22206 



s Reader Service— see page 226 
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UTILITY 



Article storage and retrieval made easy. 



Reference Library Index 



James P. Morgan 
238&B Ash Creek 
Scott A FB, I L 62225 



Tired of wading through a 
foot-high stack of computer 
publications looking for a speci- 
fic article? Why not let your 
computer do it for you? 

Better yet, put your micro to 
work building a cross-index of 
your entire inventory of comput- 
er publications— past, present 
and future. 

The following program pro- 
vides a system of cataloging, 



storing and retrieving specific 
articles from your library. It is 
designed for the TRS-80 Level II 
with 16K. 

Program Details 

The program begins with a 
menu. They are as follows: A— 
instructions, B— retrieve list 
from internal data, C— read tape 
file and list and D— create data 
file on tape. Selection is made 
from the keyboard using IN- 
KEY$ (lines 110 to 150). An error 
trap is located at line 150. 

The instructions provide gen- 
eral information about the pro- 
gram. 

The retrieve list from internal 
data option first prints the in- 
dexing format (Table 1) called 



SYSTEM CATEGORY 

1 . HARDWARE 2. SOFTWARE 



3. LANGUAGE 



1. TRS-80 1. INTERFACE 1. BUSINESS 1. BASIC 

2 KIM 2. CASSETTE 2. HOME 2. MACHINE 

3 PET 3. DISK 3. GAMES 3. FORTRAN 

4. APPLE 4. PRINTERS 4. GRAPHICS 4, PASCAL 

5. HEATH 5. DISPLAYS 5. EDUCATIONAL 5. GENERAL 

6. SWTP 6. I/O 6. GENERAL 

7. ALTAIR 7. KEYBOAROS 

8. ELF 8. SYNTHESIZERS 

9. GENERAL 9. GENERAL 

The user first enters the system number, then one of the three categories, and 
finally the specific topic from the category selected. If a complete listing of all ar- 
ticles tor a given system is required, enter a when asked to input the category. 

Table 1 



from subroutine 1000. 

Next, the program asks for 
three inputs, used to retrieve se- 
lected articles from an internal 
data source beginning at line 
3000. Enter the system number, 
the category number and the 
topic number in turn. These 
three codes are compared to 
each READ execution at line 250 
for a positive match. If all three 
match the data provided, the ar- 
ticle is printed by line 260. 

By entering a at line 190, the 
user can select all the articles 
pertaining to a specific system. 
This is accomplished at line 245 
which branches directly to the 
PRINT line at 260. 

A paging routine using the 
variable D as a counter Is provid- 
ed by lines 220, 260 and 270 
through 300. The advantage of 
retrieving data from internal 
storage is speed; its disadvan- 
tage is the memory overhead re- 
quired. I have listed a sample 
block of data starting at line 
3000 which pertains to my own 
particular interests. A more 
comprehensive, although appre- 
ciably slower, option is dis- 
cussed in the next paragraph. 

The C option, "read tape file 
and list," allows the user to se- 
lect and list articles from tape 
storage. The listing begins at 
line 440 and runs through line 
660. This routine is essentially 



the same as the internal option, 
but uses a tape file to provide 
data. 

Once again, the indexing 
scheme is presented via subrou- 
tine 1000. The user enters the 
system, category and topic 
numbers that select articles at 
line 540. 

If the user selects in re- 
sponse to the category input, 
the program provides a com- 
plete listing of all articles filed 
under a specific system. Paging 
is provided at lines 560-580. An 
escape option is found at line 
565 which allows the user to re- 
turn to the menu during the pag- 
ing routine. 

Although this method of data 
storage is not as fast as an inter- 
nal data bank, it is fast enough 
to scan an entire file of Micro- 
computing articles for a year's 
period in about 20 minutes. I've 
spent about twice that time dig- 
ging out an article of interest 
from past issues, so the pro- 
gram results in definite time sav- 
ings. 

The final option is the routine 
that creates a tape data file. As 
with the rest of the program, it is 
self prompting. This segment 
begins at line 2000 and ends at 
line 2160. The indexing scheme 
is presented prior to input so 
you can assign Index values to a 
given article. 
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I found it very easy to load 
data using the table of contents 
of most magazines. Once I had 
loaded my entire library of publi- 
cations, It only required about 
ten minutes to write each new 
issue's articles to tape storage. 



Other modifications could be 
made to include disk storage in 
place of cassettes and line or 
screen printer options. As writ- 
ten, it should prove a more than 
adequate method of cross-in- 
dexing for the TRS-80 owner. ■ 



22! 

231 



Program Listing 

10 REM **• ARTICLE INDEXER »** 
20 REM *** BY JAMES p. »ORGAN SEP 79 •** 
30 REM *«* POR TRS-80 LEVEL ii , 16K ••• 
40 CLS:CLEAR 200 

50 REM **• POKE STATEMENT FOR REVISION G, TRS-80 *«* 

60 POKE 16553,255 

70 PRINT020, "COMPUTER ARTICLE CROSS INDEXER" : PRINT 

80 PRINT'SELECT YOUR OPTION FROM THE FOLLOWING LIST. JU 

ST 
90 PRINT" PRESS THE KEY CORRESPONDING TO YOUR CHOICE. ":P 

RINT 
100 PRINT"A»INSTRUCTIONS","B-RETRIVE LIST FROM INTERNAL 

DATA" 
105 PRINT"C-READ TAPE FILE AND LIST" , "D-CREATE DATA FIL 

E ON TAPE" 
110 BS-INKEY$:IF BS-"" THEN 110 
120 IF B$-"A" THEN 1200 
130 IF BS-"B" THEN 170 
140 IF BS-"C" THEN 440 
145 IF BS-"D" THEN 160 
150 CLS:PRINT"i DON'T UNDERSTAND. SELECT A,B,C,OR D.":G 

OTO 80 
160 GOTO 2000 

170 RESTORE :CLS:GOSUB 1000 
180 PRINT: INPUT'ENTER SYSTEM »";A1 
190 INPUT"ENTER CATEGORY I. ENTER ' ' TO SEE ALL SYSTEM 

ARTICLES." ;B1 
195 IF Bl-0 THEN 220 
200 INPUT'ENTER TOPIC I";C1 
210 REM *** READ AND PRINT DATA **• 

D-0sCLS: PRINT020, "SELECTED ARTICLES" : PRINT 
READ A,B,C,A$ 
240 IF A-0 THEN 310 
245 IF A-Al AND Bl-0 THEN 260 

250 IF A-Al AND B-Bl AND C-Cl THEN 260 ELSE 230 
260 PRINTA$:D«D+1 
270 IF D-12 THEN 280 ELSE 230 

280 PRINT'PRESS ANY KEY WHEN FINISHED WITH THIS PAGE." 
290 B$»INKEY$:IF B$»"" THEN 290 
300 GOTO 220 
310 RESTORE: PRINT: PRINT "OUT OF DATA. TYPE 'A 1 FOR NEW L 

1ST, 'B' TO INPUT ADDITIONAL 
320 PRINT'DATA FROM TAPE, OR 'C TO EXIT PROGRAM." 
330 B$-INKEY$:IF BS-"" THEN 330 
340 IF B$-"A" THEN 170 
350 IF B$-"B" THEN 450 
360 IF BS-"C" THEN 1500 

370 CLS:PRINT"I DON'T UNDERSTAND. TRY AGAIN. ":GOTO 310 
440 PRINT"PREPARE RECORDER FOR DATA INPUT. ": FORX-1TO150 

0:NEXT 
450 CLStGOSUB 1000 

460 PRINT: INPUT'ENTER SYSTEM »";A1 
470 INPUT "ENTER CATEGORY #. ENTER 

M ARTICLES" ;B1 
475 IF Bl-0 THEN 510 
480 INPUT "ENTER TOPIC «";C1 
490 CLS 

510 CLS :D-0:PRINTe20, "SELECTED ARTICLES" : PRINT 
520 INPUTI-1, A,B,C,A$ 
530 IF A-0 THEN 600 
535 IF Bl-0 AND Al-A THEN 550 

540 IF A-Al AND B-Bl AND C-Cl THEN 550 ELSE 520 
550 PRINTAS :D-D+1 
560 IF D-ll THEN 570 ELSE 520 
570 PRINT: PRINT "HIT 'E' TO ESCAPE. HIT ANY KEY WHEN FIN 

ISHED WITH THIS PAGE." 
580 BS-INKEYS: IFB$-"" THEN 580 
585 IF B$-"E" THEN 40 
590 GOTO 510 
600 PRINT'OUT OF DATA. TYPE 'A' FOR NEW LIST, 'B' TO IN 

PUT ADDITIONAL 
610 PRINT'DATA FROM ANOTHER TAPE, OR ' C TO EXIT PROGRA 

M." 
620 B$-INKEY$:IF B$-"" THEN 620 
630 IF B$-"A" THEN 450 
640 IF B$-"B" THEN 500 
650 IP B$-"C" THEN 1500 
660 CLS: PRINT"i DON'T 
1000 CLS: PRINT "SYSTEM 

T 
1010 PRINTTAB(16) "1. HARDWARE" , "2 . SOFTWARE" , "3 . LANGUA 

GE" 
1020 PRINT STRINGS(60,*-") 
1030 PRINT'l. TRS-80", "1. INTERFACE" , "1 . BUSINESS" , "1 . 

BASIC" 



1 0" TO SEE ALL SYSTE 



UNDERSTAND, TRY AGAIN." :GOTO 60 
CATEGORY ":PRIN 



1040 
1050 

1060 

1070 

1080 
1090 
1100 
1110 
1120 
1200 
1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 
1320 
1330 
1340 
1500 
2000 
2010 
2020 
2040 

2050 

2055 
2060 

2061 

2062 
2064 
2068 
207 
2080 
2090 

2100 

2110 
2120 
2130 

2140 
2150 
2160 
300B 
3010 
3020 
3030 

3040 

3050 

3060 

307 

3080 

3090 

3100 

3110 
3120 

3130 

3140 

3150 
3160 
3170 
3180 
3190 
3200 

3210 

3220 
3230 



PRINT"2. KIM", "2. CASSETTE" , "2. HOME", "2. MACHINE" 

PRINT"3. PET", "3. DISC", "3. GAMES", "3. FORTRAN" 

PRINT"4. APPLE", "4. PRINTERS" , "4 . GRAPHICS' , "4 . PA 

SCAL" 

PRINT'S. HEATH", "5. DISPLAYS" , "5 . EDUCATIONAL" , "5 . 

GENERAL" 
PRINT"6. SWPT","6. i/o","6. GENERAL" 
PRINT"7. ALTAIR","7. KEYBOARDS' 
PRINT'8. ELF", "8. SYNTHESIZERS" 
PRINT"9. GENERAL", "9. GENERAL* 
RETURN 

REM *** INSTRUCTIONS *•* 

CLS: PRINT "THIS PROGRAM PROVIDES YOU WITH h METHOD 
OF STORING AND 

PRINT'RETRIVING SELECTED ARTICLES FROM YOUR REFERE 
NCE LIBRARY. 
PRINT'YOU CAN STORE DATA INTERNALLY, CREATE A TAPE 

DATA FILE, AND 
PRINT'SEARCH A TAPE FILE FOR SPECIFIC ARTICLES. TH 
E KEY TO THE 

PRINT'PROGRAM KS AN INDEXING SYSTEM WHICH CATEGORI 
ZES THE ARTICLES 

PRINT'SYSTEMATICALLY. iNTERNAL DATA CAN BE STORED 
FROM LINE 

PRINT"3000 ON. IT IS LIMITED ONLY BY THE MEMORY AV 
AILABLE. THE 

PRINT'TAPE STORAGE METHOD IS UNLIMITED IN SPACE, B 
UT IS A SLOWER 

PRINT "METHOD OF EXTRACTING DATA. THE PROGRAM IS SE 
LF-PROMPTING 

PRINT'THROUGHOUT. JUST POLLOW THE DIRECTIONS AND Y 
OU SHOULD HAVE 

PRINT'NO TROUBLE CATELOGING YOUR ENTIRE LIBRARY." 
PRINT: PRINT "PRESS ANY KEY TO RETURN TO THE MENU." 
B$-INKEY$:IF B$-"THEN 1330 
CLS:GOTO70 
CLS : END 

REM **« CASSETTE DATA WRITE **• 
CLS: PRINT "CASSETTE DATA WRITE": PRINT 
PRINT"PREPARE CASSETTE AND TAPE FOR RECORDING." 
PRINT :PRINT"ENTER SYSTEM I, CATEGORY #, TOPIC #, A 
ND ARTICLE TITLE, 

PRINT "PUBLICATION, DATE, AND PAGE. THE ENTIRE ARTI 
CLE MUST BE 
PRINT "ENCLOSED IN QUO 

PRINT'MARK THE END OF A TAPE WITH A SERIES OF ZERO 
S." 

PRINT'TYPE AN 'E' TO LEAVE THE WRITE ROUTINE. HIT 
ANY KEY TO CONTINUE." 
BS-INKEYS: IFBS«""THEN 2062 
IF BS-"E" THEN 2130 
CLS:GOSUB 1000 
PRINT: INPUT"SYSTEM t";A 
IF A-0 THEN 2130 

INPUT'CATEGORY, TOPIC #. SEPARATE WITH A COMMA" ;B, 
C 
INPUT'TITLE, PUBLICATION, ISSUE, AND PAGE#~ALL IN 

QUOTES"; AS 
PRINTI-1, A,B,C,A$ 
CLS: GOTO 2068 

CLS: PR I NT "DATA WRITE COMPLETE. NOTE TAPE COUNTER A 
ND LOG IN." 

PRINT'HIT ANY KEY TO RETURN TO THE MENU." 
BS-INKEY$: IF B$-""THEN 2150 
CLS:GOTO 70 

DATA 1,2,1, "INVENTORY, TRS-80, KB; FEB 79, P 64" 
DATA 9, 2, 2, "SIMPLER INTEREST, KB, FEB 7 9, P 116" 
DATA 9,2,1, "SIMPLER INTEREST, KB, FEB 79, P 116" 
DATA 1,2,3, "KEYBOARD INTERRUPT-TRS 80, KB, MAR 7 9, 

P. 128" 
DATA 1,1, 9, "A LOOK AT 80 PERIPHERALS, KB, APR 79, 
P. 22" 

DATA 1,2,3, "FREE SPBACH LESSONS, 80, KB, APR 79, P. 
66" 

DATA 1,1,2, "TWIN CASSETTES FOR 80, KB, APR 79. P. 
84" 



KB, APR 79, P. 1 



P. 



P. 



DATA 1,2,6, "A LOOK INSIDE THE 8 

20" 

DATA 1,2,1, "A TRS-80 CROSS INDEX, KB, MAY 79, 

4" 

DATA 1,2, 4, "GRAPHING WITH THE 00, KB, MAY 79, 

00" 

DATA 1,1, 4, "80 SELECTRIC WORD PROCESSOR, KB, JUN 7 

9, P. 32" 

DATA 1,2,3, "S ARGON MEETS 80, KB, JUL 79, P. 58" 

DATA 1,2,4, "GETTING THE MOST OUT OF 80. KB, JUL 7 9 

, P. 112" 

DATA 1,1, 2, "TELEPRINTER OUTPUT FOR 80, KB, AUG 79, 

P. 38" 
DATA 1,3,2, "MACHINE LANG MONITOR FOR 80, KB, AUG 79 
,P.114" 

DATA 1,1,9,"TRS SPEED UP, KB, SEP 79, P. 138" 
DATA 9,2,3, "SUPER MASTER MIND, KB, FEB 79, P. 100" 
DATA 9,2,3, "CHESS PAWN, KB, MAR 79, P. 76" 
DATA 9,2,3, "TWO DIAMONDS, KB, APR 79, P. 115" 
DATA 9, 2, 3, "A GAME OF DARTS, KB, MAY 79, P. 78" 
DATA 9 , 2 , 4 , "VECTOR GRAPHING TECH. KB, JUN 79, P. 6 
4" 

DATA 9, 2, 4, "A CIRCULAR HANDLE ON GRAPHICS, KB, JUL 
79, P. 76" 

DATA 9, 2, 3, "NERVES, KB, AUG 79, P. 100" 
DATA 0,0,0, a 0" 
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CA1/C / add-ons for TRS-80® 
iJ/W ML/ Software and Hardwc 



A new enhonced NEWDOS for the TRS-OO. 

The most powerful Disk Operoriog System foe rhe TRS 60 
designed for the sophisticated user and professional program- 
mer who demands rhe ultimate 

NEWDOS/80 is rhe planned upgrode from NEWDOS 2 1 
Some of the fearures are 

• New DASIC commands for files with variable record 
lengrhs up ro 4095 

• Mix or march drives Use 35 40 or SO track 5" disk 
drives or 8" disk drives, or combo 

• Security boor- up for DASIC ex machine code applica- 
tion programs 

• New editing commands 

• Enhonced fCENUMber rhor ollows relocation 

• Command chaining 

• Device handling for routing to display ond printer 
simultaneously 

• DFG function, striking of D. Fond G keys allows user to 
enter a mini-DOS without disturbing progrom 

• Comparible with NEWDOS G TRSDOS 

• Mochme longuoge Superzap/80 2 1 $A AQ 

and enhanced debua and cooy I ^» * 



TF-8 60 TRACK DISK DRIVE 

Double Ycur Copocify 

TF-9 DUAL 60 TRACK DISK DRIVE 

Quadruple Your Capacity 



$ 639 
$ 799 



Disk Drive Sale! 

Compter* witr» power supply ond dvxta 

TF 3 Shugorr SA400 $359 ■■ 

Pertec FD200 40 rrock S389 


T*"5MPID51 40rrock 
TF7 Micropolis 77 rrock 
TDH- 1 Dual Sided drive 35 rrock 


S379 r^"- 
S595 __ 
S499 mmmMM 



NEWDOS • 

40 rrock >1 10 35 rrock $99 

Microconducror Dora Dose Mgr 

Modi $249 Mod II $399 

AJA Business Pgk $269 

Disk Heod Oeoner $16.95 

Disk Alignment Pgm. $ 1 09 

Drives for any Microcomputer 

Does not include power supply 6- cabinet. 
Pertec FD200 $282 FD250 $399 

ShugortSA400 $279 SA600/601 $479 

MPID51 $279 352 $049 



Printers 

Centronic 779 $1,069 

Dose 2 $599 

Centronic 737 $699 

Centronics 702-9 $1,695 

Anodex950l $1,595 

Mahbu $2,495 




jpinwriter 



$2,549 



Apparatlnc. 



(303) 741-J77» 
/310 fc Pr.norton Av« • D«nv«r. CO *»37 • (303) 76i-7275 

Al prices cash dfecounted/F 




FACTORY 

CLEARANCE 

Demo single or dual head MPI disc 
drive complete wirh Power Supply 
ond Chassis Full warranty 

TF5D40TK *279 

TDH-1DDuoI35TK *41 9 
limited quantities 

[Announcing 
8" Floppy Disk Drive System 

for Model I 



• One SA801 Floppy 

• NEWDOS 80 

• Coble (j Adopter 

M095 

Disk Expansion System 

• 2 Shugon SA400 TF-3 $7 1 o 

• 1 Two- Drive Coble $ 25 

• 1 Expansion Inrerfoce 32K $469 

• 1 35 -track DOS' $ 99 
TOTAL LIST PRICE $1331 




SPECIAL PRICE ONLY 



$1,199 



Some os above bur 

includes TRS-80 * ****.* * 

Dual II $1984 

MOD II 8" Disk System 

• 1 Dnve Sysrem $899 

• 2 Dove Exponsion 1 . |1|V77 

More Savings 

-» ^ Introductory Offer— 

Sove $250 TRS-oO 
Graphics Okidoro 
Microline flO . . . 
Lisr $949 

Our Price 



— -'• 



$ 699 



Memory Kir (16K) 


$64.00 


AC Isolator (6 socker) 


$47.95 


Modem 


$164.00 


Diskettes (10) 


$30.00 



an 



/MCROCOW0TB? — 

TECHNOLOGY 
NCORPO&ATED "» VJ11 



TX67fi40 
TAD-INN 



• Santo Ana. CA 92704 • [714} 979 9923 

Ask for our free catalog. 




Apparat. Inc., announces the most 
powerful Disk Operating System for the 
TRS-80®. It has been designed for the 
sophisticated user and professional 
programmer who demands the ultimate 
in disk operating systems. 

NEWDOS/80 is not meant to replace 
the present version of NEWDOS 2.1 
which satisfies most users, but is a 
carefully planned upward enhance- 
ment, which significantly extends 
NEWDOS 2.1*8 capabilities. This new 
member to the Apparat NEWDOS' 
family is upward compatible with 
present NEWDOS 2.1 and is supplied 
on Diskette, complete with enhanced 
NEWDOS + utility programs and 
documentation. Some of the 
NEWDOS/80 features are: 

• New BASIC commands that 
supports files with variable record 
lengths up to 4095 Bytes long. 

• Mix or match disk drives. Supports 
any track count from 18 to 80. Use 



35, 40 or 77 track 5" mini disks drives 
or 8" disk drives, oranycombination. 

• A security boot-up for BASIC or 
machine code application programs. 
User never sees "DOS READY" or 
">READY" and is unable to 
"BREAK ", clear screen, or issue 
any direct BASIC statement 
including "LIST". 

• New editing commands that allow 
program lines to bedeleted from one 
location and moved to another or to 
allow the duplication of a program 
line with the deletion of the original. 

• Enhanced and improved 
RENUMBER that allows relocation 
of subroutines. 

• Powerful chaining commands. 

• Print Spooler. 

• DFG function; simultaneous striking 
of the D, F and G keys will allow 
the user to enter a mini-DOS 

to perform some DOS commands 
without disturbing the resident 
program, (e.g. dir while in scripsit.) 



• Upward compatible with NEWDOS 
2.1 and TRSDOS 2.3. 

• Includes machine language 
Superzap/80 and all Apparat 2.1 
utilities. 

• Enter debug any time by pressing 
123 keys. Also allows disk I/O. 

• Diskette "Purge" command. 

• Specifiable system options (limited 
sysgen type commands). 

• Increased directory capacity. 

• Copy by file commands. 

NEWDOS/80 with all of the 
NEWDOS ♦ utility programs, many of 
which have been enhanced, is priced at 
just $149.00 and is available at most 
TRS-80 dealers. 

As with 2.1, NEWDOS/80 relies on 
the TRSDOS and Disk Basic Reference 
Manual published by Radio Shack. 
NEWDOS/80 documentation supports 
its enhancements and upgrades only. 



^264 





Apparat, Inc. 



EA 



/MlCROCQ/tlPUrER 

TECHNOLOGY 
INCORPORATED ^ 



TO PURCHASE NEWDOS/80, COMPLETE AND MAIL TO: 

Apparat, Inc. Microcomputer Technology, Inc. 



4401 S. Tamarac Parkway 
Denver, CO 80237 
303/753-7275 303/741-1778 

D Money Order 



3304 W. MacArthur Blvd. 
Santa Ana, CA 92704 
714/979-9923 



□ Master Charge D Visa 
Expiration Date 
Cal residents add 6% sales tax 



a Check 

Card No 

Colo residents add 6 5% sales ta> 

Add S 10 00 postage and handling 

Please rush NEWDOS/80 (a> $149 EACH TO: 



Name 




*- Reader Service— see page 226 
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UTILITY 



Professionalize your program titles. 



Position Display 



Jerry Frost 

3398 Sir Henry Street 

East Point, GA 30344 



Taking the lead from James J. 
Brennan, whose "Digital 
Time Clock" program appeared 
in the "Little Bits" column of 
Kilobaud in the January 1979 
issue, I have written a subrou- 



Program Listing 



SUBROUTINE - VERSION 1.3 



30000 

30010 
30020 
30030 
30040 
30050 



30060 ' 
30070 " 
30080 REM ** SUBROUTINE LINES TO LEFT AND RIGHT JUSTIFY 



30090 REM 



<AS> AT 13 DIFFERENT SCREEN POSITIONS 



30100 ' 

30110 ' 

30120 ' JUSTIFY <AS> AND DISPLAY AT SCREEN POSITION 64 

30130 ' 

30140 P=32-LEN(A$)/2+64:TH=0:BH=8:LV=32-LEN(AS)/2:RV»32 

+LEN ( A$)/ 2+6 4 :GOSUB30900:PRINT5P,A$;: RETURN 
30150 ' 

30160 ' JUSTIFY <AS> AND DISPLAY AT SCREEN POSITION 128 
30170 ' 
30180 P«32-LEN(A$)/2+128:TH=3:BH=ll:LV=32-LEN(AS)/2:RV= 

32+LEN(A$)/2+6 4:GOSUB3090 0:PRINTgP,AS;:RETURN 
30190 ' 

30200 ' JUSTIFY <AS> AND DISPLAY AT SCREEN POSITION 192 
30210 ' 
30220 P-32-LEN(A5)/2+192:TH-6:BH-14:LV=32-LEN(A$)/2:RV- 

3 2+LEN (AS)/ 2+64 :GOSUB30900:PRINT0P,A$;: RETURN 
30230 ' 

30240 ' JUSTIFY <A$> AND DISPLAY AT SCREEN POSITION 256 
30250 ' 
30 26 P=32-LEN(AS)/2+256:TH=9:BH=17:LV=32-LEN(AS)/2:RV= 

32 + LEN( AS 1/2+64 :GOSUB30900:PRINTPP, AS;: RETURN 
30270 ' 

30280 ' JUSTIFY <AS> AND DISPLAY AT SCREEN POSITION 320 
30290 ' 
30300 P=32-LEN(A$)/2+320:TH=12:BH«20:LV=32-LEN(A$)/2:RV 

=32+LEN(AS)/2+6 4:GOSUB3090 0:PRINTPP,AS; : RETURN 
30310 ' 

30320 ' JUSTIFY <AS> AND DISPLAY AT SCREEN POSITION 384 
30330 ' 
30 340 P=32-LEN(AS)/2+384:TH=15:BH=23:LV=32-LEN(A$)/2:RV 

=32+LEN(A$)/2+6 4:GOSUB30900:PRINT@P,A$; : RETURN 
30350 ' 
30360 ' JUSTIFY <A$> AND DISPLAY AT SCREEN POSITION 448 

(SCREEN CENTER) 
30370 ■ 

30 3 80 P-32-LEN(AS)/2+448:T!!«18:BH-26:LV-32-LEN(A$)/2:RV 
-32+LEN(AS)/2+6 4:GOSUB3090 0:PRINT8P,AS;:RETURN 



tine for the TRS-80. I call it 
POSDIS, an acronym for Posi- 
tion Display. It is useful and 
saves time. 

POSDIS will let you: display a 
title in your program or have a 
message stand out from the rest 
of the text; to left and right 
justify the title; to position it on 
the screen by a PRINT® state- 
ment; and finally, to graphically 
draw a border around it. 

Type the Program 

To show you the advantages 
of POSDIS, and to let the sub- 
routine speak for itself, type in 
the routine (see Program Listing 
1), SAVE it, and type the follow- 
ing program: 



10 CLS 

20 A$ = "THIS IS WHERE YOUR 

MESSAGE GOES" 
30 GOSUB 30380 
40 GOTO 40 



Now, RUN the program. 
Notice that your message is 
automatically left and right 
justified, a graphic border is 
drawn around it for a stand-out 
effect, and the whole thing is 
displayed at the center of the 
screen. In a couple of seconds 
you have a nice looking display 
heading. 

Here is what happened. First, 
you defined GOSUB A$ as "This 
is where your message goes." 
Then you decided you wanted 
the message to appear at the 
center of the screen, so you 
entered GOSUB 30380, which is 
the routine that transported the 



message, justified it, sent it to 
line 30900 to calculate the 
graphic border and drew it 
before returning to the next line 
in your program (in this case line 
40). 

Suppose you want the mes- 
sage at the top of the screen. 
Just retype line 30 GOSUB 
30140. If you want the message 
at the bottom of the screen, re- 
type line 30 GOSUB 30620. Try it 
and see what happens. 

The subroutine at lines 30140 
through 30620 will print your 
message at 13 different screen 
display positions and must fol- 
low your A$ message as shown 
in the sample program. 

Three Subroutines 

Three other subroutines have 
been added. Two timing loop 
series for an automatic effect, 
and a routine, which will hold 
the display until the keyboard 
operator presses ENTER. 

For example, retype line 40 
GOSUB 30680. Run the program 
and notice that the message ap- 
pears with "PRESS ENTER TO 
CONTINUE" added to the bot- 
tom of the screen. 

If you want an automatic ef- 
fect, retype line 40 GOSUB 
30820 and add line 50 A$ = 
"THIS IS WHERE A SECOND 
MESSAGE GOES" : GOSUB 
30380 : GOSUB 30680. 

By using various screen dis- 
play positions, timing loops, 
and PRESS ENTER TO CON- 
TINUE your next program will 
have a professional look, ease 
of operation and simplicity.! 



150 • 80 Microcomputing, September 1980 



30390 




30630 






30400 


1 JUSTIFY <AS> AND DISPLAY AT SCREEN POSITION 512 


30640 


1 




30410 


• 


30650 


' 




30420 


P=32-LEN(A$)/2+512:TH«21:BH«29:LV=32-LEN(AS)/2:RV 


30660 


HUM 


** ROUTINE TO HALT DISPLAY UNTIL OPERATOR INP 




32 + LEN(AS)/2 + 6 4:GOSUB3090 0: PRINTS, AS;: RETURN 


UT ** 




30430 


• 


30670 


' 




30440 


' JUSTIFY <A$> AND DISPLAY AT SCREEN POSITION 576 


30680 


PRINT032-25/2+960, "PRESS <ENTER> TO CONTINUE" ;: IN 


30450 


■ 


PUTAS 


:CLS: RETURN 


30460 


P«32-LEN(AS)/2+576:TH=24:BH=32:LV*32-LEN(A$)/2:RV 


306 90 


* 






32 + LF.N(AS)/2+6 4:GOSUB30900:PRINT9P,AS; : RETURN 


30700 


■ 




30470 


• 


30710 


' 




30480 


' JUSTIFY <A$> AND DISPLAY AT SCREEN POSITION 640 


30720 


REM 


** TIMING LOOP ** 


30490 


• 








30500 


P-32-LEN(AS)/2+6 40:TH-27:BH-35:LV-32-LEN(AS)/2:RV 


307 48 


FOR 


X-l TO 500: NEXT X: RETURN 




32+LEN ( AS)/ 2+64 :GOSUB30900 : PRINT9P, AS;: RETURN 


30750 


FOR 


X-l TO 1000: NEXT X: RETURN 


30510 
30520 
30530 
30540 




30760 


FOR 


X-l TO 1500: NEXT X: RETURN 


' JUSTIFY <AS> AND DISPLAY AT SCREEN POSITION 704 
P-32-LEN(AS)/2+704:TH=30:BH=38:LV«32-LEN(AS)/2:RV 


30770 
30780 
30790 
30800 
30610 


FOR 
REM 


X«l TO 2000: NEXT X: RETURN 

*• TIMING LOOP THEN CLOSE SCREEN <CLS> ** 




32+LEN (AS)/ 2+64 : GOSUB30900 : PRINT9P, AS;: RETURN 


FOR 


X«l TO 500: NEXT X: CLS : RETURN 






30820 


FOR 


X=l TO 1000: NEXT X: CLS: RETURN 


30560 


' JUSTIFY <A$> AND DISPLAY AT SCREEN POSITION 768 


30830 


FOR 


X-l TO 1500: NEXT X: CLS: RETURN 


30570 




30840 


FOR 


X-l TO 2000: NEXT X: CLS: RETURN 


30580 


P»32-LEN(AS)/2+76 8:TH-33:BH-41:LV-32-LEN(AS)/2:RV 








-32+LEN ( AS )/2+6 4 :GOSUB30900:PRINTeP, AS;: RETURN 


30860 


i 




30590 


1 


30870 


• 




30600 


1 JUSTIFY <AS> AND DISPLAY AT SCREEN POSITION 832 


30880 


REM 


** SUBROUTINE TO DRAW BORDER AROUND <A$> ** 


30610 


' 


30890 


• 




30620 


P»32-LEN(A$)/2+832:TH»36:BH-44:LV-32-LEN(AS)/2:RV 


30900 


FOR 


X-LV TO RV:SET(X,TH) :SET(X,BH) : :NEXT X : FOR Y= 




=32+LEN(A$)/2+64:GOSUB3090 0:PRINT@P,A$;:RETURN 


TH TO BH:SET(LV,Y) :SET(RV,Y) :NEXT Y:RETURN 
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16K MEMORY 

EXPANSION KIT 

FOR YOUR TRS-80, 

APPLE, AND $-100 

COMPUTER 



on 



ly$59 



200 Nsec Access. 375 

Nsec Cycle 

Burned-in and Fully 

Tested 

1 yr. Parts Replacement 

Guarantee 

Qty. Discounts Available 



I (=* 

COTHPUTER DEVICES 

mo uj.couins Ave. 

OROnGE. CO 9*2668 
(714)633 T26Q 



Energy 
Conservation 
Module 
IRS-80 

Credit up lo >0' • ill ihr < n'l "I 1 nur I mitt Shut 

icmpcraiure measurement at up to foui 

indoor or outdoor locations. Controls up to 
four remote devices. F.xpandable to 253 

BASIC and Machine Language software 
documentation supplied. Runs in either with 
I evel II. Level I and TBUG machine lan- 
guage only 

Support software trees system to run other 
programs concurrently, updating only when 
changes occur. 

Ready to connect and use. Includes inter- 
race hardware, software documentation, and 
complete instructions. Assembled and tested 
Under S200.00 

Think Tank Labs + 376 

p.o. box 552 

melbourne, f lorida 32901 



<| Business Acxoi vrixr. tife 
i " Software * " 



Flexible cttcnl write-up/general ledger system designed by 
a I'PA and developed by a computer specialist lor CPA's, 
accountants and general businessmen provides large-scale 
computer features at micro-computer software costs: 

* lit sign ed for me ft i present employees 
' allows for up lo SOU accounts 

* dtpartmental financial statements including 
budgets 

* retains standard journal entries 

* automatic balancing of transactions 
' fast entry A posting of transactions 

* nut to follow audit trail 

* conventional accounting symbols used 

t-or 9-program package on diskette with user manual 
*:nd H95 to: 

Task Comptter Applications 

Dayton, Ohio PO Box 24001 
45424 

(513)233-5515 " 147 



"EASY-WORD" 

A WORD PROCESSOR 
for only $21 .95 

Required: TRS-80. 16K.TAPE. PRINTER 
Some of "EAST WORD" many features 




JUSTIFY • I 

UPPER CASE INDICATOR • VISUAL TARS 

LINE. CNAN6E. DELETE. INSERT. APPEND 

i WORD. CHANGE. DELETE. INSERT. APPEN0 
CENTER. SORT. AND MORE 



MODEL II SOFTWARE 

HOST 

HOST allows you complete control ul your Model II 
system 'rom a r emote location HOST wil' allow you 
to perform any Mode 1 II function as though you were 
actually sitting at the Keyboard yet still allows the 
Model II to operate normally With HOST you can 
send and receive programs data tiles access disk 
and printer Just connect your Model II via telephone 
or direct Ime to any standard terminal You can even 
use a second Mode II or a Model I as terminal 1 HOST 
gives you the power of a second computer system 
for only SI 39 L0 

SPRINT 

SPRINT adds a screen print command to your 
Model II The contents of the screen w>n be sent to 
your printer at the press of a key or by software con- 
trol SPRINT is loaded >n v>a DOS and remans « 
the system, letting you print out m DOS or BASIC 
SPRINT requires no modification lo your programs 
Only S19.M 

Order now from COMPU-SERVICCS 

P Bo> 324 
Somerset MA 02725 
^363 
TERMS Cash or Money Onle r Personal checks reouire 
3 weeks processing time Ada $2 00 'o' postage and 
shipping Mass residents add 5 ■ Sales Ta« 



■ Reader Service— see page 226 
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TUTORIAL 



A case for string packing. 



Stringy Machine Code 



David D. Grimes 
12949 W. Montana Dr. 
Lakewood, CO 80228 



The string packing technique 
for embedding machine lan- 
guage code in BASIC programs 
offers exciting possibilities and 
convenience to TRS-80 users. 



For BASIC programs with ma- 
chine language routines you no 
longer need to load a separate 
SYSTEM tape, specify a power 
up MEMORY SIZE or modify pro- 
grams for different RAM sizes. 

String packing takes care of 
these problems, making it possi- 
ble to wed BASIC and machine 
languages. 

Eliminates SYSTEM Tape 

For example, printing game 
instructions on the screen in 
machine language is difficult 
and tedious, but in BASIC it's 



10 POKE 16553,255 'FIXES ROM DATA READ BUG 

20 S$-"THIS STRING LENGTH IS 24" 
30 I=VARPTR(SS) 
40 JJ«PEEK(I+2)*256+PEEK(I+l) 
50 IF JJ>32767 THEN JJ — 1* (65536-JJ ) 
60 TOR P-JJ TO JJ+23 
70 READ D:POKE P,D:NEXT 
80 DATA 205,127,10,14,60,65,62,01, 
211,255,16,254,65,60, 
211,255,16,254,43,124,181,32,23 6,201 
90 POKE 16526, PEEKU + 1) :POKE 16527 , PEEK ( 1 + 2) 

100 ' 

110 ' 

120 CLS 

130 PRINT@0, "ENTER 'Y' OR 'N' ?" 

140 IF DE<100 GOTO 170 

150 X-USRU00) 'I BEEP HERE 

160 DE-0 

17 ZS=INKEYS 

180 IF ZS«"" THEN DE-DE+1:G0T0 130 

190 PRINTZS 

200 IF ZSO-Y" AND ZSO"N" THEN 150 

210 PRINT'THANK YOU 1" 

220 FOR DE»1 TO 500:NEXT 

300 PRINT'I AM SIMULATING BEING HARD AT WORK ON A PROGR 

AH. 

310 PRINT"I WILL TELL YOU WHEN I HAVE FINISHED BY 'BEEP 

ING' . 

320 PRINT'YOU CAN STOP THE BEEP AND RETURN TO THE LEVEL 
II 

330 PRINT" >READY BY PRESSING ANY KEY. 

340 FOR DE«1 TO 5000:NEXT 

350 X-USR(200) 'I BEEP HERE 

360 FOR DE«1 TO 500 

370 AS-INKEY$ 

380 IF A$<>"" THEN 410 

390 NEXT 

400 GOTO 350 

410 END 



Program Listing 1 



easy. Computing generations in 
the game of Life can take thirty 
seconds or more in BASIC, while 
it takes only fractions of a sec- 
ond in machine language. 

Having both languages in one 
program eliminates the need for 
SYSTEM tapes, because all data 
formerly on the SYSTEM tape 
can be CSAVEd as part of the 
BASIC program, and the BASIC 
program knows exactly where to 
find the machine language in 
RAM, via the USR command. 

Furthermore, since the ma- 
chine language is stored as part 
of the BASIC program, it isn't go- 
ing to overlay itself, so no upper 
RAM need be saved at power-up 
time. 

Let's examine a practical ap- 
plication using string packing - 
an audible prompt. The audible 
prompt (beep) is used when a 
program needs keyboard input, 
when an error is detected, or 
when a program has come to the 
end of its job, etc. 

Listing 1 is a listing of a short 
BASIC program that packs a 24 
byte machine language pro- 



gram into S$. The BASIC portion 
of the program controls the flow 
and execution, the machine lan- 
guage contributes only the 
beep. The audio signal is output 
to the plug, which normally goes 
to the AUX jack in the cassette 
recorder. This plug must con- 
nect with an audio amplifier, 
such as a Radio Shack Micro- 
sonic Speaker Amplifier (277- 
1008). 

Table 1 gives a detailed de- 
scription of the packing of the 
machine language routine. Note 
that it is executed only once, not 
each time that a prompt is 
sounded. 

The Program 

Lines 120-210 (Listing 1) set 
up a prompt for keyboard Input. 
If no entry is made, a prompt 
sounds every four seconds, if an 
incorrect entry is made, the 
prompt sounds instantly. 

Line 150 jumps to the packed 
subroutine, which generates the 
sound and then returns to 
BASIC at the next line. If the cor- 
rect entry is made, the program 



Line Description 

10 Fixes ROM Dug lor reading DATA statements 

20 Defines string of sufficient length into which machine language will be 

packed 
30 Finds address of S$ information block 
40 Computes decimal address of location of SS 
50 Adjustment for RAM sizes up to 16K 
60 Sets up loop 
70 POKES DATA into string 
80 Machine language code In decimal 
90 POKES address of S$ into USR area, so that BASIC program can find it 

when USR call is made 

Table 1. Subroutine Initializer 
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continues to line 210. 

Lines 300-410 could, as in 
this case, be put at the end of 
any program to announce an 
audible end of job. The beep 
continues every few seconds 
until any key is depressed. 

Once the program is working, 
any attempt to LIST it causes 
the screen to roll and looks 
somewhat like a bad load from 
tape. This is because BASIC is 
attempting to print something 
which it does not normally see, 
namely machine language in S$. 

At this point, you should 
CSAVE the program, because 
we are going to delete part of it 
to save RAM. After the program 
has run successfully, the DATA 
in line 80 are obviously packed 
into S$ as a working machine 
language subroutine, so lines 40 
through 80 are redundant and 
can be deleted. 

When we CLOAD the program 
again, the subroutine will be in 
S$, just as it is now and needn't 
be packed again. After deleting 
lines 40 through 80, CSAVE the 
program again (see Restric- 



tions). 

The argument in the USR 
command determines the 
length of the tone. Larger values 
(up to 32767) cause longer 
beeps. A value of more than 
1000 or so causes a very long 
tone. 

The pitch is controlled by the 
fifth DATA element in line 80. In 
the example it is 60. Larger 
values give a lower pitch. The 
value must not exceed 255. 

Restrictions 

1, DATA elements to be 
packed must not have the value 
or 34. Either terminates the 
string when packed. 

2. If lines 40 through 80 are 
deleted after the string is 
packed, certain conditions can 
cause the program to bomb; if 
you modify the BASIC program, 
for example. This can be avoid- 
ed by not deleting the string 
packing code until a final ver- 
sion of the program is produced, 
or by not deleting the lines at all, 
if RAM use is not a considera- 
tion. ■ 




The world's most popular microcomputer, with 16K of memory 
and Level II BASIC for only $685.00 complete with full 90-day 
Radio Shack warranty. 

We accept check, money order or phone orders with 
Visa or Master Charge. (Shipping costs added to 
charge orders). 

Disk drives, printers, peripherals, software & games. . . 
you name it, we've got it 
(both Radio Shack & other 
brands). Write or call for 
our complete price list. 



ELECTRONICS 
MART, LTD. 




AUTHORIZED 
DEALERSHIP 



Radio /hack 



32 EAST MAIN • MILAN, MICHIGAN 48160 • (313) 439-1508 



PRINTERS & CRT'S From Orange micro 




ba/e^ if 



IMPACT PRINTER 



s 649. 



00 



(LIST $699.00) 

"The BASE 2 outperforms every printer in 
its price range. Do a comparison and see for 
yourself . . ." 
• GRAPHICS • TRACTORS/ FRICTION FEED 

• 2K Input Buffer • RS-232 Serial, Centronics® Parallel, 
IEEE-488, 20 ma • TRS-80 Cable option • 60 LPM - 100 
CPS • Fast form feed • User programmable character 
set • 64, 72, 80, 96, 120, 132 Columns/ line • Expanded 
characters • 9.5" wide paper • Automatic skip-over- 
perforation • Horizontal & Vertical tabs • Programmable 
vertical line spacing • Intel 8085 Microprocessor — over 
40 software commands • Self test • 15 Baud rates to 
9600 Baud • Optional foreign character sets 

Interfaces to TRS-80, Apple, Atari, PET, Northstar, and most 
other computers. 




TELEVIDEO CRT'S 

PRICES SLASHED! 



TVI912C 
TVI 920C 



} 



Please Call Toll Free 
Prices are too low to 
advertise 



PRINTERS 

OKIDATA 



CENTRONICS 

779 w/tractors SCall 

730 SCall 

737 849 

COMPRINT 

912 Parallel 499 

912 Serial 535 



Microline80 639 

w/tractors 739 

PAPER TIGER 

w/graphics 948 

QUME 

Lette, Quality 5/45 2499 

w/tractors 2684 



TOLL FREE (800) 854-8275 

CALIF. (714)630-3322 



Call for FREE CATALOG 



TE. 



Phone orders WELCOME Same day 
shipment for VISA. MASTER 
CHARGE, and AMERICAN EX 
PRESS Personal checks require 2 
weeks to clear. Add 3% for ship- 
ping and handling. California resi- 
dents add 6% Manufacturer's 
warranty included. Prices subject to 
revision. I 



Orange 
micro 



^296 

3148 E. La Palma, Suite E 
Anaheim, CA 92806 
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REVIEW 



A look at Tandy's talker. 



Eloquent Eighties 



TRS-80 Voice Synthesizer 
Radio Shack 
Tandy Corporation 
Ft. Worth, TX 76102 
$399 

Jim Wright 

10140 N. W. 43rd St. 

Coral Springs, FL 33065 



It's magic, absolute magic! A 
12" x 6" x 4" box of capac- 
itors, resistors, transistors and 
integrated circuits is talking to 
me in plain English. Not only is it 
talking, but it says anything that 
I ask it to, including some very 
funny sound effects. 

I suppose my engineering 
background and our nation's 
ability to put men on the moon 
should have prepared me for 
this. Nonetheless, I am still 
amazed at the marvels in our 
growing level of consumer tech- 
nology. 

Loading the Demo Tape 

I picked up one of Radio 
Shack's Voice Synthesizers, in 
spite of its $399 price tag. 

The Voice Synthesizer is a 
completely self-contained unit. 



Like its host, the TRS-80, it uses 
a separate in-line step-down 
transformer. The synthesizer 
can be used on any Level I or II 
TRS-80 and attaches by a ribbon 
cable and 40-pin connector ex- 
pansion port. 

For those of you who have the 
expansion interface, the synthe- 
sizer connects to your parallel 
interface port on the left side of 
the unit. Once connected, you 
turn on the synthesizer, adjust 
the volume and begin program- 
ming. 

Radio Shack was thoughtful 
enough to include a demonstra- 
tion cassette tape with the syn- 
thesizer. Unfortunately, the 
manual I received made no men- 
tion of the cassette! However, 
by increasing the tape player's 
volume level to about 6.5, the 
cassette finally loaded. 

After typing RUN, the TRS-80 
started talking! The program 
takes several minutes, during 
which time you get a good idea 
of what synthesized speech 
sounds like, as well as how it is 
structured in a program. While 
the audio output is quite intel- 
ligible, the synthesizer produces 
a stereotype computer sound 
much like the Battle Star Galac- 
tica's Cylons. 

Using the Synthesizer 

While the manual that accom- 
panies the synthesizer contains 



only 13 pages, it provides ade- 
quate information for anyone 
who can program in BASIC to be 
able to use the synthesizer. 
Radio Shack's approach to pro- 
gramming their synthesizer is 
interesting. 

First of all, they do all the pro- 
gramming in BASIC. Although 
this may not be the most effi- 
cient method, it certainly makes 
using the synthesizer very sim- 
ple. 

Secondly, they used 32 bytes 
of the video monitor's memory 
map to store the synthesized 
voice message. The storage is 
only temporary, in that the syn- 
thesizer contains a 32-byte buf- 
fer that is filled from the lower 
portion of the video monitor's 
memory. Once the synthesizer's 
buffer is loaded, the memory 
can be erased or written over. 
This is done so rapidly that you 
can't even see what is happen- 
ing on the monitor. 

After the voice programming 
has been transferred to the syn- 
thesizer, the TRS-80 continues 
with its program, while the syn- 
thesizer is speaking. This allows 
for some very exciting graphics. 
For example, the rockets may 
fizzle as your Lunar Lander is in 
motion. Or a spelling program 
can draw a word as the synthe- 
sizer pronounces it. Business 
programs can verbally explain 



sales, as the computer draws a 
graph. 

How does the synthesizer 
know when it has a message to 
relate? Based on the program 
description, it appears that the 
voice synthesizer acts as a 
32-byte block of memory paral- 
lelling the video monitor loca- 
tions 16352D to 16383D. This 
block, referred to as a "window" 
in the instruction manual, is 
opened and closed by the con- 
trol character, ?. 

When a ? appears in memory 
locations 16352D to 16383D, the 
synthesizer opens or closes its 
window. An LED on the synthe- 
sizer lets you know if the win- 
dow is open or closed. 

Once the window is opened, 
any character or characters ap- 
pearing between the window 
locations is copied into the syn- 
thesizer's buffer, and the syn- 
thesizer produces the charac- 
ter's phonetic sounds. 

Maximum message length is 
32 characters at a time. Depend- 
ing on the words used, 32 
characters produces from one 
to five seconds of speech. If you 
desire a longer message, you 
can string together several 
groups of characters, separated 
by a software time delay, allow- 
ing the first segment of speech 
to be completed before the sec- 
ond begins. 

This sequencing can be done 
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S REM *•• SET UP PROMPTING PHRHSE "PLERSE ENTER VES OR NO" 


*♦* 


10 R* - "FL..EZ 3NTR V43SS 0^ NBOU" 




13 REM ♦♦* PLACE PHRASE IN SVNTHESI2ER *** 




20 PRINT«992. "? "JR»J" ?"» 




23 REM *** CLEAR SCREEN -WINDOW" **•* 




30 PRINT0992. " "» 




Program Listing 1. 





indefinitely to produce as long a 
message as your memory al- 
lows. Based on an average of 
three seconds for each group of 
32 characters, 1K of memory 
produces approximately one 
and a half minutes of speech. 
This can be increased substan- 
tially by using a "dictionary ar- 
ray" of commonly used words. 

Add Sound to Your Character 

In printed text, a single sym- 
bol is called an ASCII character. 
The "characters" used in the 
spoken message are called pho- 
nemes (fO-n&ms). A phoneme is 
a single unit of sound, it is the 
combination of phonemes that 
produces the words the voice 
synthesizer pronounces. 

The TRS-80 Voice Synthesizer 
contains 62 phonemes that can 
be combined to pronounce vir- 
tually any word in the English 
language, as well as some 
foreign words and phrases. 

The correct programming 
method for the synthesizer is to 
type the ASCII character that 
represents the phonetic sound 
desired, for example: TEE 
;8R3SS @*&DY V085&SS SIN 
= 85;&Z7 is TRS-80 Voice Syn- 
thesizer. 

The manual includes a table 
that cross references the 
phoneme symbol and its ASCII 
character. The manual suggests 
that you sound out the word you 
are trying to program and then 
select the correct phonemes to 
use. I have found that this works 
quite well but still requires some 
trial and error experimentation. 



While the manual does provide 
a dictionary, with correct 
phoneme constructions, it in- 
cludes only 34 words. 

You can also cross-reference 
any dictionary's phonetic sym- 
bols with the manual's phoneme 
symbols/ASCII characters. 

Using a Dictionary 

I found some phonetic sym- 
bols that could not be refer- 
enced as single phonemes. 
These sounds, such as the long 
I, are represented as diph- 
thongs, a combination of vowel 
phonemes. With a little experi- 
mentation, you soon find that by 
changing or adding a single 
phoneme you can also create 
different inflections, such as the 
word beer, which can be coded 
BEER or BEIR. 

BASIC Programming 

Program Listing 1 demon- 
strates how simple it is to add 
verbal responses to a BASIC 
program. It prompts you to enter 
yes or no. To change the mes- 
sage, it is necessary to change 
only the A$. Lines 20 and 30 can 
be a called subroutine using 
various A$ messages. 

Program Listing 2 can be 
used to experiment with dif- 
ferent phoneme structures. Be 
careful to keep the number of 
phonemes to less than 28. 

If you should type more than 
28, the LED on the synthesizer 
stays lit. This is because the 
second ? was truncated from 
the buffer, and the synthesizer's 
window was not closed. 

If this happens, just press the 



10 CLS 

20 PRINT0404. 
30 PRINT0464, 
40 PRINT0464. i 
30 INPUT AS 
60 GOSUB 100 
79 GOTO 10 
100 PRINT0992. 
110 PRINT0992, 
120 RETURN 



"ENTER PHONETIC PHRASE" 



•7 "Jft»*" ?-; 



Program Listing 2. 



TRS-80™ Compatible 



n 



cai 



ill ^X 



,M 



Continuous Statements 




small 
quantities, 
low prices, 
fast delivery 

Order as few as 500 
statements imprinted with 
your firm name and address. 

Only $0795 

NEBS 9062 Statements are 
software compatible with 
the TRS-80, Model 1, Level 
II, Accounts Receivable 
package #26-1555. 



TRS*> It ■ Trad* Mark of lha Radio Shack 
Co.. Subsidiary ol th* Tandy Corp. 



I 




SPEED COLLECTIONS 
Product 772 DU-O-VUE - 

(3Vx6%*)0llmlnatos 
0nv0iope addressing. 



Envoi 000 



Product 9062 — Size 6'x 8%' detached. Prices include your firm 
name, address and phone in top section, plus your name only in 
lower section. Printed in black ink. Available In single (white) or 
duplicate (white, canary) continuous sets. 





SINGLE 


DUPLICATE 


Product 772 


QUANTITY 


Product 


Product 


DU-O-VUE* 




9062-1 


9062-2 


Envelopes 


10,000 


$192.00 


$355.00 


$138.00 


6,000 


128.00 


228.00 


92.00 


4,000 


99.00 


169.00 


64.50 


2,000 


59.00 


99.00 


36.25 


1,000 


38.75 


61.00 


20.75 


500 


27.95 


39.95 


12.25 



ORDER TODAYI MONEY-BACK GUARANTEE. 
FAST SERVICE BY MAIL or PHONE TOLL FREE 1 +800-225-9550 
(Mass. residents 1 + 800-922-8560). It is our policy to ship within 
6 working days following our receipt of your order. 



Please ship: 



Date. 



.19. 



CODE 460 



.9062-1 STATEMENTS (Single) 

.9062-2 STATEMENTS (Duplicate) 

.772 DU-O-VUE* Envelopes 

.Information on continuous checks and other 
computer forms. 



HEADING TO BE PRINTED ON FORMS: (Please 

STREET 


type or print) 


CITY and STATE 


ZIP 


PHONE 


If you with ua to BILL and SHIP differently from above ptaaaa Indicate. 
AUTHORIZED SIGNATURE 



^— — — — Computer Rrms - J 



78 HoMisStnxt, Groton,Mass. 01450 

A dMam ol Naar England Ouainaaa Same*, mc 



^ Reader Serv/ce— see ptgt 226 
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INTEGRATED 
EYPLUS UTILITY 

PACKAGE 




o 



Kcyplus is a collection of utilities that can be enabled directly 
from the keyboard of a Level II TRS-80. Seven different keyboard 
entry modes include BASIC shorthand (2 modes), direct graphic 
character input (3 modes), typewriter style input and standard 
TRS-80 entry. 

Keyplus supports auto-repeat, lowercase video (optional hard- 
ware modification required), restoration of lost programs, key- 
board debounce, single key stroke user definable strings and more! 

Designed for ease of use, Keyplus routines may be enabled or 
disenabled in two key strokes. 

The Level II version of Keyplus is available for $14.95 and a more 
powerful disk version (32 or 48K) sells for $19.95. Pennsylvania 
residents add 6% sales tax. 

TRS-80 is a registered trademark of TANDY CORP. 



SJW, INC. 

P.O. BOX 438 -»> 
HUNTINGDON VALLEY, 
PA 19006 
215-947-2057 





? key and ENTER, and the win- 
dow closes. The reason for this 
is that the open window sees the 
? as a toggle off-control char- 
acter. Remember that the first ? 
toggles the window open and a 
second toggles the window 
closed. There are several other 
examples of useful subroutines 
included in the synthesizer's 
manual. 

A list of potential applica- 
tions is included in the manual. 
These include: 

Computer-Aided Instruction 

Intrusion- Fire Alarm 

Games 

Talking Clock 

Blind User's Terminal 

Verbally Impaired Prosthetic 
Aid 

Home Environment Audio 
Response (I programmed 
mine to ask for a beer!) 

Computer - Phone Voice 
Interface 
But once you've used the Syn- 
thesizer, you're going to be in- 
trigued with its other possi- 
bilities. How about a verbal 
calculator? Or a typing instruc- 
tion program? 



Finding fault with the TRS-80 
synthesizer is like telling Henry 
Ford that his first automobile 
rode rough. True, it is a mar- 
velous invention, but several 
areas can be improved. The first 
is the monotone computer 
sound. It would be nice to have 
an option for changing the pitch. 

Secondly, some control is 
needed over the speed. I can en- 
vision a version of the synthe- 
sizer that will be able to sing, as 
well as speak. 

Several phonemes do not 
really sound as one would ex- 
pect. The g sounds almost 
identical to the d and causes 
words like gig to sound more 
like deed. The L has what I call 
an Elmer Fudd sound, that is, a 
soft type L, rather than a hard L. 
The K also has a tendency to 
sound a little soft. 

While some of these sounds 
are not perfect, the synthesized 
voice for the most part is very in- 
telligible. I'd recommend the 
synthesizer for most any appli- 
cation where an audible prompt 
is desired. ■ 
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MAGNETIC MEDIA DISTRIBUTORS 

596 Taylor Way Belmont, California 94002 (415)595-0684 

FLOPPY DISKS FOR ALL COMPUTERS 



Flip Sort 

DISK STORAGE SYSTEM 



Keeps dust 
off of disks 



Built-in 
plastic file 
separators 




Formed from 
transparent 
smoke colored 
acrylic 



50 to 60 Disk 
capacity 



For Mini-Disks s 34 95 
For 8" Disks $ 44' 5 

plus $3.00 shipping for each 
Flip Sort™ 

DEALER INQUIRIES INVITED 



5k" DISKETTES 

Diskettes available in Soft Sector. 10 or 16 hole Hard Sector 

1 99 100 UP 
Single Side Single Density (Certified 35 tracks) S 2.85 S 2.60 
Single Side Double Density (Certified HO tracks) S 3. 75 S 3.55 
Double Side Double Density (Quad Density) S 4.50 S 4.30 

Single Side Double Density (Certified 77 tracks) $ 4.00 $ 3. HO 

8" DISKS 

Single Side Single Density (Soft Sectored) S 3. 40 S 3.20 

Single Side Double Density (Soft Sectored) S 4.60 S 4.40 

Double Side Single Density (Soft Sectored) J J. 95 S 4. 75 

Double Side Double Density (Soft "Sectored) J 5. 10 S 4. 90 

Single Side Single Density (Hard Sector 32 hole) J 3. 60 S 3.40 

Single Side Double Density (Hard Sector 32 hole) S 4.00 t 3.80 

Single Side Single Density (Hard Sector 32 hole) J 4. 65 J 4.50 
(MRX 651 compatible OD holes) 

We stock VERBATIM. WABASH. KYBE. KEY LINE i ATLASTIS 
Disks and Diskettes at LOW. LOW. prices. Write for our mini 
catalogue. 

VINYL DISK SLEEVES for 5 1/<»and 8" Disks 5 9.00 lOpak 

PLASTIC LIBRARY CASES 8" J 4. 50 5 1 IV $3.50 
FLOPPY SAVER (Hub Reinforcing Rings 
5 1/4" with applying tool $ 14. 95 pk of 25 Refills S 7. 95 
8" with applying tool S 16. 95 pk of 25 Refills S 8. 95 



CALL TOLL FREE TO ORDER 

800 227-7362 

IN CALIFORNIA 415 595-0685 




156 • 80 Microcomputing, September 1980 




PROFESSIONAL HALF A million tax returns cant be wrong! 

(OR THEY HAD BETTER NOT BE) 

INCOME TAX SYSTEM 

FOR TRS-80* MODEL I OR II 

Our system, which prepared 500,000 1979 returns, features the following: 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. Change of a single amount item automatically changes and re-computes entire 
return. 

4. All printout formats IRS and state approved. 

5. Stores Preparer's Identification for automatic printing at bottom of page 2. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special Printer Adjustment routines, Line Length, etc. 

8. Selection of closed or open output formats — for standard Form 1040 or open 
name-box types. 

9. Software control of text position on page. Makes forms-alignment simple. Permits 
use with non-adjustable printers. 

10. Fills in pre-printed Forms or you can use overlays. Your choice. 

11. Automatically computes: Tax - SDI Overpayment - Wages Total from W-2's - 
Earned Income Credit - Income Averaging - Maximum/Minimum Tax - Least 
Tax Method - All Percentage of Income Limitations - All Fixed Limitations - many, 
many more. 

12. Full support through the tax season — no charge. 

13. Inexpensive yearly updates in accordance with tax-law changes. 

14. Modular construction — lets you order only the type and size system you need. 

PRICING STARTS AT $189.95 (1040 & SCHEDULE A) 

25-PAGE DESCRIPTIVE MANUAL $7.50 (Refunded on Order) 

MINIMUM SYSTEM REQUIRED: MODEL I, 32K, 1 DISK DRIVE 

•TRS-80 IS A TRADEMARK OF TANDY CORP. 

CONTRACT SERVICES ASSOCIATES . » 

706 SOUTH EUCLID ANAHEIM, CA 92802 

TELEPHONE (714) 635-4055 
• • • 20 YEARS OF SERVICE * * * 
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TUTORIAL 



A tutorial trip through addition and subtraction. 



Math Flash 



Jim Barbarello 
RD m, Box 241H 
Tennent Rd. 
Englishtown, NJ 07726 



Traditional math flash cards 
have always been a very 
useful tool for young students in 
learning math fundamentals. 
The math flash card program 
here helps the student practice 
and learn on his own without a 
tutor. The program creates all 
the requisites of a conventional 
math drill: random addition or 
subtraction problems presented 
with bold, easily readable nu- 
merals; a set response time 
limit; positive reinforcement for 
correct answers, and a chance 
to redo an incorrectly answered 
problem. 

For each problem, two vari- 
ables between and 49 are se- 
lected. These variables are 
either added or subtracted on a 
random basis and then present- 
ed as the problem. The vari- 
ables' upper limit of 49 restricts 
the answer to a two digit value. 

After each set of nine prob- 



lems is completed, an interim 
score is presented. If the stu- 
dent chooses to continue, the 
next set of nine problems is pre- 
sented. If the student chooses 
not to continue, a total score for 
all problems attempted is pro- 
vided. 

The variables are selected so 
as to minimize repetition of 
problems and to maximize ex- 
posure to all possibilities. If, for 
example, the student is encoun- 
tering specific difficulties, the 
program can be easily modified 
to present a specific set of prob- 
lems. The program presents up 
to 81 different problems per run. 

A Typical RUN 

When the program is RUN, 
the message "GET READY- 
HERE WE GO!" appears as the 
random variables are selected. 
The screen then clears, and the 
first problem is displayed (ex: 
14 + 23= ) in two-inch high nu- 
merals. The student has approx- 
imately four seconds to enter an 
answer. The entered answer is 
displayed to the right of the 
equals sign in normal height (V* 
inch) numerals. Since the an- 
swer is entered via the INKEY$ 
function, the student need only 
press the appropriate numeric 



keys to input an answer. 

A correct answer causes the 
reinforcement message "** 
VERY GOOD**" to appear 
above the problem. If the stu- 
dent's answer is incorrect, it is 
removed from the screen and 
the message "XX IS WRONG. 
THE RIGHT ANSWER IS:" is dis- 
played in the upper left hand 
corner of the screen. 

At the same time, the correct 
answer is displayed to the right 
of the equals sign in bold (two- 
inch high) numerals. In either 
event, the problem remains on 
the screen for an additional 
three seconds. A correct answer 
allows a new problem to be dis- 
played. For an incorrect answer, 
the same problem is repeated, 
giving the student another 
chance to answer correctly. 

If the student does not re- 
spond to any problem in the al- 
lotted four seconds, the mes- 
sage "TIME'S UP" appears in the 
upper left hand corner of the 
screen and the correct answer is 
displayed in bold numerals. A 
"TIME'S UP" situation is treated 
as an incorrect answer. 

If the student does not pro- 
vide the correct answer in two 
tries, an incorrect response is 
scored. At the end of nine prob- 



lems, the screen clears and the 
message "YOU GOT X RIGHT 
OUT OF 9 TRIES THIS TIME. 
WANT TO TRY AGAIN (YES OR 
NO)" is displayed. 

If the student responds with 
lems, the screen clears and the 
message "YOU GOT X RIGHT 
OUT OF 9 TRIES THIS TIME. 
WANT TO TRY AGAIN (YES OR 
NO)" is displayed. 

About The Program 

Fully half of the program con- 
sists of subroutines to create 
the bold numerals, plus, minus 
and equals signs (Lines 1000 
through 2200). These subrou- 
tines use the variable S to posi- 
tion the numerals on the screen. 
S is initially set to 15682 in Line 
65 and is continually readjusted 
during the program to allow the 
problem to be serially presented 
(one character after another). 
The program automatically ad- 
justs for single or double digit 
variables/answers so that gaps 
are not left in the presentation. 

The program can be easily 
customized to a specific stu- 
dent's needs in a number of 
areas. For the very young stu- 
dent, the variables can be limit- 
ed to a single digit (0 to 9) by 
changing the statement A(K) = 
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RND(49) in line 10 to A(K) = RND 
(9) and B(K) = RND<49) in line 30 
toB(K) = RND(9). 

The response time allowed for 
each problem can be adjusted 
by varying the FOR-NEXT loop in 
line 140. As shown, the keyboard 
is scanned for a response 
25 times (FOR M = 1 TO 25). In- 
creasing the loop increases the 
allowable response time — de- 
creasing it shortens the time al- 
lowed. 

If a specific set of problems 
is desired instead of the pres- 
ently available random selec- 
tion, lines 10 through 40 can be 
deleted and replaced with: 

10 DATA A.B.C.D.E.F.G.H.I.J.K.L.M.N.O.P. 

Q.R 
20 FOR I = 1 TO 9. READ A(l) READ B<l): 

NEXT I 
(with A through R being numbers you 
select) 



With this modification, 
A,C,E,G,l,K,M,0 and Q will be 
the numerals of the first variable 
and B,D,F,H,J,L,N,P and R will 
be the numerals of the second 
variable. For example, if A = 19 
would be 19 + 43 (or 43-19 if 
subtraction was randomly se- 
lected). If only addition or only 
subtraction is desired, lines 60 
and 70 may be deleted and re- 
placed with 60 C = A + B (for ad- 
dition, or) 60 C = A - B (for sub- 
traction). 

It is possible to multiply 
and/or divide. However, special 
care must be taken such that 
the variable produce an integer 
answer that is no larger than 99. 
In addition, appropriate subrou- 
tines for the times ( x ) and 
divide (-) signs would need to 
be added. ■ 



Program Listing. 



2 REM* 

3 REM* 

4 REM' 

5 REM* 

6 REM" 

7 REM* 

8 REM* 



FLASH 



CARDS 



A PROGRAM BY 
JIM BARBAKELLO 



CLS: PRINT'GET READY - - HERE WE GO 1 V RANDOM : FOR K-l TO 9:A(K) 
RND (49) 

FOR J»B TO K-liIF A(K)-A(J) THEN K-K-1:NEXT K ELSE NEXT J,K 

FOR K-l TO 9:B(K) -RND(49) 

FOR J-0 TO K-l I IF B(K).B(J) THEN K-K-1:NEXT K ELSE NEXT J,K 

FOR K-l TO 9 

FOR J-l TO 9: IF CT-0 THEN D-RNDI2) 

AS-"":BS-"":S-15682:CLS:A-A(K) :B-B(J) :C-0:F-0 

IF D-l THEN C»A*B ELSE OA-B 

IF C-0 THEN A-B(J) :B-A(K) :C-A-B 

IF A>9 THEN W- INT (A/10) :Y-A-WM0 ELSE Y-A-.S-S-8 

ON W GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,1800 

S-S+8 

ON Y GOSUB 1000,1100 '.!•? ' , "" '400,1500,1600,1700,1800 
| IF Y-0 THEN GOSUB 1 00 
> ON D GOSUB 2000.21C ':. .. u 

I S-S*16:IF B>9 THEN W- INT ( B/l ) :ON W GOSUB 1000.1100,1200,136 

,1400,1500,1600,1700,1800 
) IF B>9 THEN Y-B-W*10 ELSE Y-B:S-S-8 
» S»S*8:ON Y GOSUB 1000 , 1 100, 1 200 , 1 300 , 1400 , 1500 , 1600 , 1700 , II 



125 
130 

:•;,' 
151 
1 I 1 
171 
IM 

190 
200 



230 
.'40 
.•50 
JhH 

2ie 

275 

2H0 
285 
290 
IBH 
110 
320 
!3U 

i40 

350 



1 ' I 
LI] 

103 



IF Y-0 THEN GOSUB 1900 

S-S-17 : GOSUB 2200: S-S-l :W-0 : Y-0 : AS- INKEYS 

FOR M-l TO 25 

AS-INKEYS 

IF AS'" THEN 170 ELSE 200 

FOR L-l TO 50:NEXT L,M 

PRINT? 498,* ■j:PRINT0 0, 'TIME'S UP' 

CT • CT*l:GOTO 240 

IF C>9 AND BS-" THEN BS-AS : M-5 : PRINT? 498,BS::NEXT M:ELSE PR 
INT*} 499, AS; 

G-VAL(AS)*VAL(BS)*10:IF G-C THEN CT-0:PRINTP 84,"** VERY GOOD 
••■;:GOTO 290 

IF GOC THEN PRINTt ^,G;* IS WRONG. THE RIGHT ANSWER IS":CT-C 
T+1:PRINT?498,' ";:GOTO 240 

CT-0 

S-S*36 

IF C-0 THEN GOSUB 1900:GOTO 290 

IF C>9 THEN W-INTIC/10) :Y-C-W*10 ELSE Y-C:S-S-8 

ON W GOSUB 1000,1100,1200.1100,1400,1500,1600,1700,1800 

S-S»8 

ON Y GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,1800 

IF Y-0 THEN GOSUB 1900 

FOR N-l TO 750INEXT N 

IF CT-0 THEN TTL-TTI.*1:NEXT JiGOTO 130 

IF CT<2 THEN J-J-1:NEXT JiGOTO 330 

CT-0:NEXT J:GOTO 330 

CLS:PRINT"YOU GOT';TTL;" RIGHT OUT OF 9 TRIES THIS TIME":TL-T 
L*TTL:TTL-0 

PRINT: INPUT'WANT TO TRY AGAIN (YES OR NO)";BLS 

IF LEFTS (BLS, 1 ) -"Y" THEN NEXT K 

IF LEFTS (BLS, 1 )-"N" THEN CLS : PRINT'YOUR TOTAL IS';TL;" RIGHT 
OUT Of" ;K* 9; "TRIES. BYE'.'-.END 

GOTO 340 
REM** ONE 
FOR 1-0 TO 4 

POKE S* 1*64, 191: POKE S* 1* I *64 , 191 :NEXT 
POKE S«62,191:FOR 1-1 TO 6:POKE S* 253* 1 , 191 -.NEXT 



1040 


RETURN 


1100 


REM** TWO 


1110 


FOR I --2 TO 3 


1120 


POKE S*I,191:POKE S* 128*1 , 191 : POKE S*256*I , 191 :NEXT 


1130 


POKE S*67,191 :POKF. S*190,191 


1140 


RETURN 


1200 


REM** THREE 


1210 


FOR 1 — 2 TO 3 


1220 


POKE S*I,191:POKE S*128*I , 191 : POKE S* 256 ♦ 1 , 1 91 :NEX7 


1230 


POKE S*67,191:POKE S*195,191 


1240 


RETURN 


1300 


REM** FOUR 


1310 


POKE S*128,191:POKE 5*129,191 


1320 


FOR 1-0 TO 4.-POKE S*2*I *64 , 191 : POKE S* 3 *I *64 , 191 : NEXT 


1330 


FOR 1-0 TO 2:POKE S-2*I *64 , 191 : POKE S-1*I *64 , 191 :NEXT 


1340 


RETURN 


1400 


REM** FIVE 


1410 


FOR 1 — 2 TO 3 


1420 


POKE S«I,191:POKE S*128*I , 1 91 : POKE S*256 ♦ I , 191 :NEXT 


1430 


POKE S+62,191 :POKE S*195,191 


1440 


RETURN 


1500 


REM** SIX 


1510 


FOR I--2 TO 3 


1520 


POKE S+I,191:POKE S*128*I,191:POKE S*256 ♦ I , 191 :NEXT 


1530 


POKE S*62,191:POKE S+190 , 191 : POKE 5*195,191 


1540 


RETURN 


1600 


REM** SEVEN 


1610 


FOR I--2 TO 3: POKE S*I,191:NEXT 


1620 


FOR 1-0 TO 4:POKE S*2+I *64 , 191 : POKE S*3*I *64 , 191 : NEXT 


1630 


RETURN 


1700 


REM** EIGHT 


1710 


FOR 1 — 2 TO 3 


1720 


POKE S»I,191:POKE S* 128 ♦ I , 1 91 : POKE S*256 *I , 191 :NEXT 


1730 


POKE 8+62, 191 i POKE S*67,191:POKE S* 190 , 1 91 : POKE S*195,191 


1740 


RETURN 


1800 


REM** NINE 


1810 


FOR 1 — 2 TO 3 


1820 


POKE 8*1,191 1 POKE S*128*I,191:POKE 5*256*1 , 191 :NEXT 


1830 


FOR 1-0 TO 4:POKE S* 3*1 *64 , 1 91 : NEXT 


1840 


POKE S*62,191 


1850 


RETURN 


1900 


REM** ZERO 


1910 


FOR 1 — 2 TO 3 


1920 


POKE S*I,191:POKE S* 256 ♦ I , 191 : NEXT 


1930 


FOR 1-0 TO 4:POKE S-2* I *64 , 191 : POKE S*3*I *64 , 191 :NEXT 


1940 


RETURN 


2000 


REM** PLUS SIGN 


2010 


FOR 1-1 TO 3 


2020 


POKE S*8*I*64,191:POKE S*9*I *64 , 191 : NEXT 


2030 


FOR 1-0 TO 5:POKE S*134*I , 1 91 : NEXT 


2040 


RETURN 


2100 


REM** MINUS SIGN 


2110 


FOR 1-0 TO 5:POKE S*134*I , 191 :NEXT 


2120 


RETURN 


2200 


REM** EQUALS SIGN 


2210 


FOR 1-0 TO 5:POKE S*88*I , 1 91 : POKE S* 216* I , 191 :NEXT 


2220 


RETURN 



MULLEN Computer Products 



tft* 



TRS 



80' CONTROL BOX 



8 road relay OUTPUTS 
8 opto isolated INPUTS 
Selectable port address 



.0***' 



M 80OCTOPORT 
$159 As»m Tested 



A- 



ver supply 

iembled cable & connectors 




ASSIMIII IO BURNED IN & TESTED 



Use your TRS 80. and our M-80 control box to program control 
energy savings devices at home or in your business. Send for ol 
free application notes today 




MULLEN COMPUTER PRODUCTS BOX 6214 HAYWARD CA 94544 

OR PHONE (4 151 783 2866 VISA MASTERCHARGE ACCEPTED 

INCLUDE $1 50 FOR SHIPPING tt HANDLING CALIFORNIA RESIDENTS ADD TAX 

.^285 

Order Dime! or Contact your total Computer Stoi 
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MORE FOR YOUR 

RADIO SHACK TRS-80 

MODEL I ! 

• MORE SPEED 

10-20 times faster than Level II BASIC 

• MORE ROOM 

Compiled code plus VIRTUAL 
MEMORY makes your RAM act larger. 

• MORE INSTRUCTIONS 

Add YOUR commands to its large in 
struction set! 

Far more complete than most Forths: 
single & double precision, arrays, 
string-handling, more. 

• MORE EASE 

Excellent full-screen Editor, structured 
& modular programming 
Optimized for your TRS-80 with 
keyboard repeats, upper/lower case 
display driver, single- & double-width 
graphics, etc. 

• MORE POWER 

Forth operating system 

Interpreter AND compiler 

Internal 8060 Assembler 

(Z80 Assembler also available) 

VIRTUAL I/O for video and printer, 

disk and tape 

(10-Megabyte hard disk available) 




FORTH 



THE PROFESSIONAL FORTH 
FOR TRS-80 

Prices: 

MMSFORTH Disk System V1.9 (requires 1 

disk drive & 16K RAM) just $79.95* 

MMSFORTH Cassette System V1.8 (requires 
Level II BASIC & 16K RAM) $59.95* 

AND MMS GIVES IT 
PROFESSIONAL SUPPORT 

Source code provided 
MMSFORTH Newsletter 
Programming staff available 
Many demo programs aboard 
MMSFORTH User Groups 

FLOATING POINT MATH (L.2 BASIC ROM 
routines plus Complex numbers, 
Rectangular-Polar coordinate conversions, 
Degrees mode, more), plus a full Z80 
ASSEMBLER; all on one diskette . . . $29.95* 

THE DATAHANDLER, a very sophisticated 
database management system operable by 
non-programmers (requires 1 drive and 32K 
RAM); with manuals $59.95* 

Other packages under development 

FORTH BOOKS AVAILABLE 

MICROFORTH PRIMER — comes with 

MMSFORTH; separately $15.00* 

USING FORTH — more detailed and advanc- 
ed than above $25.00* 

URTH TUTORIAL MANUAL - very readable 

intro. to U/Rochester Forth $19.95* 

CALTECH FORTH MANUAL — good on 
Forth internal structure, etc $6.95* 

* — Software prices are for single-system 
user license and include manuals. Add $2.00 
S/H plus $1.00 per additional book; Mass. 
orders add 5% tax. Foreign orders add 15%. 
UPS COD. VISA & M/C accepted; no unpaid 
purchase orders, please. 

Send SASE tor tree MMSFORTH information 
Good dealers sought 

MMSFORTH is available from your 
computer dealer or 

MILLER MICROCOMPUTER 
SERVICES (B1) ^12 

61 Lake Shore Road. Natick. MA 01760 
(617)653-6136 



Micro Computers 

and 
dull Engineering 



The machine can do it — but you need 
the application package to make it work 
tor you. 

We have brought together the most pow- 
erful civil engineering tools available, USA- 
COGO (Civil Engineering Coordinate Ge- 
ometry), USA-EARTH (Earthwork De- 
sign Quantities), and USA-STRESS (Struc- 
tural Engineering System Solver). Each 
system provides a complete data entry and 
change system in addition to the powerful 
problem analyzer tied together through a 
common menu driver. 

It's available to you now on your choice 
of CP/M or TRSDOS in source code 
BASIC or FORTRAN. For additional in- 
formation, call us at (314) 878-1277, 
or write: 



V/j 



HttU'Wt 



l&U'ti 



fftft jf> 



r r //t/t /ffft /t'/JHJ , f f /»iC. 

13001 Cannes Drive 
St. Louis, Missouri 63141 

.JurmniA ^nuaii ."nlii Ktu'Au 
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PLREZZAP 

is a machine language, highly ad- 
vanced disk sector modifier. Incor- 
porating 4 additional utilities most 
desired by users. 35 or 40 track. 1 or 2 
drives. 

•Zero out all unallocated sectors. 

•Zero out all killed directory entries. 

• Hash code displayed upon entering 
any filespec. 

• Instantly kill format, copy, basic 
and all system files except boot and 
dir. 

•PUREZZAP reads, modifies and 

writes any sector. 

•Lightning fast cursor movements in 

4 directions whether modify mode or 

not. 

• Instant toggle between drives. 
•Continues sector compare of any 
two locations. 

•Continues search for the occur- 
rence of any byte. 

•Automatic single or multiple dupli- 
cation of a modified byte. 

• Forward or backward 1 to 9 sectors 
at a time »instantly«. 
•Fantastic, easy to read, visual dis- 
play with the relative byte position 
displayed and updated continuously 
during any function. 

•A super menu and more with easy to 
understand documentation. 
Shipped within 24 hours on a diskette 
for only $12.95. Add $1.00 for han- 
dling in USA— $3.00 outsidn 

Make check or money order payable to: 

«£ COMPUTER CONSULTANTS ♦ 

V 9411CadartrtMRd. ^ 220 
Downey, California 90840 



Versatile 
Information 

Manager 

thinking of buying specialized programs 
lor applications such as mailing lists, inven- 
tory, or maintaining personnel records' VIM 
can perform these and many other tasks, and 
the best part of it is that you only pay foe it 
once' 

Simplify the task of maintaining your data 
by putting VIM to work on your system VIM 
is very easy to use and its flexibility will per- 
mit you to perform a great variety of data 
processing |obs with no extra programming 
It runs on the IRS 80* Model I. 12K (or more) 
disk based system 



MODULI 1 Idalabave n 

LiMh.iM- ilelmilion * 

in retold* and XI tield< 
jlphdnumeru dnd num 
adit, update, and drier 
.earth DO in, lieldjO. 

using I logical dnd lun-l 
modilv. unload, or del» 

by d wan h 

MOOlill 2|m»i ulilnyl 



h „|, 



»S1*5 

i .'40 thai a< 



comb" 
I open 



n|ii-l, 



am ending ih de\t ending order 
MOD III I I Irrport genrratorl 

u»er detined fei ord dnd page lor 

optional summary lor numeric In 

VIM Imoduie-, I 1 dnd 100* pdge i 

Add .!* shipping and handling 



FOR MORE INFORMATION WRITE: *' 307 

MICROCOSM 

PO Box 2034 Dearborn. Mi 4*123 

' Trademark ol Tandy Corp 



SURVEYORS: 



We have a fantastic package for the 
TRS-80! All of the programs perform cal- 
culations to full double precision accuracy. 
Here arc some of the manv features: 



'F1KIJ) ANc.U- TRAVERSK (with stadia re- 
duction, inverse, etc.) store a traverse, with ele- 
vations, on disk 
•STADIA REDUCTION 
•UNIVERSAL TRIANCLE SOLUTIONS 
•VOLUME BY AVERACE END AREA 
•CIRCTT.AR CURVE SOLUTIONS 
' HORIZONTAL CURVE LAYOUT (with tan 
ipnt offsets) 

•UNIVERSAL INTERSECTIONS 
•VERTICAL CURVES AND ORADES 
•BORROW PIT VOLUME 
•C(X)RD1NATE TRANSFORMATION 
•AREA FROM POINT COORDINATES 
•INVERSE FROM COORDINATES 
•RADIAL TRAVERSE (comina vrnni 



Disk version (32K with Disk) $275 

Cassette version (16K Level II) $225 

Manual ( refunded with purchase) $5 



♦ 



^309 



Judson D. McClendon 
844 Sun Valley Road 
Birmingham, AL 35215 
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SURPLUS TRS-80* I 

EXPANSION INTERFACES 

WITH 32K RAM % 



Due lo changes in Product Structure 
American Business Computers is offering 
14 Expansion Interfaces (All W/32K RAM) 
al closeoul prices. 



$450 



American Business Computers guarantees 




expansion Interfaces to be Brand New 




still in original botes with original docu 




mentation and in perfect working condition 





AMERICAN BUSINESS COMPUTERS **r 

•TM TANDY CORP. 

118 S. MILL ST. - PRYOR, OK 74361 - 918-825-4844 



Please note Our CRT SCREENS have been purchased by thousands 
of individuals, the Department of the Navy, several government agen- 
cies, and dozens of the country's top corporations and universities 

• Give your CRT the luminous green characters found on the very expensive 
computer systems 

• Add a professional look to your system and your programs 

• Dramatically improved contrast for easier reading and improved graphics 

We manufacture an optically correct. 1/8" plexiglas" screen that mounts easily 
over the CRT on your video monitor This is a quality accessory that enables your 
TRS 80" monitor to produce the luminous green characters identical to those 
found on expensive terminals \ or business applications this means enhanced 
appearance and reduced eye strain for the hobbyist graphics are brighter and 
bolder The screen may be easily removed no modificatio" to monitor 



Screen for Model I $19 95 

A Screen for Model II $24.95 

u2 VISA Mastercharge 

National Tricor. I nc / 3335 Greenleaf Blvd Kalamazoo Ml 49008/ 616 375-7519 



We ship withm 
24 hours 
30-day money 
back guarantee 




THE BLINKING CUR5QR 

MACHINE LANGUAGE ROUTINE 

FOR TRS-BCMGK LEVEL II 

lOADS IN SECONDS f-ROM CASSETTE 
INTO LESS THAN 1/2K BYTES OF PROTECTED 
MEMORY AND TIES INTO ROM KEY SCANo 

Customize Your Cursors 

SELECT ANY CHARACTER OR GRAPHICS BLOCK 

AND WATCH IT BLINK' 

CHANQE AS OFTEN AS YOU LIKE. 

f EATURES: 



iFAST REPEATING «<- KEY AND SPACE BAR 
l INSTANT SWAP WITH R E S I DE NT CURS OR 
i UNAFFECTED BY NEW OR RESET 

WORKS IN COMMAND- EDIT- EXECUTE MODES 

KEY DEBOUNCE 



A System V a* sett 4 from Semi soft 



TRS-80 



HELP ? 



how did I get along without It?" is the usual reaction to tins advanced disk indexing proyid 

AUTOMATICALLY create sort print, search <t Maslei Index of .ill disk files 

AUTOMATICALLY read file names, disk numbers (no hand enfri I 

AUTOMATICALLY print disk labels (optional) 

AUTOMATICALLY updati- Index from revised disks 

AUTOMATICALLY ad, I optional file descriptions 

AUTOMATICALLY label disks as DOS or DATA NEW 

AUTOMATICALLY purge disks of unwanted files NEW 

• FINDISK-II (on disk or tape 32K min - nou. works with RS 1 c mod) 

Other powerful programs from Docu man available on tape or disk 

• STRUCT-I beam design and moment transfer w graphics 1 16K) 

• SOLAR-I essential calculations for passive solar design (32K) 

• RIA-1 complex analysis of real estate investments (32K) 

• DEPRECIATE-I calculate, print 12 facts on depreciable items [32KJ 
^M VISA MASTERCHARGE Shipping SI (X) each (Mich add sales tax) 

DOCUMAN SOFTWARl BOX 187 A KALAMAZOO. Ml 49005 (616)344-080 



$20 on 

$15 (Mi 
$30 (hi 
$30 (H) 

$15 00 



Let Your TRS-80* 

Teach You 

ASSEMBLY LANGUAGE 

Tired ot buying book after book on assembly 
language programming and still not knowing your 
POP from you- PUSH 7 

REMsur r proudly announces a more effi- 
cient way. using your own TRS-80** . to learn the 
fundamentals of assembly language programming 

at YOUR pace and at YOUR convenience 
Our unique package. INTRODUCTION TO TRS-80* 
ASSEMBLY PROGRAMMING will provide you with 
(he following 

• Ten 45-muiute lessons on audio cassettes 

• A driver program to make your TRS-80"' video 
monitor serve as a blackboard for the instructor 

• A display program lor each lesson to provide 
illustration and reinforcement 'or what you a r e 
hearing 

• A textbook on trs-80/* Assembly language 
Programming 

• Step-by-step dissection ot complete and useful 
routines to test memory and to gam direct control 
over the keyboard, video monitor, and printer 

• How to access and use powedul routines in your 
Level H ROM 

This course was developed and receded by 
Joseph E Willis and is based on the successful 
series ot courses he has taught at Veta Technologies 
Corporation the Radio Shack Computer Center and 
other locations in Northern Ohio The minimum 
system required is a Level II. 16K RAM 

REMASSEM-1 only $69.95 




nc 



REMsoft 
571 E 185 st 

Fuchd Ohio 44119 
(216)531-1338 




►wo 



include $1 50 'or snipping and handling 
Ohio residents add 5'/,% sales tai 

TRS 80* is a trademark ot the "andy Corp 



^SPIDER MOUNTAIN ADVENTURE v 
/ ' • \ 

Beyond the desoale outbacn o" GRAYLOCKLAND lies the i»" 0' 
ire sprder SHELOB Once a wizards cavernous tortress SPIDER 
MOUNTAIN is now a deadly nap <>om which only the most skilled 
adventurers emerge T reasure awaits theloriunale DEATH slaiksine 
looiish 

Can YOU solve ttwiddieol theSPiDER MOUNTAIN ADVENTURE 
and come back alive 1 



|14.Mi 



laps 



119 9S. -. Is. 



J 



LOST DUTCHMAN'S COLD 



Deep >n Arizona s Supe'SMion mountains. unde» the watchtu' */>• 
ui Apache Indians the tabled LOST DUTCHMAN s GOLDMINE awaits 
the ac)ve"lu*e* bold enough lo cha"ange the 'ates With only a mule 
and a Winchester and the ghost ot an o*d goid p*ospecte* named 
BACKPACK SAM to gu«Je yOu Oo you da»e To venture into the misty 
mountains, wnete it is sa«d thai the Devn himself, protects the LOST 
DUTCHMAN^ GOLD 5 
S14 95 -•■upe S'9 9-> j.s» 



DEATH DREADNAUGHT ADVENTURE 



This m.nd chilling try 

lapped aboard an anc 

-nuroeted brulaly You 

been smashed, bul one 

about the wreck the dange' increases You must secure air 'ood I 

id batteries Now as presoous seconds ot your life lick away i 

iddenly realise YOU ARE NOT ALONE' The ere 

sh,p apart is ALIVE and wailing lor you lo make 

(ESCAPE' Or will YOU be the creatures nent victim 

JM.DS .ii lai.e |1».» 

W A H N i N G DEATH OHtADNAUGH! IS RAIED R due to 
L" THEME descriptions o' VIOLENCE 



ii f wii' t'ee/e the blood m yovjr vems You are 
en! alien baltieciuiser whose entire cew was 
ire the scout team s only survivor Your ship s 
alien shuttlecralt remains intact As you move 



t- II .i! r.; ; » ! l'i s 
stake CAN »OU 






END CHECK OR M/O (SHIPMENT WITHIN FIVE DAYS OF RECEIPT! 



SPECIAL 

TRIPLE ADVENTURE DISKETTE 

S3S00 

DOUBLE TAPE OR DISKETTE 

ADVENTURES OF YOUR CHOICE 

J24 9S 

DEALER INOUIRYS INVITED ^* 364 



The 

I Progromnners 

I Guild 



PO Box 66 

PeterDoro NH 03458 

PH i603> 924-6065 J 



^Reader Service— see page 226 
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APPLICATION 



An M.D.'s bookkeeping system. 



Doctor Your Records 



Wilbur A. Muehlig, M.D. 
726 N. 91 Plaza, #305 
Omaha, NE 68114 



When I was practicing medi- 
cine, my secretary kept a 
"daybook," entering each pay- 
ment made by a patient, adding 
totals for the day, the month 
and, finally, the year. 

When I left private practice, I 
continued the same general 



method of keeping track of in- 
come checks, but my usual 
practice was to let the arithme- 
tic go until the end of the year 
when my tax was due. At this 
time totaling my income was a 
rather discouraging job, but 
ideally suited to a computer. 

This bookkeeping program 
should be of interest to anyone 
owning a few stocks and bonds. 
It was written with the retired 
person in mind, and therefore in- 
cludes Social Security income, 
and annuity payments. 

The program, which handles 
up to 35 entries a month, ac- 
cepts eight types of entries: 
earned income, dividends, in- 



WH AT DO YOU WANT TO DO? 

1- DISK OPERATIONS 

2 -COMPUTATIONS 

3 -MAKE A FILE ENTRY 

4 -CORRECT AN ENTRY 

5- DELETE AN ENTRY 

6 -SEE A PRINTOUT ON VIDEO 

7 -MAKE A HARD COPY 

8- LEAVE THE PROGRAM 

CHOOSE? _1 



WHAT DO YOU WANT TO DO? 

1 - SAVE MONTHS FILE TO DISK 
2 -LOAD MONTH'S FILE FROM DISK 
3 -SAVE YEARLY TOTALS TO DATE 
4 - LOAD YEARLY TOTALS 
5-RETURNTOMENU 

CHOOSE? 1_ 



Table 1 



terest, annuity funds, tax-free in- 
terest, Social Security, life in- 
surance dividends, and miscel- 
laneous items. The first four are 
taxable, the next three untax- 
able and the last is for your 
records only. 

The program is written in Lev- 
el II BASIC for a TRS-80 with 32K 
and a single disk drive. But it 
can be easily modified to use a 
cassette. The printer has a line 
length of 61 characters, but can 
be compressed to fit into 40 col- 
umns. Though the program can 
be used without a printer, much 
of its benefit is lost. 



First Steps 

Choose MAKE A FILE ENTRY 
(number three in Table 1) when 
first using the program. Enter 
the day, the month and the 
source of the income; choose 
the type of entry, the amount 
(Table 2), and press enter. 

When you have finished mak- 
ing your entries, save them to 
disk using the first menu option 
and the disk option -SAVE 
MONTH'S FILE TO DISK (one in 
Table 1). Before adding more en- 
tries, load the previous ones 
with disk option two. 

You can use menu options 



1 

TO END FILE ENTRIES, TYPE 99 

DAY OF MONTH? 5 

SOURCE OF INCOME (NOT OVER 24 SPACES) 

? AT&T 

WHAT TYPE OF ENTRY? 

1-EARNED INCOME 5— TAX FREE INTEREST 

2-DIVIDEND 6-SOCIAL SECURITY 

3-INTEREST 7-LIFE INSURANCE DIVIDEND 

4-ANNUITY 8-MISCELLANEOUSITEM 

CHOOSE? 2 

AMOUNT OF DIVIDEND? 345.67 

1 DATE 5 AT & T DIVIDEND $ 345.67 

IF THE ABOVE IS INCORRECT, TYPE 1 . IF THE PART THEN DISPLAYED IS COR 
RECT. PRESS ENTER, OTHERWISE TYPE THE CORRECTION. 

NOTE: IF THE ERROR IS IN THE TYPE OF INCOME, DELETE THE WHOLE ITEM 
AND REENTER. 

IF THE ABOVE IS CORRECT. TYPE 2 TO GO ON? 

Table 2 
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Program Listing 



1 REM * PERSONAL INCOME LEDGER PROGRAM * 

2 REM * WILBUR A. MUEHLIG, M.D. * 

3 REM * 726 N. 91 PLAZA, APT. 305, 

4 REM * OMAHA, NE 68114 

11 REM * OCT. 1979. 

12 CLS 

13 PR INT: PR I NT: PRINT: PRINT: PRINT: PRINT: PRINT 

15 PRINTTAFM 23) 'INCOME LEDGER PROGRAM* : PRINT: PRINT: PRIN 

T 

20 INPUT "DO YOC WANT INSTRUCTIONS FOR USE (Y/N)"jZS 

30 If ZS-"Y" GOTO 4000 

40 CLEAR 500:DEFDBL E, D, I , A, T,G, L,C, F , R,Q: DEFINT B,J,K, 

H,X,Z,P:P1-1 

45 DEFSTR S,M,V,Y,U 

50 DIM S(35) ,E(25) ,DA(35) ,D(25) ,1(25) ,A(25) ,T<25) ,G(25) 

,L(35) ,C(25) ,F(35) ,R<35) ,M(12) 

52 DATA JAN, FEB, MAR, APR, MAY, JUN, JUL , AUG, SEP, OCT, NOV, DEC 

5 3 FOR H«l TO 12: READ M$(H):NEXT 
55 CLS: PR I NT: PRIST: PRINT: PRINT 

60 INPUT"YEAR OF THIS REPORT (MM) ";YS 

80 PRINT: INPVT"NUMBER OF THIS MONTH (1 TO 12) " jH 

100 CLS: PR I NT 

110 PRINT'WHAT DO YOU WANT TO DO? 

1-DISK OPERATIONS 
2-COMPUTATIONS" 

112 PRINT" 3-MAKE A FILE ENTRY 

4 -CORRECT AN ENTRY 

5 -DELETE AN ENTRY 

6-SLE A PRINTOUT ON VIDEO" 

113 PRINT" 7 -MAKE A HARD COPY 

8-LEAVE THE PROGRAM" 

114 PRINT: INPUT" CHOOSE", -J 

120 ON J GOTO 200,1262,600,800,1000,1225,1400,1600 

200 CLS: PRINT: PRINT: PRINT: PRINT: PRINT'WHAT DO YOU WANT 

TO DO? 

1-SAVE MONTH'S FILE TO DISK 
2-LOAD MONTH'S FILE FROM DISK 
3 -SAVE YEARLY TOTALS TO DATE" 

210 PRINT" 4-LOAD YEARLY TOTALS 

5-RETURN TO MENU" 

220 PRINT: INPUT'CHOOSE" ; J 

230 ON J GOTO 240,270,299,349,235 

235 GOTO100 

240 IF S(l)-"" THEN PRINT'FILE EMPTY. ": INPUT" PRESS ENTE 
R";Z$:GOTO200 

241 OPEN"0",l,M(H) 

242 PRINT'SAVING MONTHLY FILE TO DISK " 

245 PRINT»1,P1 

250 FOR X=l TO Pl-1 

2 55 PRI NT* 1, SIX) : PRINT* 1 , X, • DA (X) ; E(X) ; D(X) ; I (X) ; A(X) ; T( 

X) ;G(X) ?F(X) ;C(X) 

260 NEXT:CLOSE 

265 PRINT: PR I NT" MONTHLY FILE SAVED TO DISK":FOR Z-l TO 

500:NEXT:GOTO 100 

27 ON ERROR GOTO 180 

27 2 OPEN"l",l,M(H) 

275 INPUT#1,P1 

280 FOR X«l TO Pl-1 

285 INPUT*1,S(X) :INPUT#1,X,DA(X) ,E(X),D(X),I(X),A(X),T( 

X) ,G(X) ,F(X) ,C(X) 

287 PRINTX;S(X) 

290 NEXT: CLOSE 

291 FOR X-l TO P1-1:L(X)-E(X)+D(X)+I(X)*A(X) :R(X)-T(X)+ 
G(X)+F(X)+C(X) :NEXT 

295 PRINT: PR I NT "MONTHLY FILE LOADED. ";: INPUT" PRESS 
ENTER" ;Z$: GOTO 100 

299 IF ES-0 AND DS-0 AND IS=0 AND AS-0 AND TS-0 AND GS«= 
AND FS-0 AND CS-0 THEN INPUT'FILE EMPTY. PRESS ENTER 
.";ZS:GOTO200X 

300 V$«M(H)+YS:OPEN"0",2,VS 

305 PRINT: PRINT'SAVING YEARLY TOTALS TO DISK...' 

320 PRINT»2,ES;DS;IS;AS;TS;GS;FS:CLOSE 

330 GOTO 100 

349 ON ERROR GOTO 180 

350 VS=M(H-1)*YS 
355 OPEN"I",2,V$ 

360 PRINT: PRINT" LOADING YEARLY TOTALS...." 
370 INPUT#2,ES,DS,IS,AS,TS,GS,FS:CLOSE 
380 GOTO 100 

599 REM * TO MAKE A FILE ENTRY * 

600 CLS: PRINT: PRINT: PRINT 
602 FOR X - PI TO 50 

610 CLS:PRINT:PRINT:PRINT 

612 PRINTX 

613 PRINT: PRINT'TO END FILE ENTRIES, TYPE 99" 
615 PRINT: IF DA(X) <> PRINT DA(X)j" "f 

620 INPUT'DAY OF MONTH" >DA(X) 

622 IF DA(X)-99 THEN Pl-X:GOTO 100 

630 IF S(X)<>"" PRINTS(X);* "j 

640 PRINT: PRINT'SOURCE OF INCOME (NOT OVER 24 SPACES)": 

INPUT S(X) 

645 IF LEN(S(X)) > 24 PRINT"TOO LONG. TRY AGAIN. " :GOT06 

40 

660 PRINT'WHAT TYPE OF ENTRY? 

1-EARNED INCOME 5-TAX FREE INTEREST 



2-DIVIDEND 6-SOCIAL SECURITY 

3-INTEREST 7-LIFE INSURANCE DIVIDEND 

4-ANNUITY B-MISCELLANEOUS ITEM 

662 ON ERROR GOTO 17 00 

665 PRINT: INPUT"CHOOSE" jB 

670 ON B GOTO 6100,6200,6300,6400,6500,6600,6700,6800 

680 CLS: PRINT: PRINT 

690 PRINT: PRINTX ; " DATE" ;DA(X) ; " ";S(X)" " ; 

691 IF E(X)>0 PRINT'EARNED INCOME " ; : PRINTUSING'StM , 
M.M"jE(X) 

692 IF D(X)>0 PRINT'DIVIDEND " ; : PRINTUSING'SM* , M . I • 
*;D(X) 

693 IF I(X)>0 PRINT" INTEREST " ; : PRI NTUSI NC" SIM , M . » I 
*;KX) 

694 IF A(X)>0 PRINT'ANNUITY " ; : PRI NTUS ING" $••» , M . ** " 
;A(X) 

695 IF T(X)>0 PRINT'TAX FREE INTEREST " ; : PRINTUSING"$ 
M*,M.M";T(X) 

696 IF G(X)>0 PRINT'SOCIAL SECURITY " j : PRINTUSING'SM 
#,i#.M";G(X) 

697 IF F(X)>0 PRINT"LIFE INS. DIV. ";: PRINTUSING'StM 
, M.I»';F(X) 

698 IF C(X)>0 PRINT"MISC. DEPOSIT ' ; : PRINTUSING'SM I , 
M.M";C(X) 

700 PRINT:PRINT*IF THE ABOVE IS INCORRECT, TYPE 1. IF 

THE PART THEN DISPLAYED" 

705 PRINT" IS CORRECT, PRESS ENTER, OTHERWISE TYPE THE C 

ORRECTION." 

707 PRINT: PRI NT" NOTE: IF THE ERROR IS IN THE TYPE OF IN 
COME, DELETE THE WHOLE" 

708 PRINT'ITEM AND REENTER." 

709 REM * INCOME TYPE ERROR CAN CAI'SK CONFUSION IK NOT 
DELETED * 

710 PRINT: INPUT'IF THE ABOVE IS CORRECT, TYPK 2 TO CO O 
N " ; Z 

720 IF Z«l GOTO 610 
7 30 IF Z<>2 GOTO 710 
740 NEXT:GOTO100 

799 REM * USES SAME CORRECTION SECTION AS FILE ENTRY * 

800 CLS: PRINT: PRINT:PRINT: PRINT 

810 PRINT'WHICII NUMBER DO YOU WISH TO CORRECT" 

815 PRINT: PRINT" (0 TO RETURN TO MENU) 

*;: INPUT K 

817 IF K=0 GOTO 100 

820 FOR X-l TO Pl-1 

830 IFK«X GOTO 680 

840 NEXT 

850 GOTO 100 

999 REM * DELETES ENTRY AND RENUMBERS » 

1000 PRINT'WHICH NUMBER DO YOU WANT TO DELK.TE?" 

1002 PRINT" (0 TO RETURN TO MENU) ";:INP 

UT X 

1005 IF X=0 GOTO100 

1010 DA(X)=0:S(X)-"":E(X)-0:D(X)=O: I (X) «0 : A( X) =0 : T( X ) =0 

:G(X)»0:F(X)=0:C(X)=O:L(X) «0:F.(X) *0 

1020 FOR X=X + 1 TO P1:DA(X-1)=DAIX) :S(X-1)«S(X) :E(X-1>«F 

(X) :D(X-1)»D(X) :I (X-l)-I(X) :A(X-1)«A(X) :T(X-1 ) =T( X) :G(X 

-l)-G(X) :F(X-1)«F(X) :C(X-1)=C(X) :L(X-1)=L(X) :R(X-1)=R(X 

) 

1025 NEXT 

1030 Pl-Pl-1 

1040 PRINT: PRINT'ENTRY DELETED. ": FOR Z=l TO 700:NEXT:GO 

TO 100 

1200 CLS :PRINTTAB( 16) "INCOME LEDGER FOR ";M(II);" ";YS:P 

RINT 

1210 PRINT"** DAY SOURCE OF INCOME TAXABLE 

NONTAX . " 
1220 PRINT STRINGS (54, 45) : RETURN 
1225 GOSUB 1200 REM * ALLOWS REPRINTING OF HEADING ON 

EACH 
PAGE OF VIDEO * 
1230 FOR X = 1 TO Pl-1 

1235 IF X/11-INT(X/11) PRINT: INPUT'PRESS ENTER TO CONTI 
NUE";ZS:CLS:PRINT:GOSUB 1200 
1240 IF R(X)»0 PRINT USING"** »* % 

% S*M,M.M";X;DA(X) ;S(X) ;L(X) 
1250 IF L(X)=0 PRINT USING"** M % 

% SM«,M.M";X;DA(X) ;S(X) ;R(X) 

126 NEXT: PRINT: INPUT" ENTER 1 TO RETURN TO MENU, 2 TO S 
EE YEARLY TOTALS .'; Z : IF Z«l GOTO 100 ELSE 1279 

1262 CLS:PR1NT:PRINT:PR1NT:PRINT*THE FOLLOWING COMPUTES 
INCOME TOTALS FOR THE MONTH AND FOR* 

1263 PRINT'THE YEAR. THE MONTH'S ENTRIES SHOULD BE COM 
PLETE, YOUR PRINTER" 

1264 PRINT"READY, AND THE YEARLY TOTALS INPUT FROM DISK 
BEFORE CONTINUING." 

1265 PRINT: PRINT'TO RETURN TO MENU, TYPE 1, TO CONTINUE 
WITH THE COMPUTATION," 

1266 PRINT'TYPE 2 . " :PRINT: INPUT Z 

1267 IF Z-l GOTO 100 

1268 IF Z<>2 GOTO 1262 
1270 GOSUB 70 00 

127 9 CLS 

1280 PRINT" TOTALS FOR *;M(H);' ";Y$j' MONTH 

YEAR TO DATE" 
1282 PRINT 

1285 PRINT"TOTAL EARNED INCOME " t : PRINTUSING'SM 
((,**(.(* $***«, »M.M";ET,ES 

Program continues 
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PRINTUSING'SII 



PRINTUSING'SII 
PRINTUSING'SII 



PRINTUSING'SII 
PRINTUSING'SII 



PRINTUSING'SII 



' j : PRIN 



"; :PRIN 
";:PRIN 



It % 

:L(X) 



1290 PRINT"TOTAL DIVIDENDS 
It, llt.lt Still, Ml. tl";DT,DS 
1300 PRINT"TOTAL INTEREST 
lt.lt*. II Still, III. If; IT, IS 
1310 PRINT'TOTAL ANNUITY FUNDS 
11,111.11 $ttlt,ltl.tl*;AT,AS 
1320 PRINT'TOTAL TAX FREE INTEREST 
It, III. It $lltt,ttt.tt";TT,TS 
1330 PRINT"SOCIAL SECURITY 
11,(11.11 $1111, tit. tl";GT,GS 
1340 PRINT'TOTAL LIFE INS. DIV. 
It, til. II $1111, III. II";FT,FS 
1355 PRINT:U$-"$tlll,tll.lt" 
1360 PRINT'TOTAL TAXABLE INCOME TO DATE 
TUSINGU$;LS 

1370 PRINT'TOTAL NONTAX. INCOME TO DATE 
TUSINGU$;RS 

13B0 PRINT'TOTAL INCOME TO DATE 
TUSINGU$;Q 

1390 PRINT: INPUT'PRESS ENTER TO CONTINUE" ; ZS :GOTO 100 
1400 CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"IF YOUR PR 
INTER ISN'T READY, ENTER 1 TO RETURN TO MENU," 
1402 PRINT: INPUT" OTHERWISE ENTER 2.";Z:IF Z-l 

GOTO 100 

1405 CLS:LPRINTTAB( 32) "INCOME LEDGER FOR ";M(H);" ";YS: 
LPRINT"" 

1410 LPRINTTABU9) "II DAY SOURCE OF INCOME 
TAXABLE NONTAX." 

1420 LPRINTTABI19) STRINGS ( 54 , 45) 
1430 FOR X-l TO Pl-1 

1440 IF R(X)=0 LPRINTTAB(19) USING"** 
% SIII,lt.tt";X;DA(X) ;S(X) ; 
1450 IF L(X)=0 LPRINTTAB(19) USING"tl II % 

% $tll,ll.ll";X;DA(X);S(X);R(X) 

1460 NEXT:LPRINTTAB(19) STRINGS ( 54 , 45 ): LPRINT" 
1480 LPRINTTAB(19) " TOTALS FOR ";M(H);" ";YS;" 

MONTH YEAR TO DATE" 
1482 LPRINT'" 

1485 LPRINTTAB(19) "TOTAL EARNED INCOME ' 
TAB (19) USING" Silt I, III. 1 1 S 1 1 1 1 , 1 1 1 . 1 1" ; ET, ES 
1490 LPRINTTAB( 19) "TOTAL DIVIDENDS ' 

TAB(19)USING"$lttt,ttl.tt $*»»*, **».**";DT,DS 
1500 LPRINTTAB(19) "TOTAL INTEREST ' 

TAB( 19) USING" SHI 1,1*1.11 $»»•», Ml .11"; IT, IS 
1510 LPRINTTAB{ 19) "TOTAL ANNUITY FUNDS ";:LPRINT 
TAB(19)USING'S*((*,ttt.t( $1111, III. II'; AT, AS 
1520 LPRINTTAB(19) "TOTAL TAX FREE INTEREST " 
TAB (19) USING" $11 It, It I. It Still, lit. lt";TT,TS 
1530 LPRINTTAB( 19) "SOCIAL SECURITY " 

TAB( 19) USING" $11* I, ttt.lt $ 1 1 1 1 , 1 1 1 . 1 1 " ; GT, GS 

1540 LPRINTTABt 19) "TOTAL LIFE INS. DIV. 

TAB (19) USING" Still, III. It SI t I t , I t I . t I " ; FT, FS 

1555 U$-"$****, ***.**" 

1557 LPRINT" 

1560 LPRINTTAB( 19) "TOTAL TAXABLE INCOME TO DATE 

"; :LPRINTTAB(19)USINGUS;LS 
1570 LPRINTTAB( 19) "TOTAL NONTAX. INCOME TO DATE 

"; :LPRINTTAB(19)USINGU$;RS 
1580 LPRINTTAB( 19) "TOTAL INCOME TO DATE 

"; :LPRINTTAB(19)USINGU$;0 
1590 PRINT: INPUT'PRESS ENTER TO CONTINUE" ; ZS :GOTO100 
1600 CLS: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: INPU 
T'HAVE YOU SAVED FILES TO DISK (Y/N)";Z$ 
1610 IF Z$«"N" GOTO 100 
1620 PRINT: PRINT'OK. SO LONG!':END 

1700 PRINT: INPUT" ENTRY ERROR. PRESS ENTER AND TRY AGAI 
N.";Z$:GOTO 665 

1800 PRINT: INPUT'NO FILE ON DISK. PRESS ENTER. " ; ZS : GOT 
0100 

4000 CLS:PRINT:PRINT 

4010 PRINT" PERSONAL INCOME LEDGER" :P 

RINT 

4020 PRINT'l) DISK FILES ARE NAMED AUTOMATICALLY. THE 
MONTHLY FILES ARE" 

4030 PRINT'JAN, FEB, ETC. THE YEARLY TOTAL FILES ARE J 
AN1979, FEB1979," 

4040 PRINT'ETC., AND ACCUMULATE THE FIGURES FOR THE YEA 
R TO DATE." 
4060 PRINT 
4090 PRINT"2) MAKE ENTRIES FOR THE MONTH. SAVE TO DISK 

WITH DISK OPTION" 
4100 PRINT'tl. BEFORE ADDING ENTRIES FOR THE SAME MONT 
H, USE DISK OPTION" 

4110 PRINT"I2 TO LOAD THE PREVIOUS ENTRIES." 
4130 PRINT: INPUT'PRESS ENTER" ; ZS :CLS : PRINT: PRINT: PRINT 
4140 PRINT"3) UNDER TYPES OF INCOME, THE FIRST FOUR ARE 

TAXABLE, THE LAST" 

4159 PRINT'FOUR NONTAXABLE AND ARE SO RECORDED BY THE P 
ROGRAM." 

4160 PRINT"MISCELLANEOUS TYPES SHOULD INCLUDE SUCH THIN 
GS AS LOAN" 

4170 PRINT-REPAYMENTS, GIFTS, REFUNDS, ETC. MISCELLANE 

OUS ITEMS ARE NOT" 

4180 PRINT'TOTALED INTO NONTAXABLE INCOME SINCE THEY DO 

N'T REPRESENT" 

4190 PRINT" INCOME.": PRINT 

4200 PRINT"4) MENU CHOICES 4, 5 AND 6 MAY BE USED DURIN 

G PREPARATION OF" 

4210 PRINT'MONTHLY FILES." 

4220 PRINT: INPUT'PRESS ENTER" ; ZS :CLS 

4230 PRINT: PRINT" 5) WHEN A MONTHLY FILE IS COMPLETE, U 

SE DISK OPTION" 



: LPRINT 



LPRINT 



: LPRINT 



: LPRINT 



; LPRINT 



: LPRINT 



four (CORRECT AN ENTRY), five 
(DELETE AN ENTRY), or six (SEE 
A PRINTOUT ON VIDEO) at any- 
time while making these entries. 
Option four is also useful for 
checking the income type you 
have chosen, since it is not 
printed by either the video or 
hard copy printouts. 

After the month's entries are 
on disk, disk option four loads 
the yearly totals from the pre- 
vious month. Menu option two 
totals each type of income for 
the month and the year and 
displays the results. You can 
use disk option three to save the 
totals, menu option six for a 
complete video printout, and 
seven for hard copy (see Table 3 
for sample). 

Changes 

Change to cassette data files 



will require alterations between 
lines 240 and 370. Sequential 
disk files, which are used, are 
quite similar to cassette files, 
and use of the Level II Basic 
Reference Manual should make 
this change simple. 

Taxable items can be changed 
to nontaxable or vice versa in 
lines 7000-7070 and 6099-6820. 
Note that L( ) and R( ) collect the 
taxable and nontaxable items 
for printing in columns. Refer to 
the list of variables (Table 4) as 
necessary. 

Miscellaneous entries in- 
clude loan repayments, refunds, 
and money from the sale of 
stocks and bonds. The program 
doesn't handle capital gains be- 
cause of their special require- 
ments, but you can type the data 
on the back of the monthly 
pages. 



4240 PRINT'll TO SAVE IT TO DISK. NEXT, GET YOUR PRINT 

ER READY. IF THIS" 

4245 PRINT'RESULTS IN LOSS OF THE PROGRAM AND/OR MONTIIL 

Y FILE, RELOAD" 

4250 PRINT'THEM. THEN USE DISK OPTION 14 TO LOAD THE Y 

EARLY TOTAL FILE" 

4255 PRINT'AND MENU OPTION 12 FOR COMPUTATIONS. AT TH I 

S TIME, THE RESULTS" 

4260 PRINT'MAY BE CHECKED ON VIDEO (MENU OPTION 16) OR 

HARD COPY MADE" 

4270 PRINT"(OPTION 17). THE YEARLY TOTAL SHOULD BE SAV 

ED TO DISK BEFORE" 

4280 PRINT"LEAVING THE PROGRAM." 

4290 PRINT 

4310 PRINT"6) IT IS DESIRABLE TO KEEP A SET OF FILES ON 

A SECOND DISK" 
■! i 2 ? PR I NT " F OR BA( K U P . " 

4338 PRINT: PRINT"7) REENTRY TO THE PROGRAM, IF NEEDED, 
IS AT LINE 100." 

4348 PRINT: INPUT'PRESS ENTER" ; Z$ : CLS : GOTO 40 
60 00 END 

6099 REM * CLASSIFY INCOME AND SEPARATE INTO TAXABLE, L 
(X) , 

AND NONTAXABLE, R(X) * 

6100 IF E(X)<>0 PRINT E(X); 

6110 PRINT: INPUT"AMOUNT OF EARNED INCOME" ; E (X ) 

6120 L(X) = E(X) :GOTO 680 

6200 IF D(X)<>0 PRINT D(X); 

6210 PRINT: INPUT"AMOUNT OF DI VIDEND" ; D (X) 

6220 L(X) -- D(X) :GOTO 680 

6300 IF I(X)<>0 PRINT I(X); 

6310 PRINT: INPUT'AMOUNT OF INTEREST" ; I (X) 

6320 L(X) = I(X):GOTO 680 

6400 IF A(X)<>0 PRINT A(X); 

6410 PRINT: INPUT'AMOUNT OF ANNUITY" ; A(X) 

6420 L(X)=A(X) :GOTO 680 

6500 IF T(X)<>0 PRINT T(X); 

6510 PRINT: INPUT'AMOUNT OF TAX FREE INTEREST" ; T ( X ) 

6520 R(X) -T(X) :GOTO 680 

6600 IF G(X)<>0 PRINT G(X); 

6610 PRINT: INPUT'AMOUNT OF SOCIAL SECUR ITY" ;G(X) 

6620 R(X) =G(X) :GOTO 68e 

6700 IF F(X)<>0 PRINT F(X); 

6710 PRINT: INPUT'AMOUNT OF LIFE INSURENCE DIVIDEND" ; F (X 

) 

6720 R(X)=F(X) :GOTO 680 

6800 IF C(X)<>0 PRINTC(X); 

6810 PRINT: INPUT'AMOUNT OF MISCELLANEOUS ITEM*;C(X) 

6820 R(X)-C(X) :GOTO 680 

7000 REM * COMPUTATIONS * 

7005 FOR X«l TO Pl-1 

7010 ET=ET+E(X) :DT«DT+D(X) :IT=IT+I(X) :AT»AT+A(X) 

7020 TT=TT+T(X) :GT=GT+G (X) :FT»FT+F(X) 

7025 NEXT 

7030 ES=ES+ET:DS»DS*DT: I S- IS+IT : AS-AS+AT 

7040 TS=TS+TT:GS=GS+GT:FS-FS+FT 

7050 LS=ES+DS+IS+AS 

7060 RS=TS+GS+FS 

7070 Q=LS+RS 

707 5 RETURN 
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Games from BIG FIVE will 
turn your computer into a 



SUPER NOVA 



© 




"Huge ASTEROIDS have invaded the 
galaxy! Your mission is to destroy them 
and the alien saucers before they de- 
stroy you!" Our #7 top selling game! 

$14.95 16K Livil I ir II 



TRS-80 
HOME ARCADE 

METEOR MISSION' GALAXY INVASION 




"The second Big Bang has occurred 
and the galaxy is full of stray meteors 
and asteroids. Can you survive to dock 
your ship with the space station?" 

$9.95 4K Livil I or II 



■ OB BOS 






The newest and most exciting Invaders- 
type game yet! Smooth sound effects, 
sharp graphics, and the "Flagship" alien 
from Super Nova combine to make this 
our finest TRS-80 game! 

1.95 16K Level I or II 



$14. 



BIG FIVE SOFTWARE CO. 

P.O. Box 9078-185 • Van Nuys, CA 91409 ^357 



All games © 1980 by Bill Hogue & Jeft Konyu 
TRS-60 is a trademark ol Tandy Corp 
When ordering specify Level I or II. 
Please add $1 00 for handling, Calif res add t 
10% discount for two games, All 3 for $34 00 
Dealer inquiries invited 




TRS-80's 



DISCOUNTS of 10% , 15% and More 
available. 

WE PAY Domestic UPS. shipping and 
insurance on minimum orders. 

NO TAXES are collected on out-of-state 
shipments. 

TOLL FREE Order Number 800 531-7466. 

OPEN 8:00a.m. to6:00 p.m., Central 
Time, Monday through Friday; 
9:00a.m. to6:00p.m., Saturday. 



Pan American Electronics 



Incorporated 

a Radio /haek 

AUTHORIZED SALES CENTER 

1117 CONWAY MISSION, TEXAS 78572 

TOLL FREE ORDER NUMBER 800/531-7466 

TEXAS AND PRINCIPAL TELEPHONE NUMBER 512/581-2765 



-« Reader Service— see page 226 
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NEW FROM 




AUDEX 

SOUND EXPERIMENTER 

For TRS-80 Level II, I6K 



Gives you complete access to sounds, 
using multiple indexed routines. Jump 
to any of them instantly. Each sets up 
the parameters for a specific sound cat- 
egory. You input a few codes-hear the 
result immediately. Write the created 
sounds into your own programs, or add 
them to existing software. 

Needs RS 277-1008 ($10.95 from Radio 
Shack) or equivalent mini speaker /amp. 
tasy instructions are part ot AUDEX. 

CASSETTE, S9.95 

Florida residents add 4% sales ta\ 
ORDER TODAY FROM 




Suite 406, 537 S. Sequoia Drive 
West Palm Beach, FL 33409 ^ 217 




handling with check or money 
order. NYS residents add 7% tax. 

SYRACUSE R&D CENTER 

Box 125, DeWitt, N.Y. 13214 

"our 10th year in R&D' ^ib& 



Disk Based 
Word Processor 



■ . I ■ > t * s . . I 

l*f- "nil , MM Mtlflb*. IMCWIW « I 



•> i*< »o o%i 



7 



50 



Available Now! 



Mailing List Dption 



■■\ i .. . , . 



cmru 'i >oi in i ■' 

)!< MO 0»l Oil- Ollil 



7 



5Q 



y^fiMTJ 



444-y West First Ave. 
Vancouver, B.C. 






VBR 4H9 
60.4-224-3107 




f PRODUCTS FOR PEOPLE WHO CARE ABOUT THEIR TRSWS ^jlA 

? ^^l???"?- ~ BV Apparat M,x drives ' cham commands, enhanced C ALCS - Adds arithmetic mampulat.on to your reports ^| 




Disk BASIC. SUPERZAP in machine language, editor/assembler, 
printer spooling, etc. Excellent documentation 
#201007 (D) $149 95 

N EWDOS - This is TRSDOS with over 200 fixes and enhancements. 

35 track #201 002 (D) $49.95 

40 track. . . . #201001 (D)$59.95 
77 track. . . . #201005 (0) $59.95 

NEWDOS+ — Same as NEWDOS. but includes some mdispensible 

utilities such as SUPERZAP. editor/assembler, etc. 

35 track #201 004(D) $99 95 

40 track #201 003 (D) $11 0. 

77 track #201 006(D) $1 10. 



BASIC COMPILER — By Microsoft. Develop your program in Disk 
BASIC, then compile it for up to 30 times the speed! 
#201207 (D) $195 

mmsFORTH — By Miller Microcomputer Services. Unconventional 
yet powerful, this language is recursive, interactive, and fast.. 
#206000 (D) $79.95 

AIDS-3 — By Meta Technologies. In our opinion the best DBMS for 
the money. In fact, we use it in our office Suitable for personal as well 
as business uses. Performs operations on multiple conditions Multi- 
key sort is machine-language assisted (it's f«»t). MAPS-3 (included) 
lets you generate reports in standard or user-defined formats. 
#201 300 (D) $69.95 

LEVEL IV PRODUCTS INC, Dept 1 D9 

32238 SCHOOLCRAFT, SUITE F4 ^ 14 
LIVONIA MICHIGAN 48150 



#201301 (D) $24.95 

CORVUSTEN MEGABYTE DISK DRIVE- Imagine 95 

40- track drives all on line at once 1 Max file seek time (searching all 95 
directories) is six seconds. Includes TRSDOS-compatible DOS 
#105000 (call toll-free for price) 

THE CONSTELLATION- By Corvus. Each Constellation allows 
up to 8 TRS-80 s (up to 64 TRS-80's with 8 Constellations) to share up 
to four Corvus drives simultaneously. The standard Corvus DOS 
supports full communication between host processors. 
#105001 (call toll-free for price) 

MICROLINE-80 PRINTER - By Ok.data. Designed especially 
for the TRS-80. this printer supports true TRS-80 graphics, upper/lower 
case, software-selectable 40/80/1 32 columns, pin-feed, roll paper, or 

typing paper. Relatively quiet and portable #100002 $699 

TRACTOR luse for narrower forms) #100001 $1 10 

INVADERS+wrth sound #200140(0 $19 95 #200141 (D) $24.95 
PINBALL with sound #2051 1 1 (C) $14. 95. #2051 22 (D) 20.95 

CYLON RAIDER #200104 (C) $7.95 

MEAN CHECKERS MACHINE -By Lance M.cklus 
#200123 (C) $19 95 

. #200122 (D) $24 95 

from $19 95 

#200105 (C) $9.95 



DUNJONQUEST FANTASIES 
ANIMATED HANGMAN with sound 



Please add $2.50 for shipping and handling. 

COD add another $1.25 plus 25% deposit, balance 

certified check or cash. 



1(800)521-3305 • in Michigan (313) 525-6200 • Source:TCF541 
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This program considers life 
insurance dividends as nontax- 
able income, although they are 
actually premium refunds. You 
can change this by omitting 
" + FS" from line 7060. 

Annuity payments can also 
be modified to record a second 
earned income by changing the 
entry name im lines 660, 694, 
1310, 1510 and 6410. 

The printout is for five and 
one-half by eight and one-half- 
inch paper at 12 characters per 
inch. The printout itself is 54 
characters wide with a seven 
character margin. 

You can narrow the printout 
by as much as 14 characters by 
reducing the Source of Income 
heading from 24 to 10 and re- 
moving the same number of 
spaces from between the per- 
centage signs in lines 1440 and 
1450. Abbreviate other terms 
such as Total Earned Income 
(line 1485), and decrease the 
first number in STRING$(54,45) 
(lines 1420 and 1460). 

To use a 40 column printer, 
get rid of the margin by remov- 
ing TAB(7) after each LPRINT. 

If you decrease the hard copy 
width and want your video print- 
out to match, make the same 



changes in lines 1200 to 1390. 

About the Program 

The program asks for the year 
and month and automatically 
generates data files. In any 
month but January, the yearly 
total file will be from the preced- 
ing month. 

The program will allow you to 
return to the menu if you choose 
a wrong number. If you press the 
break key and get into BASIC, 
type GOTO 100 to get back to 
the menu without loosing data 
files. 

Line 240 saves the original file 
if you accidentally choose SAVE 
MONTH'S FILE TO DISK instead 
of LOAD MONTH'S FILE FROM 
DISK. Without some such safe- 
guard the program could file a 
string of zeros and erase the 
original file. Line 299 gives a 
similar safeguard for SAVE 
YEARLY TOTALS TO DATE. 

An ON ERROR GOTO pre- 
vents data loss if you choose 
LOAD MONTH'S FILE FROM 
DISK when there is no such file 
or pick LOAD YEARLY TOTALS. 

Using TRSDOS 2.2 or 2.3 in- 
stead of NEWDOS and without 
the ON ERROR protection, the 
above causes the program to be 



H 


DAY 


SOURCE OF INCOME 




TAXABLE 




NONTAX. 


1 


1 


TIAA 




S 


22568 






2 


1 


IA PS 




s 


153 00 






3 


3 


NWPS 




s 


21250 






4 


3 


SS (PD TO BANK) 










$ 41810 


5 


3 


MASS MUT DIV 










S 3315 


6 


S 


GAS SERV 




s 


160 00 






7 


'0 


NE INV TRUST 




s 


178 52 






8 


10 


TEXACO 




s 


50.00 






9 


15 


OMAHO NAT L CORP 




s 


225 00 






10 


15 


MUNI INV TRUST 










$58 10 


11 


15 


TESORO 




$ 


108 00 






12 


17 


CORP INC FUND 




$ 


35.05 






13 


21 


KCP&L 




s 


256 00 






14 


29 


JAPAN FUND 




$ 


1500 






TOTALS FOR MAR 1979 


MONTH 


YEAR TO DATE 


TOTAL EARNED INCOME 


S 


OCX) 




S 


0.00 


TOTAL DIVIDENDS 


s 


1.393 07 




1 


1.740 12 


TOTAL INTEREST 


$ 


0.00 




s 


0.00 


TOTAL ANNUITY FUNDS 


1 


225 68 




$ 


67704 


TOTAL TAX FREE INTEREST 


s 


58 10 




$ 


495 10 


SOCIAL SECURITY 


$ 


41810 




s 


1 .254 30 


TOTAL LIFE INS. OIV 


s 


33 15 




$ 


99.67 


TOTAL TAXABLE INCOME TO DATE 






$ 2.417.16 




TOTAL NONTAX INCOME TO DATE 






$ 1.849 07 




TOTAL INCOME TO DATE 






S 4.26623 








Table 3. Income Ledger for Mar 1979 





YS 


Year 


vs 


Yearly file name 


M<) 


String, name Of month 


H 


Number of month 


DA<) 


Day of month 


so 


String, source of income 


E( I.ET.ES 


Earned income, monthly total, yearly total 


D( l.DT.DS 


Dividends, monthly total, yearly total 


l(),IT,IS 


Interest 


A( ).AT.AS 


Annuity 


T( I.TT.TS 


Tax free interest 


CM l.GT.GS 


Social Security 


F( I.FT.FS 


Life insurance dividend 


Q> 


Miscellaneous items 


Ml 


All taxable items 


LS 


Total taxable income to date 


RO 


All nontaxable items 


RS 


Total nontaxable income to date 


Q 


Total income to dale 


US 


Formatter 


X 


File counter 


B,J.K,Z 


Counters and null 


P1 


Number of items plus one (99 to end entries) 


Table 4. Variables for Ledger Program 



booted out to BASIC rather than 
to DOS. If that should happen, 
the files can easily be saved by 
typing GOTO 100. The protec- 
tion, however, works the same 
with TRSDOS as with NEWDOS. 
In regard to disk space, none 
of my summary data has taken 



up more than one gran. Since 
the program requires nine 
grans, the total disk space, in- 
cluding the program, for a year 
comes to 32 grans and fits nice- 
ly onto one disk. Using hard 
copy, the same disk can be used 
year after year. ■ 



MORE FROM MANHATTAN 

APPLICATIONS 

CALCULATOR PLUS makes your TRS-80 a printing calculator, or 
an excellent on-screen calculator without a printer. Chain and 
mixed calculations, memories for answer storage or calcula- 
tions with constants On-screen or printed review of long add- 
and-subtract operations Optional dollar format MPC-1 $9 95 

CHECKBOOK PLUS solves the problem of monthly bank state- 
ment reconciliation without cumbersome tape record-keep- 
ing just do your checkbook once a month and let Checkbook 
Plus handle all the details and find the errors MCB-1 S9 95 

CALCULATOR & CHECKBOOK PLUS on one cassette MC 2 $14 95 

THE LISTMAKER Powerful, versatile program allows entry of 
400 names or items, with codes, in 16K Lists by code onscreen 
or to printer Sorts, provides editing of entry or code, dump- 
ing, loading lists. Pull any category from list in seconds 

MLM-1 $9.95 

DIVERSIONS 

CIN RUMMY 2.0 plays a strong game, good enough to challenge 
an expert player Plays a full regulation game keeps score to 
game and changes strategy to counter opponent's play A pro- 
gram you'll enjoy playing against and trying to beat 

MGR 1 $14 95 

LABYRINTH run A fast action game, racing through sharp 
turns slaloms and narrowing passages Set a record time -or 
hit a wall and you're out Each labyrinth has Sprint and Full 
courses with three levels of skill A fascinating test of coordi- 
nation and skill High speed graphics MLR-1 $995 

E.S.P. LAB Based on the famous Duke university experiments. 
The computer selects symbols at random to display on the 
screen for ESP trials. Analyzes trial results for direct telepathy, 
precognition, postcognition. special tests for precognition and 
telekinesis Machine-language graphics MTL-1 S9 95 

MANHATTAN SOFTWARE. Inc. ^90 
P.O. Box 5200 Grand Central station 
New York City, New York 10017 
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UTILITY 



A real time waster. 



Delay Loop 



Allans. Joffe 
1005 Twining Road 
Dresner, PA 19025 



If you've ventured into the 
'world of assembly program- 
ming you'll eventually need a 
delay or timing loop. Though 
there is no "best way" to delay a 
program, we can explore various 
methods. 

Basically a time delay loads a 
value into a register (or values 
into a pair of registers) and then 
decrements this value to zero. 
This means we also need a 
mechanism that tells the com- 
puter when it has decremented 
the initial value to zero, so that it 
can continue the program. 



The Zero Flag 

Consider Listing 1, loaded us- 
ing T-BUG. 

The C2 instruction in memory 
location is a JPNZ,NN which 
signals the computer that if the 
comparison of the contents of 
the D and A registers is not zero 
that it should go back to the 
location specified by the NN 
which in our case is 4A02. This is 
the location of the decrement in- 
struction. 

One thing that this routine 
does not take into account is 
that when decrementing a 
single register, the zero flag is 
operative. (This is not true when 
we come to the case of 
decrementing a pair of 
registers.) 

You notice that to continue 
the decrementing process, we 
had to tell the program to go 
back to a specific location. This 
means that if you did not load 
the program into the memory 
locations specified, you would 
have had to change the return 



4A00 


16 


4A01 


FF 


4A02 


15 


4A03 


3E 


4A04 


oc 


4A05 


BA 


4A06 


C2 


4A07 


02 


4A06 


4A 


4A09 


C3 


4A0A 


00 


4A0B 


43 



Load register D with N (value to decrement) 
Hex tor 255 

Decrement value in D register 
Load the A register with zero this is 
the test value to show loop is done 
Compare value in D with value in A 
It this test shows A and D both zero the 
loop is timshed. It not pgm goes to 4A02 
and continues decrementing value in D 
When decrement is finished the program 
'etums to T-BUG which is at 4380 



Listing 1. 



FF 




1 


FE 




2 


FD 




3 


FC 




4 


FB 




5 


FA 




6 


F9 




7 


F8 




8 


F7 




9 


F6 




10 


F5 




1t 


F4 




12 


F3 




13 


F2 




14 


F1 




15 


P0 


Table 1. 


16 


Minus Relative Jump Values 


(twos complement form) 



locations in 4A07 and 4A08. 

In Listing 2 we will use a 
relative jump instruction that 
obviates the need for such 
changes. This allows the pro- 
gram to relocate, for with the 
relative jump, the computer 
knows where it should go even if 
you change the origin of the 
routine. 

In this listing I've introduced 
the mnemonic form of the in- 
struction. 

This listing is considerably 
shorter than the first one for 



4A00 


16 


LDD.N 


4A01 


FF 




4A02 


15 


DECD 


4A03 


2C 


JRNZ 


4A04 


FD 




4A05 


C3 




4A06 


30 




4A07 


43 

Listing 2. 





several reasons. One is that the 
first example is used to il- 
lustrate the idea of comparing 
the contents of one register with 
another to determine when the 
zero condition is reached. The 
first listing tells the program 
where to go if the zero condition 
has not been reached. This 
takes three locations, while the 
new method uses but two loca- 
tions in memory. 

The jump relative instruction 
in location 4A03 works in con- 
junction with the FD information 
in location 4A04. We know that 
to make the loop decrement we 
have to keep returning to loca- 
tion 4A02. Location 4A02 is 
three steps back from location 
4A04, counting location 4A04 as 
step one. You have signaled the 
computer that this is what you 
want by inserting FD. 

What is the significance of 
FD? It is a minus three in twos 
complement form. If you had 
needed a relative jump of minus 
seven, then the FD would have 
become F9. Table 1 shows the 
relative jump values from minus 
one to minus 16. 

The absolute delays pro- 
duced by the simple timing loop 
using a single register is just 
about maximum when the 
register initial value is FF (255 
decimal). I say "just about" 
because if the initial value in the 
register is 00. then you have 256 
iterations of the loop, because 
the first decrement takes you 
from 00 to FF. 

This is a bone for the nit- 
pickers in the group. 
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Longer Delays 

If we need longer delays, we 
can insert another identical loop 
after the first one, but there is 
another route to travel. This 
method decrements a pair of 
registers. If one register can be 
packed with FF, then two regi- 
sters can be packed with FFFF. 

Remember, if we use a pair of 
registers we will have to resort 
to some sort of a compare 
operation as with Listing 1, 
because when you decrement a 
pair of registers, the zero flag is 
not automatically working in 
your behalf. Thus we need some 
program steps to get the zero 
flag back from vacation. 

Since the idea of the jump 
relative code seems to have 
merit we will go that route as 
well. When possible, I like to use 
the BC register pair for 
decrementing. BC seems to 
shout out "byte counter" and is, 
for me, a memory jogger. 

Running Listing 3, you notice 
that it takes more time before 
the program returns to T-BUG. 



4 A Of 


01 


LDBCNN 


4A01 


ff 




4A02 


FF 




4A03 


OB 


DEC BC 


4A04 


7ft 


LDA.B 


4A05 


BO 


ORB 


4A06 


B1 


ORC 


4A07 


20 


JRNZ 


4A08 


FA 




4A09 


Oil 




4A0A 


HO 




4A0B 


43 




Listing 


3. Decrementing 


the BC 


register 


pair. 



This tells us that we have 
achieved a much longer delay 
than when decrementing the 
contents of a single register. 
The delay is in the neighborhood 
of 1.1 seconds. 

The listing also uses the OR 
function, which is why we had to 
do what we did in memory loca- 
tion 4A04. 

To operate any of the logic 
functions, you have to call on 
the services of the A register. 

The jump relative figure in 
location 4A08 is equal to minus 
six (see Table 1), the proper 



value to get back to location 
4A03, which contains the DEC 
BC instruction. 

The above is but one viable 
routine, not the only one. 

The Interrupt 

Now let us get down to the 
business of combining a single 
register decrement and the 
register pair decrement to 
achieve significantly longer 
time delays. The game plan is to 
interrupt the decrement of the 
register pair while a single 
register decrements to zero. BC 
is the register pair in Listing 4 
and the D register is used as the 
interrupt register. 

When you load Listing 4 and 
RUN, be prepared to sit back for 
two minutes and 32 seconds 
before it returns you to T-BUG. 
The key element of the time 
delay is the value in location 
4A05, the value being 
decremented in the D register. 

If you change this value from 
FF to AA, then the delay time 
becomes one minute and 43 
seconds. If it is changed to 64, 



then the time delay is one 
minute and one second. Chang- 
ing this value to OA is going to 
give you a total time delay of 
about eight seconds. Thus this 
delay routine is quite flexible 
and should satisfy all but the 
most unusual needs. 

You will get the most good 
out of this exercise if you use 
the Breakpoint of T-BUG to ex- 
amine the program at various 
points.! 



4A00 


01 


LD BCNN 


4A01 


FF 




4A02 


FF 




4A03 


OB 


DECBC 


4A04 


16 


LDO.N 


4A06 


FF 




4A06 


15 


DECD 


4A07 


20 


JRNZ 


4A08 


FD 




4A09 


n 


LDA.B 


4A0A 


BO 


OR B 


4A0B 


Bi 


ORC 


4A0C 


20 


JRNZ 


4A0D 


F5 




4A0E 


C3 




4A0F 


80 




4A10 


43 






Listing 


4. 




CalData Systems Presents 



• 2*4 



WordMagic II 

Complete WORD PROCESSING 

designed specifically for 

The Radio Shack TRS-80 Model II Computer 

WofdMagic M" is a Word Processor designed speciti 
cally tot the Radio ShacK TRS80 Model II Computet " 

FEATURES INCLUDE: 

•Mailing List/Labels Generation 

•Automatic Merging of Mailing Data 
with Text Files to created "PER- 
SONALIZED" Form Letters 

•Automatic wrap-around in text entry 

•Margination, Paging, Complete Cur- 
sor Movement 

•Complete Editing Commands— Inser- 
tion, Global Substitution, Overwrite, 
etc. 

•Centering, Smooth Right, Left Justify 

•Table of Contents Generation 

•Automatic Page Numbering 

•Variable Form Lengths 

•Underlining 

•Line Numbering 



HHHiiII **K MO « «l n. rUSDOS • BASIC mot I,-o„t~l Mil Wc/O-M. }:Ci 
Intmdvctofr Pnc>»« SIMM) *>*<•■>« CM 1C11 ••• #Cd Mil 



CalDala Syslems ', S>* / P.O. Box 1 76446 
San Diego. CA 92117 (714)272 2661 




• Reader Service— see page 226 
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MATH 



A graphics generator with emphasis on aesthetics. 



Divine Proportions 



David ft Cecil 
Texas A&l University 
Kingsville, TX 78363 



Have you ever wondered 
about the size and shape of 
things, why paintings, books 
and cards have the dimensions 
they do? 

The programs included with 
this article are designed to help 



readers explore aesthetics. The 
programs generate rectangles, 
ellipses and boxes. Decide 
which ratio of adjacent sides- 
minor to major axis— presents 
the most pleasing figure to you. 

Diminishing Ratios 

The programs generate fig- 
ures of any size within bounds 
of the video display. The figures 
will then sequentially shorten 
one or more sides. Using the 
square as an example, it be- 
comes a rectangle, then a small- 
er rectangle and so on with the 
ratio of width to length going 
from 1:1 to 0:1. As the video 
pauses between changes, any 



key can be pressed to read the 
current width to length ratio 
from the screen. 

If preferences for this ratio 
were randomly distributed, 
there wouldn't be much point to 
this experiment. The interesting 
and remarkable fact is that most 
people prefer the same width to 
length ratio. This preference 
falls into a fairly narrow range 
centered at 0.618. 

Studies as far back as 1876 by 
G. T. Fechner in Germany con- 
firm this attraction. He found a 
definite preference at 0.62 and 
most results in the range 0.57 to 
0.67. 



An aesthetic preference for 
0.618 (actually 2/(1+^5) was 
known even before the time of 
Pythagoras. Its reciprocal is of 
fundamental importance. 

Called the golden ratio or di- 
vine proportion, it appears in 
many and diverse ways through- 
out mathematics, nature, art 
and architecture. This golden 
ratio is an irrational number 
1.61803398 and is often ex- 
pressed algebraically as a:b = b: 
(a + b). The number is also 
known as <t>, taken from the first 
letter of the name of Phidios, the 
Greek sculptor and planner 
under Pericles, who utilized the 
golden ratio in his work. 



REM PROGRAM TO DRAW SUCESSIVELY SMALLER RECTANGLES 

1 REM BY DAVID R. CECIL 

2 REM A SQUARE IS FORMED FIRST 

3 REM IF THE SCALE FACTOR IS ONE THEN THE SQUARE 

4 REM IS APPROX. 14.4 CM. PER SIDE 

10 INPUT" SCALE FACTOR BETWEEN AND 1";N 

20 INPUT" T (FOR TOP) OR L (FOR LEFT) " ;V$ :CLS 

21 REM T DENOTES THAT THE TOP IS APPROACHING THE BOTTOM 

22 REM (THE HORIZONTAL DIM. IS DECREASING), WHILE 

23 REM L DENOTES THE LEFT APPROACHING THE RIGHT (THE 

24 REM VERTICAL DIM. IS DECREASING) 
30 X1«20+90*N:Y1»41-40*N 

35 REM FORM THE TOP LINE FROM (20, Yl) TO (XI, Yl) 

40 FOR X-20 TO XI 

50 SET(X,Y1) :NEXT X 

55 REM FORM THE RIGHT SIDE FROM (XI, Yl) TO (XI, 40) 

60 FOR Y»Y1 TO 40 

70 SET(X1,Y) :NEXT Y 

7 5 REM FORM THE BOTTOM FROM (XI, 40) TO (20,40) 

B0 FOR X-Xl TO 20 STEP -1 

90 SET(X,40) :NEXT X 

95 REM FORM THE LEFT SIDE FROM (20,40) TO (20, Yl) 

100 FOR Y-40 TO Yl STEP -1 

110 SET(20,Y) :NEXT Y 

120 GOSUB 300 

125 REM LINES 140 TO 210 RE USED FOR CHANGING THE TOP, 

126 REM WHILE LINES 220 TO 290 ARE FOR CHANGING THE LEF 

T SIDE 
130 IF V$-"L" THEN 220 
135 REM ERASE TOP LINE 
140 FOR Y-Yl TO 40 



150 FOR X«20 TO XI 

160 RESET(X,Y) :NEXT X 

165 REM FORM NEW TOP LINE 1 LINE BELOW OLD TOP LINE 

170 FOR X=20 TO XI 

180 SET(X,Y+1) :NEXT X 

190 GOSUB 300 

200 NEXT Y 

210 END 

215 REM ERASE LEFT LINE 

220 FOR X-20 TO XI 

230 FOR Y«Y1 TO 41 

240 RESET(X,Y) : NEXT Y 

245 REM FORM NEW LEFT LINE 1 LINE TO RIGHT OF OLD LEFT 

LINE 
250 FOR Y=Y1 TO 40 
260 SET(X+1,Y) :NEXT Y 
270 GOSUB 300 
280 NEXT X 

290 END 

291 REM SUBROUTINE 300 PRODUCES A PAUSE AND ALLOWS YOU 

292 REM TO READ, BY PRESSING ANY KEY, THE RATIO OF 

293 REM SHORTER SIDE TO LONGER SIDE 
300 FOR Z-l TO 300 

310 IF INKEYS-"" THEN 340 

320 IF V$»"L" THEN PRINTe950,(Xl-X)/(90*N) ;:GOTO 340 

330 PRINT8950, (40-Y)/(40*N) ; 

340 NEXT Z 

350 RETURN 



Program Listing 1. The Square 
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The Divine Proportion by H. E. 
Huntley and The Geometry of 
Art and Life by M. Ghyka have 
numerous examples of the oc- 
currence of the golden ratio; 
such as multiple reflections of 
light, arrangement of leaves on 
plants, the musical chromatic 
scale, the great pyramid, the 
human figure, dynamic sym- 
metry, and on and on. (Both 
books are published by Dover 
Books.) 

Take a look at the computer 
programs. The first one gener- 
ates a square of any desired 
size. Then, having asked wheth- 



er to shorten the vertical or the 
horizontal dimension, it pro- 
ceeds to do so. 

Note that the ratios given on 
the screen are approximations. 
Pixels are not square and scale 
factors are used in evaluating 
each ratio. If the lengths of lines 
are measured directly on the vid- 
eo screen, the ratios obtained 
may differ slightly from those of 
the program. 

The second program gener- 
ates nine ellipses, pausing after 
each one. The major axis stays 
constant and may be desig- 
nated horizontal or vertical. Use 



10 INPUT"ENTER SCALE FACTOR BETWEEN AND . 865";N 




20 Xl-20+90*N:X2-(Xl-20)/3 




30 Yl=41-40*N:Y2-(40-Yl)*(4/21) :CLS 




35 REM DRAW FRONT TOP LINE 1 




40 FOR X=20 TO XI 




50 SET(X,Y1) :NEXT X 




55 REM DRAW FRONT RIGHT SIDE 2 




60 FOR Y«Y1 TO 40 




70 SET(X1,Y) :NEXT Y 




7 5 REM DRAW FRONT BOTTOM LINE 3 




80 FOR X=X1 TO 20 STEP -1 




90 SET(X,40) :NEXT X 




95 REM DRAW FRONT LEFT SIDE 4 




100 


FOR Y=40 TO Yl STEP -1 




110 


SET{20,Y) :NEXT Y 




115 


REM DRAW RIGHT TOP LINE 5 




120 


FOR X=X1 TO X1+X2 




130 


SET(X,Y1-(Y2/X2)*(X-X1) ) :NEXT X 




135 


REM DRAW RIGHT BACK VERTICAL LINE 6 




140 


FOR Y=Y1-Y2 TO 40-Y2 




150 


SET(X1+X2,Y):NEXT Y 

REM DRAW RIGHT BOTTOM LINE 7 




155 




160 


FOR X=X1+X2 TO XI STEP -1 




17 


SET(X,40-(Y2/X2)*(X-X1)) :NEXT X 




17 5 


REM DRAW LEFT TOP LINE 8 




180 


FOR X-20 TO 20+X2 




190 


SET(X,Y1-(Y2/X2) *(X-20) ) : NEXT X 




195 


REM DRAW BACK TOP LINE 9 




200 


FOR X-20+X2 TO X1+X2 




210 


SET(X,Y1~Y2) :NEXT X 




215 


REM DRAW LEFT BACK VERTICAL LINE 10 




220 


FOR Y-Y1-Y2 TO 40-Y2 STEP 2 




230 


SET(20+X2,Y) :NEXT Y 




235 


REM DRAW BACK BOTTOM LINE 11 




240 


FOR X-20+X2 TO X1+X2 STEP 2 




250 


SET(X,40-Y2) -.NEXT X 




255 


REM DRAW LEFT BOTTOM LINE 12 




26 


FOR X = 20 TO 20+X2 STEP 2 




270 


SET(X,40-(Y2/X2)*(X-20) ) :NEXT X 




27 2 


FOR Z=l TO 300:NEXT Z 




27 5 


REM LOWER THE FRONT TOP LINE 1 




280 


FOR X=20 TO XI 




290 


RESET(X,Y1) :SET(X,Y1+1) :NEXT X 




295 


REM LOWER RIGHT TOP LINE 5 




300 


FOR X»X1 TO X1+X2 




310 


RESET(X,Y1-(Y2/X2)*(X-X1)) 




320 


SET(X,1+Y1-(Y2/X2)*{X-X1) ) :NEXT X 




325 


REM LOWER BACK TOP LINE 9 




330 


FOR X=X1+X2 TO 20+X2 STEP -1 




340 


RESET(X,Y1-Y2) : SET (X , Y1-Y2+1 ) :NEXT X 




345 


REM LOWER LEFT TOP LINE 8 




350 


FOR X»20+X2 TO 20 STEP -1 




360 


RESET(X,Yl-(Y2/X2)*(X-20) ) 




370 


SET(X,l+Yl-(Y2/X2)*(X-20) ) :NEXT X 




37 5 


REM REDRAW TOP PART OF LEFT BACK VERTICAL LINE 10 




380 


FOR Y=Y1 TO Y1-Y2+2 STEP -1 




390 


RESET(20+X2,Y) : NEXT Y 




400 


FOR Y«Y1 TO Y1-Y2+1 STEP -2 




410 


SET(20+X2,Y) iNEXT Y 




415 


REM ROUTINE TO PRINT RATIOS IF DESIRED 




420 


FOR Z«l TO 300 




430 


IF INKEY$="" THEN 450 




440 


PRINTC950, (40-Yl)/(40*N) ;SQR(X2 [ 2+Y2 [ 2)/ ( 40-Y1) /l . 

5; 
NEXT Z 


9 


450 




460 


Yl-Yl+1 




470 


IF YK40-Y2 THEN 280 ELSE STOP 






Program Listing 2. The Ellipse 





the break key to terminate this 
program. 

Most people prefer an ellipse 
with a minor to major ratio in the 
range .57 to .67. The 5.4 value 
used in line 90 can be changed 
to something a bit smaller (such 
as 5.1) to shorten the horizontal 
width. If it is made higher (such 
as 5.6), the horizontal dimension 
is lengthened. Keep this in mind 
if you find that the ratios are not 
quite true in the video represen- 
tation. 

Changing the 90 in step 60 to 
a smaller value will display few- 
er points (try 45), while more 
points will be displayed for val- 
ues larger than 90 (such as 180). 
The program will only display 
one ellipse at a time, if 60 is 
changed to 50 in line 170. 

To generate other ellipses, 
change line 190. Be sure all data 
values are less than 10 so that 
the ellipse does not exceed the 
size of the video screen. 

The Parallelepiped 

The last program generates a 



box (rectangular parallelepiped) 
with square front and back. The 
top is gradually lowered. Ratios 
of vertical to horizontal and 
slant (depth) to the vertical 
dimension are given. 

Fig. 1 should be used in con- 
junction with Program Listing 3. 
The numbers in the program's 
REM statements refer to lines of 
the box represented in the fig- 
ure. 

Preferences for box sizes are 
not nearly as pronounced as for 
the rectangle, but four of the 
more interesting box dimen- 
sions are: 

• 1,<t>,4>— used for the Golden 
Chamber containing the tomb of 
Rameses IV. 

• 1,1,<l>— found for the vol- 
ume of a stool of Tutankha- 
men's tomb. 

• 1,*,0»— called the "Golden 
Solid" and often used for Egyp- 
tian tombs. 

• 1 ,<t> 2 ,<t>'— found to be the 
volume in many pieces of furni- 
ture of the Queen Anne and 
Chippendale styles. ■ 



(20»X2,YI-Y2)i 



(20.40) 




xi+xa, *i-t2) 



( XI+ X2. 40-YZ) 



Fig. 1 



ON ERROR GOTO 200 

10 PRINT'CHOOSE SCALE FACTOR BETWEEN AND 1": INPUT N 

20 W=10*N: A=W:B=W 

30 PI»3.14159:WW-=10 

40 PRINT" INPUT H FOR CONSTANT LENGTH MAJOR AXIS TO BE H 

ORIZONTAL.V FOR CONSTANT LENGTH VERTICAL MAJOR AXI 

S": INPUT D$ 
50 CLS 

60 FOR 1=0 TO 2*PI STEP 2*PI/90 
70 IF D$«"V" THEN A=W ELSE B=W 
80 Xl»A*COS(I) :Y1-B*SIN(I) 
90 X-65+5.4*Xl 
100 Y»23-2.3*Y1 
110 SET(X,Y) 
120 NEXT I 
130 FOR P=l TO 300 
140 IF INKEY$-"" THEN 160 
150 PRINT859, WW/10; 
160 NEXT P 

17 READ WW:W-WW*N:GOTO 60 
180 GOTO 180 

190 DATA 8.3,8,7.5,6.7,6.2,5.7,5,4 
200 RESUME 180 

Program Listing 3. The Box 
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The Micromatic 80, a step 

ahead for your TRS-80 ™ 
and other microprocessors. 





The Micromatic 80 is a TTL based interface unit designed to 
grate the popular Radio Shack TRS-80* and many other processors 
with parallel Centronics™ compatible output, to the IBM manufactured 
Selectrlc'" terminal. 

• used IBM selectrlc terminals are cleaned and functionally cnecked before shipping. 

• 90 day warranty on Interface only. • Mall or pnone orders accepted. 

• No software required. • Certified Check, Money Order. 

• $795. plus $25. for shipping and handling. f^^Kl P IB ™ > i 

• TRS-80 to Centronics cable $29.00. WK _ 

Write or call for Free Brochure (317) 299-8614 

Thc ffllSjOffl^rl Cof Poration 

5747 w. 85th Street • Indianapolis, Indiana 46278 



^•425 



t TR5 BB J 



TRS-80 Model I 



CTIDDEL 3 

call tadELji 




699 



Model II 



Level II 16K. 26-1056 



3499 




We accept check, money order or phone 
orders with Visa or Master Charge. 
(Shipping costs added to charge orders). 



64K, 1-Disk TRS-80 
Model II System 

CHARGE IT 



Cam p UtEfS Unlimited 



uis-aaE-uflfli 



1524 OAK MAPf 



JHIG 43420 



Collect 




-"flt|:- LEVEL II 

SOUND STX 

REALTIME DISPLAY 
OF SOUND INPUT WITH 
RECORDER MIKE 
MACHINE LANGUAGE 
PROGRAM LISTING OF 
LESS THAN 100 BYTES 
FULL LOUDNESS DEPTH 
FROM UNMODIFIED '80 
WITH CTR-41 RECORDER 
DISPLAY MOVES TO 
MUSIC OR VOICE 
FOR EXPERIMENTS OR 
LAZY VIEWING SEND 
6.00 CK OR MO WITH 
STAMPED SELF AD- 
DRESSED ENVELOPE TO 

EDF ^359 

BOX 3054 

BRANFORDCT. 

06405 




S 3 T '? 



•y 



A 

Income 

with your TRS-80* 

Everyone is feeling (hi- bite of inflation 
but some TRS-80 owners have found a 
Way to ease the pain. Some are making a 
few hundred extra dollars and a few are 
making thousands of dollars in their spare 
time. Our booklet "Money Making Ideas 
for the TRS-80" is a collection of these 
money making methods, along with pro- 
gram sources, program hints, getting 
Started suggestions and pit-falls to avoid. 
Send $9.98 to: 

J8lR Electronics 

P.O. Box 492 ^398 
Crystal City, MO 63019 

TRSW >• • MdmA ol mm R*jw Sftacfc Oman ol TmOy Cwpwalnn 



172 • 80 Microcomputing, September 1980 



UTILITY 



Write a moving story. 



Walking Words 



Hubert C. Borrmann 
2840 South Circle Dr. H209 
Colorado Springs, CO 80906 



l|he subroutine described 
■ here moves several instruc- 
tions, or a message, across the 
TRS-80 screen from right to left, 
and repeats until any key is 
pressed. It shortens messages 
to 58 positions and inserts one 
period in front of the message 
and two periods at the end to 
show messages as unbroken 
bands. 

To use the subroutine, a 
message is placed in variable 
S1$. The variable is linked to the 
subroutine as follows: 



100 S1$ = "TYPE SPACE' WHEN 
READY' 1 

110GOSUB 10000 



This will move your message 
on the bottom line from right to 
left and repeat it. Should you 
desire to have the message 
move on another line, place the 
beginning address of this line in- 
to variable SA and link to entry 
point 10100, as follows: 



100 SU='TYPE 'SPACE WHEN 
READY" 

110 SA = 512 
120GOSUB 10100. 



The value of whatever key has 
been pressed will be returned to 
the main program in S6S; and 
S 1 $ will not be destroyed at exit. 

Pressed for Space 

There are several comments 
in the subroutine which you may 
leave out if pressed for space, 
but the comments are in fact 
very handy in any subroutine. 
The subroutine will shorten 
messages to 58 positions and 
will insert one period in front of 
the message, and two periods at 
the end. This will make it appear 
as an unbroken band. The time 
delay after each execution of 
the print instruction may be 
changed in line 10180. 

Entry point 10000 will print 
the message on the bottom 
line, while entry point 10100 or 
10110 bypasses loading the SA. 
These lines assume that SA was 
loaded in the main program with 
the starting address. 

Line 10110 fills the "back- 
ground" with periods. The next 
three lines adjust the length, 
determine the highest print posi- 
tion on the line for centering and 
insert the periods in the mes- 
sage variable. 

Line 10150 resets several 
variables so that S4$ extracts 
the characters to be printed out 
of S1$ until S4$ is equal to S1$. 
On every pass the effective print 
position is advanced by one. 

S3, which points to position 1 
in S1$, remains one. S2 in- 
dicates the number of positions 
to be extracted and is increased 



by one on each pass. 

After the complete message 
appears on the screen (S7 = S9), 
the length of S4$ is reduced by 
one on each pass, controlled by 
82. 

S3 is increased by one each 
pass, so that S4$ extracts the 
second to the last character out 
of S1$. Then the third to the last 
is extracted etc., until its length 
is zero. The effective print posi- 
tion remains unchanged. 



The program then branches 
to 10150 and the process is re- 
peated until the test of S6$ indi- 
cates a key or space is de- 
pressed. The print line is reset to 
spaces and the periods are re- 
moved from S1$. This allows a 
subsequent GOSUB without re- 
loading S1$. 

At this point the subroutine 
then returns to the main pro- 
gram. I find this routine quite 
handy, and you might, too. ■ 



10 CLEAR 200 : CLS 
20 PRINTS 128, "INSTRUCTIONS I 1" 
30 S1S«"PRESS 'SPACE' WHEN READY" 
40 GOSUB 10000 

PRINTS 512, "INSTRUCTIONS 



t 2" 



50 CLS 

60 SA-640 

70 GOSUB 10100 

80 CLS : PRINTS 0,"AND MORE INSTRUCTIONS" 

90 S1$-"TYPE 'SPACE'-BAR TO CONTINUE^ 'E' TO END" 

100 GOSUB 10000 

110 IF S6$«"E" THEN END ELSE 20 ff 

10000 SA-960:GOTO 10110 ' MOVING-BA1TO-SUBROUTINE 

10010 ' AT ENTRY SIS CONTAINS THE MESSAGE, UP TO 58 CHA 

RACTERS 
10020 * AT EXIT S6S CONTAINS VALUE OF DEPRESSED KEY 



S2 

S3 
S4S 

S5 

SI 
S8 
S9 
SA 



10030 ' OTHER 

AY ED 
10040 ' VARIABLES 
10050 ' 
10060 ' 

N 
10070 ' 
10080 ' 
10090 ' 
10100 ' 

N 
10110 PRINTS SA,STRING$(63,".") ; 
10120 S2»LEN(S1S) : IF S2 > 58 THEN S2-58 
10130 S5-INT(SA+(64-S2)/2)+S2 
10140 S4$-MID$(S1$,1,S2) : Sl$=". 
10150 S7-0 : S9»LEN(S1S) : S2-S9 
10160 IF S2-> S7 THEN S2 - S7+1 
10170 S4$-MIDS(S1$,S3,S2) 
10180 PRINTSS5-S7,S4S; : FOR S8-1 TO 15 
10190 S6S-INKEYS : IF S6$ <> "" THEN 10230 
10200 IF S7-S9 THEN 10220 
10210 S7-S7+1 : IF S7 < S9 THEN 10160 
10220 S2-S2-1 : S3 » S3+1 : IF S2 <0 THEN 10150 ELSE 10 

160 
10230 PRINTS SA, STRINGS (63," "); : SlS-MIDS (SIS, 2, LEN (S 

lS)-3) 
10240 RETURN ' END OF THIS SUBROUTINE 



LENGTH OF MESSAGE TO BE DISPL 

STARTING POSITION IN STRING 

WORKING STRING 

HIGHEST PRINT ADRESS ON SCREE 

WORK VARIABLE 

LENGTH OF SIS 

START ADRESS OF LINE ON SCREE 



•+S4S+* 
: S3-1 



NEXT S8 



Program Listing 
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APPLICATION 



A supermarketing program for creatures of impulse. 



Mind Your A's & P's 



Lois L. Leonard 

12733 Sione Canyon Rd. 

Poway, CA 92064 



Ah, the joys of grocery shop- 
ping! Your delight at find- 
ing the local social club is meet- 
ing in the aisles of your store. 
The rapture when you realize the 
next item on your list is on the 
other side of the market. The 
treasure hunt to locate where 
they hide capers. 



f *'° ) 



If that's how you feel about 
grocery shopping, maybe this 
article is not for you. This pro- 
gram produces a grocery list 
that leads you past aisles that 
contain nothing you need -pre- 
venting your buying all those nif- 
ty impulse items — and gets you 
to the check-out counter quick- 
ly, saving both time, steps and 
money. 

Groceries Are Data 

The program, written on a 16K 
TRS-80, loads in 7K and runs in 
over 10K. It requires a printer 
and a light pen, but can be easily 



CLE** SCHtEN 
SET END 

IN M»IN' 
;.■>!!.-.■ 


| 


"HE»C» 
PRINTER' 




re-written for keyboard input. 
The light pen is a simple device 
that plugs into the tape recorder 
input port in the back of the key- 
board. My pen is from Oasis Sys- 
tem and the routine in this pro- 
gram is taken from their instruc- 
tion manual. 

The DATA statements are gro- 
ceries listed by aisle number. 
Unless you have the same store 
layout, a trip to the store with 
pen and paper is in order. On the 
same trip study how you shop. 
Do you like to start at one end or 
the other? 

List each aisle and beneath 
these headings list the items 



you normally use. Leave a blank 
for novelty foods and rarely pur- 
chased items. 

If there are a large assortment 
of items normally purchased on 
one aisle, make each side a sub- 
category. For example, see Ai- 
sle 11 in the program. 

The data for each heading is 
laid out beginning with an as- 
terisk. The second and third 
characters are the number of 
items in the aisle. The remaining 
characters name the aisle. If an 
item is dropped or added, the 
number of items in the list must 
be changed. Also, an "end" must 
be used, and it must be counted 




PRINT ON SCREEN 



INITIALIZE 
r-o »•! 
LST 101 ■ LINOTH 
Of LIST 



r 



STONl ITfM 
fOUNO 
NC»E»Es' 



Fig. 1. Printer Routine 



Fig. 2. Grocery List by Light Pen 
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as an item. 

The program is set up with a 
maximum of 20 items per aisle. 
More than 20 slows down the 
light pen search. If the program 
is to be rewritten tor keyboard 
input, items would be limited on- 
ly by your screen space. 

On items that need further ex- 
planation put " " in front of 

them. Examples of this are 

" Jello", " spices", 

" jelly". There are too many 



varieties of spices to list sepa- 
rately. When " spice" is 

chosen, the printer skips a line 
before the item and leaves you 
room to write the name of the 
spice. 

Some of the benefits of this 
program surprised me. On my 
first test trip, I was able to do my 
ordinary shopping minus one- 
half hour of time. After using it 
for a month, I found I was buying 
fewer impulse items. ■ 



10 REM 



PEN 



Program Listing 



GROCERY LIST USING THE LIGHT 



WRITTEN BY LOIS L. LEONARD 
SEPTEMBER 1979 



PRINT ARRAYS AND TEST FOR 



20 REM 

30 REM 

40 REN 

50 DIM LT(25),LT$(350),ST$(3S0),LST(40),LST$(40) 

55 REM 

60 REM READ DATA STATEMENTS INTO 

ARRAYS 
7 REM 

7 5 CLS: PRINT* 468, "LOADING DATA" 
76 FOR Y = 1 TO 20:READ LT(Y):NEXT Y 
80 FOR X = 1 TO 350 
100 READ LTS(X) 

105 IF LT$(X)-"*END" THEN GOTO 130 
110 NEXT X 
130 X=0:A«1:FG»1:B-1 
140 REM 
150 REM 

HEADING 
160 REM 
165 CLS 

170 X-X+1:Y=Y+1 

180 IF LEFT$(LT$(X) ,1)-"*" THEN GOTO 260 
190 PRINT* LT(Y)+4,LT$(X) ; 
195 LST(B)=LT(Y) : LST$(B) -LTS (X) :B-B+1 
200 GOTO 170 
220 REM 

230 REM HEADING ROUTINE 

240 REM 

260 IF FG*2 THEN COTO 360 
265 C-LEN(LT$(X)) :Y=0 
270 PRINT* 20, RIGHTS (LTS (X) ,C-3) 
280 J1$=MID$(LT$(X) ,2,2) 
282 LST(0)-VAL(J1$) 
285 B=l 

290 ST$(A)-LT$(X) 
300 A=A+1 
310 FG-2 
320 GOTO 170 
330 REM 

340 REM LIGHT PEN SEARCH 

350 REM 

360 GOSUB 9100 

370 IF LST$(SCAN)0"END"GOTO 430 
375 IF LT$(X)-"*END" THEN GOTO 490 
380 FG=1 
385 CLS 
390 GOTO 180 
400 REM 

«1G REM STORE ITEM FOUND 

420 REM 

430 ST$(A)»LST$(SCAN) 
440 A=A+1 
450 GOTO 360 
460 REM 

470 REM PRINT OUT GROCERY LIST 

480 REM 
490 CLS 

495 ST$(A)*"*END" 
500 PRINT "READY PRINTER" 
510 PRINT" HIT ENTER WHEN READY* 
520 AS-INKEYS: IF AS-"" THEN 520 
530 A-PEEK(14312) : 'PRINTER CHECK OUT ROU 

TINE 
540 IF A-63 GOTO 600 

550 IF A-255 PRINT'PRINTER IS TURNED OFF":GOTO500 
560 IF A-223 PRINT'YOU HAVE A PAPER PROBLEM" :GOTO 500 
600 A-l 

610 IF ST$(A)-"*END" THEN PRINT "END OF LIST":END 
620 IF LEFTS(ST$(A) ,1)-"*" GOTO 660 
625 IF LEFT$(ST$(A) ,1)-"-" THEN LPRINT" ":' ALLOWS SPACE 

TO WRITE 
630 LPRINT STS(A) 
640 A-A+l 



MAGIC LIGHT PEN S 



650 GOTO 610 

660 IF LEFT$(ST$(A+1),1)="*» GOTO 700 

670 C-LEN(ST$(A) ) 

680 LPRINT TAB(5) RIGHTS (STS (A) ,C-3) 

7 00 A=A+1 

710 GOTO 610 

9000 OUT 255,0 

9010 FOR Z=0 TO 6:NEXT Z 

9020 LP-(INP(255) AND 128) 

9030 RETURN 

9100 REM 

UBROUTINE 
9110 L-LST(O) 
9120 C$*CHR$(140) 
9130 FOR 1-1 TO L 
9140 PRINT* LST(I),C$; 
9150 NEXT I 
9160 GOSUB 9000 
9170 IF LP-0 GOTO 9160 
9180 SCAN-1 

9190 PRINT* LST(SCAN)," "j 
9200 GOSUB 9000 
9210 IF LP=B GOTO 9260 
9220 PRINT* LST(SCAN) ,C$; 
9230 SCAN=SCAN+1 
9240 IF SCAN<= L GOTO 9190 
9250 GOTO 9160 
9260 PRINT* LST(SCAN) ,C$; 
927 GOSUB 9000 
9280 IF LP=0 GOTO 9160 
9290 CNT-2 

9300 PRINT* LST(SCAN), " "; 
9310 GOSUB 9000 
9320 PRINT* LST(SCAN) ,C$; 
9330 IF LPO GOTO 9180 
9340 GOSUB 9000 
9350 IF LP -0 GOTO9160 
9360 CNT-CNT-1 
9370 IF CNTO GOTO 9300 
9380 PRINT* LST(SCAN)-2,"=>"; 
9390 PRINT* LST(SCAN)+1,"<="; 
9400 GOSUB 9000 
9410 IF LPO 0GOTO9400 
9420 RETURN 

GROCERY STORE ITEMS 
ALL ITEMS ARE IN GROUPS AS THEY APPEAR 



STORE. ALL HEADINGS HAVE A 
HEADINGS. THE NUMBER AFTER THE 



BEFORE 



WIL 



BE THE NUMBER OF ITEMS IN THE LIST. IF 
ADD OR DELETE AN ITEM, REMEMBER TO CHAN 

NUMBER. 



10000 REM 
10010 REM 

IN THE 
10020 REM 

THE 
10030 REM 

L 
10040 REM 
YOU 
100S0 REM 

GE THE 
10060 REM 
10070 REM 

10080 DATA 138,202,266,330,394,458,522,586,650,714 
10090 DATA 168,232,296,360,424,488,552,616,680,744 
10100 DATA "20AISLE 13 - PRODUCE 

10110 DATA CANTALOUPES, MUSHROOMS, APPLES, CELERY 
10120 DATA CARROTS, PEARS, LETTUCE, CUCUMBERS 
10130 DATA TOMATOES, AVOCADOES, SQUASH 
10140 DATA BAN AN AS, POTATOES, CORN, CABBAGE 

10150 DATA ON IONS, GRAPEFRUIT, GRAPES, 

10160 DATA END 

10170 DATA -07 BAKERY - REAR OF STORE 

10180 DATA BREAD, COFFEE CAKE, WIENER BUNS 

10190 DATA HAMBURGER BUNS, BAGELS, 

10195 DATA END 

10200 DATA -11AISLE 13 - DRY FRUIT AND NUTS AND WINES 

10210 DATA RAISINS, DATES, PEANUTS, PRUNES 

10230 DATA BURGUNDY, CABERNET SAVIGNON.ROSE 

10240 DATA LAMBRUSCO,CHABLIS, 

10250 DATA END 

10260 DATA -18AISLE 12 -SOFT DRINKS - DRESSINGS AND SAU 

CES 
10270 DATA DIET ROOT BEER, DIET COLA, GINGER ALE 
10280 DATA 7 -UP, DR. PEPPER 

10300 DATA ITALIAN DRESSING, FRENCH DRESSING 
11310 DATA GOOD SEASON MIX, MUSTARD, MAYONNAISE 
10315 DATA SPAGHETTI SAUCE, TOMATO SAUCE 
10320 DATA TOMATO PASTE, CATSUP 
10330 DATA BAR-B-Q SAUCE, A-l STEAK SAUCE 

10340 DATA ,END 

10350 DATA -18AISLE 11 - GELATIN AND BAKING SUPPLIES 

10360 DATA JELLO, PUDDING MIX 

10370 DATA FLOUR, WHOLE WHEAT FLOUR, PANCAKE MIX 

10380 DATA YEAST, CAKE MIX, FROSTING 

10390 DATA DATE NUT BREAD MIX, BANANA BREAD MIX, MAPLE SY 

RUP 
10400 DATA CORN ST ARCH, BAKING POWDER, BAKING SODA 

10410 DATA CHOC. CHIPS, CORN SYRUP, 

10420 DATA END 

10430 DATA -13AISLE 11 - SALAD OIL PASTAS SPICES 

10440 DATA STOVE TOP STUFFING MIX. RICE 

10450 DATA MACARONI AND CHEESE, NOODLES, SPAGHETTI 

10460 DATA PARMESAN CHEESE, SPICE 

10470 DATA SALAD OIL, SHAKE N BAKE, VINEGAR 

Program continues 
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for the TRS-80 from Micro- Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 

Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 

The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 



THE GREEN-SCREEN 

Add $1.00 for postage and handling. 



.$13.95 



Terms: Chuck or money order, no CODs or credit cards, please. Add amount 
shown tor postage and handling to price of the item. All Items shipped within 48 
hours by first class or priority mail Virginia residents, add 4% sales tax. 

^29 



Micro- Mega -P.O.Box 6265Arlngton,\fe 222Q6 



/T 



Stop fiddling with your 
cassette cables! install our 
TBEEP and forget 
it forever! 




TBEEP™ 1 

For Level II and Disk Users — A self-contained audio 
alert beeper with a pager-like tone Plugs in-line with 
"AUX" cable from your TRS-80 (Requires 9V Battery). 

$ 19.95 



TBEEP™ 2 

A TBEEP kit you install inside 
your TRS-80 keyboard. 



* 



Completely assembled and tested. 

Attach to keyboards PC board with double-sided 
foam tape (included) and solder three wires to easily 
located points on keyboard unit. Installs in minutes. 

Uses power from your TRS-80. No battery required 

DEALERS! Install when modifying your customer's 
TRS-80, and include TBEEP's simple four word 
BASIC command in your off the shelf Software. 

TBEEP 2 Kit (with complete instructions) $ 12.95 



Se n 3 Cnerh o' Money Oder lo 
Phone Orders 



Dealer Inquiries Invited 
UPS COD - Add $3 00 

<^ SEND FOR FULL LINE CATALOG 



WEB ASSOCIATES ^27 

New Mail Order Address 

P.O Box 96QI 

Ccona Dei Mar CA 92625 

(Calif Residents aad6°'o lax i 



10480 
10490 


DATA 
DATA 




•13AISLE 10 - TEA - COFFEE - SOUP - CEREALS 


10500 


DATA 


GROUND COFFEE, INSTANT COFFEE, TEA BAGS 


10510 


DATA 


INSTANT TEA, TOMATO SOUP, VEGETABLE SOUP 


10520 
10550 


DATA 
DATA 




RAISIN BRAN, SUGAR, BROWN SUGAR 


10560 


DATA 


,END 


10570 


DATA 


•15AISLE 9 PAPER PRODUCTS 


10580 


DATA 


KOTEX, TOILET PAPER, TISSUES 


10605 


DATA 


PAPER TOWELS 


10610 


DATA 


PAPER NAPKINS, PAPER CUPS, PAPER PLATES 


10620 


DATA 


ALUMINUM FOIL, LARGE TRASH BAGS 


10630 


DATA 


SMALL TRASH BAGS, PLASTIC WRAP 


10640 


DATA 


SANDWICH BAGS, CIGARETTES 


10650 


DATA 


END 


10660 


DATA 


*12AISLE 8 - TOILETRIES 


10670 


DATA 


TOOTH PASTE, BUFFERIN, RUBBING ALCOHOL 


10680 


DATA 


TOOTH BRUSH, HAND LOTION , SHAMPOO 


10690 


DATA 


CREAM RINSE, DEODORANT, SHAVING CREAM 


10700 


DATA 
DATA 




10710 


•13AISLE 8 - FROZEN VEGETABLES 


10720 


DATA 


SOY SAUCE, SQUASH, BROCCOLI 


10730 


DATA 


PEAS, CARROTS, CORN, SPINACH 


10740 


DATA 


BEANS, MIXED VEGETABLES , CUP OF NOODLES 


10750 
10760 


DATA 
DATA 




END 


10770 


DATA 


•09BACK OF STORE - DAIRY 


107 80 


DATA 


BEER, MILK, LOWF AT MILK, BUTTER MILK 


107 90 


DATA 


YOGURT, SOUR CREAM, COTTAGE CHEESE 


10800 


DATA 






10810 


DATA 


•15AISLE 7 - FROZEN FOOD t. JUICES - PICKLES 


10820 


DATA 


TV DINNER, CHICKEN PIE, PIZZA 


10830 


DATA 


BEEF PIE.LASAGNA 


10860 


DATA 


ORANGE JUICE, LEMON AD E,COOI. WHIP 


10870 


DATA 


FROZEN WAFFLES, GREEN OLIVES, BLACK OLIVES 


10880 


DATA 


nTT.I.S r.l''T)KiKm pwn 




10890 


DATA 


♦16AISLE 6 FROZEN PIES CANDY PRESERVES 


10900 


DATA 






10910 


DATA 


SACCHARIN 


10930 


DATA 


POP CORN, CANNED MIXED NUTS, WALNUTS 


10940 


DATA 


ALMONDS , MARSHMALLOWS , PEANUT BUTTER 


10950 


DATA 






10960 


DATA 


BATTERI ES , L IGHT BULBS ■ 


10970 


DATA 


END 


10980 


DATA 


M0BACK OF STORE - DELECATESSEN 


10990 


DATA 


EGGS , MAR GAD I NE , BUTTER 


11000 


DATA 


CHEESE, DINNER ROLLS , UISCU ITS 


11010 


DATA 


CREAM CHEESE, SLICED AMERICAN CHEESE 


11020 


DATA 


,END 


11038 


DATA 


•08AISLE 5 - PET FOOD AND HARDWARE 


11040 


DATA 


CANNED CAT FOOD, DRY CAT FOOD, KITTY LITTER 


11050 


DATA 


DOG BISCUITS, SULFODENE, COFFEE FILTERS 


11060 


DATA 


,END 


11070 


DATA 


*13A1SLE 4 - WAX - BLEACH 


11080 


DATA 


BLEACH, SOFTENER - SHEETS 


11090 


DATA 


SOFTENER - LIQUID,RAID,S. .S PADS 


11100 


DATA 


LYSOL, PLEDGE, SILVER POLISH 


11110 


DATA 


LIQUID GOLD, SHOE POLISH 


11120 


DATA 


RUBBER GLOVES, , END 


11130 


DATA 


*11AISLE 4 - DETERGENT 


11140 


DATA 


HAND SOAP, DISH WASHING LIQUID 


11150 


DATA 


DISHWASHER DETERGENT, DETERGENT 


11160 


DATA 


FANTASTIC, TOILET BOWL CLEANER 


11170 


DATA 


COMET CLEANER, PINE SOL 


11180 
11190 


DATA 
DATA 




♦11AISLE 3 - JUICE - CANNED MILK 


11200 


DATA 


NYLONS, TOMATO JUICE, TANG 


11210 


DATA 


APPLE JUICE, LEMON JUICE, LIME JUICE 


11220 


DATA 


CIDER 


11240 


DATA 


EVAPORATED MILK, DRY MILK 


11250 
11260 


DATA 
DATA 


p. m 


♦13AISLE 2 - CANNED FRUIT - CANNED IISI1 


11270 


DATA 


PINEAPPLE, PEACHES, PEARS 


11260 


DATA 


FRUIT COCK TAIL, GRAPES, APPLE SAUCE 


11290 


DATA 


PUMPK I N , TUNA, SARDI NES , SALMON 


11300 


DATA 


CHILI CON CARNE, , END 


11310 


DATA 


M2AISLE 2 - CANNED VEGETABLES 


11320 


DATA 


WHOLE MUSHROOMS, SLICED MUSHROOMS 


11330 


DATA 


TOMATOES, GREEN BEANS 


11340 


DATA 


PEAS, BEETS, CORN, KIDNEY BEANS 


11350 


DATA 




11360 


DATA 


END 


11370 


DATA 


* 17 AISLE 1 - MEATS 


11380 


DATA 


HAM, TONGUE, CORNED BEEF, PORK CHOPS 


11390 


DATA 


LAMB CHOPS, PORK LINKS, ROAST, NY STEAK 


11400 


DATA 


RIB EYE STEAK, ROUND STEAK, BEEF CHUCK 


11410 


DATA 






11420 


DATA 




11430 


DATA 


END 


11440 


DATA 


•08AISLE 1 - CRACKERS 


11450 


DATA 


WHEAT THINS, BREAD CRUMBS, CROUTONS 


11460 


DATA 


RITZ CRACKERS, SALTINES, GRAHAM CRACKERS 


11470 


DATA 




11480 


DATA 


•08FRONT OF STORE - COLD CUTS - FROZEN FISH 


11490 


DATA 


BACON, BOLOGNA, SLICED HAM 


11500 


DATA 




11510 


DATA 


,END 


20000 


DATA 


•END 


DONE 
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MANAGEMENT SCIENCE 
OPERATIONS RESEARCH 



IRS 80™ MATHEMATICAL 
PROGRAMMING SYSTEM. 

A collection ot programs which imple 
ment the simplei algorithm the transput 
laiio'i algorithm and a network How opli 
mi/alioi 

$25.00 

HMO™ DECISION SYSTEM. 

A collection ol p' 

I I 
"tiering and game 
|l>tfu'y (Comet wl'i iIul umenUtiOfl I 

$25.00 

TRS80™ SIMULATION SYSTEM. 

A program which laciiiiates the simulation 

ol continuous dynamic systems described 

Dy differential or difference equations Pro 

' integration printing and plotting 

IpUl OD »ii!«j or printer (Comes 

imenlation) $25.00 

-qOFTWARE 

d/qNGINEERING 
^^rOYSTEMS 

J^INC. ^234 







1214 TSi StoH 
Uttid.fc«BG3mn293t»j 



r$t Computer* 
It Gambling 

PRESENTS: \ ^ *•€•*«"• " 

PROBABILITY 
HANDICAPPING 
DEVICE I 

A 16K BASIC PROGRAM FOR 

HOUSE RACE HAN0ICAPPIN6! 

Tm$ ama/mo program was written Oy 4 professional software 
-•to IRW Space Systems and rs oe«ng introduced Dy tne 
publishers ol Computers and Gambling Magazine P»l 
large compte» basic program requiring a lull 16K it is carefully 
lunar lactored lor easy use PHD 1 rs a comprehensrve horse 
racing -,. 'uugtiftred sprint races 

(less than i iwi vou simply sit Oown with you' computer and 
the Racmg form the night oe'o'e the race and answer 5 or 6 
questions about each horse s past performance Vou' compute' 
pnjacti tie mat probability ano odds-line lor 
i spot overlaid horses * 
- ■ ,i Lumpwieenplanairon o' o.-' 
. 

Statistics '.' "lousanos ot ncses were usee to develop this 
II ;>ing system The append" Ol the IN 
Mb run ol i 100 consecutive race system workout show 
amarmg 45% peutrvt return J'« lor each $1 00 
wagered) * graph « also included showing PHD 1 s close lit to 
j'ewcied probability <s actual win percentage curve 
. ograrn features Win probability and odds 'or each 
horse Verification display ol each horse s parameters prior to 
•■ ror correction Bubble sort routine tor linal 
>• prmtei output Cassette •' 
routine to store PMD t s output lor later analysis Complete 
anuil 

tim s manual may be ordered seperatety for your ourusai 
- ind win t» created it you purchase PHD- 1 
PHO-t User i Manual and 16K Cassette Itr 
Apple II Applesoft Challenger i Specify Type) 
TftS SO' Level II tat JW 95 

oayao* to Ca 'es add 6% 
•" "3 jot COMPUTER 
77713 Ventura ftvd Stfta f WewMand H*s CA 91364 

jet on the Computers and Gambling Products 
- mailing list tor S3 00 and receive available back issues 
a 'egrsrered traOemaik of land* Corporation 




HERE'S HOW! 1 Input data to secretary 
2 Into computer 3 Pnntout back to me 

PRESTO Subdivision cates n 1/2 the tune 
ol a programmable calculator 

OUR fvtJCROCOMPUTER SOFTWARE DOES 

■ TRAVERSE GEOMETRY 

■ COORDINATE GEOMETRY 

■ PROFILE GRADES 

■ RADIAL STAKEOUT 
m CIRCULAR CURVE GEOMETRY 

■ CIRCULAR CURVE STAKEOUT 

DEVIL WEI) ANO ' ANDREW 

M»i i* u HEGSTERED CM I V ft I F 



Complete Program Package »J 
With Irstruction Manual 



®M 





lu. 



fl SOFTWARE SYSTaW 



CML ENOWEERNG 



Cai o> «m» lor FREE MFOfMATCN PACKET IM4I 756-4033 
143c So CEDROS . SOLANA BEACH CA OTO/S 




In the beginning your computer was to' make life 
easy Then you found that you had to become a 
programmer to make your computer do the tasks you 
want it to do. 

Now. you can relax' The CREATOR is here This 
program will create BASIC, error free program text for 
you. All you need to do is answer the questions The 
Creator even checks for errors. 
- _ su 

■ ■ . IJG COMPUTER SERVICES 

■ ■■ > 



The Creator will generate reports, perform calculations, 
and even interface with other program routines. No 
need to become a professional computer programmer. 
The Creator, under your command, will create custom 
programs for you 

The CREATOR is available on disk for the TRS-80 
model One and Two. Also available for the Apple II 
and CP/M. Complete with an easy to read, well 
documented bound manual. 



• lir.iaf Iwnce see page ..'' 
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TUTORIAL 



A cryptic look at coding. 



An Article 
Called Intrepid 



Buzz Gorsky 

2449 Derbyshire Rd. 

Cleveland, OH 44106 



If I got 55515255545663877991 
90564273364539897981 4471 7 
042623356408587926282585037 
667841 58428988596451 3482664 
245605446486568837350595244 
56623893368354 as a message, I 
would probably say "Yes that's 
true." Of course I would have the 
benefit of knowing that the 
message decodes to "80 Micro- 
computing contains many inter- 
esting programming articles." 

How did I know that? 

In his book A Man Called In- 
trepid (Ballantine Books, New 
York, 1976), William Stevenson 
describes some of the effort dur- 
ing World War II by the British to 
decode German military trans- 
missions. The German code 
changed with the transmission 
of each character of a message. 
Another complicating factor 
was that a single code machine 
might send different codes to 
different recipients. 

I have written a series of three 



programs which provide the 
same type of coding and decod- 
ing. The first program will gener- 
ate an original code; the second 
will encode a message, chang- 
ing the code for each character 
of the message: and the third 
will decode an encoded mes- 
sage. 

Simple Principles 

The principles of the code are 
quite simple. A list called C(l) is 



als at random and using the 
ASCII representation of each. 

Three of these six carry no 
significance and exist to con- 
fuse things. However, the value 
of the encoded digit correspond- 
ing to the second pair, the third 
pair and the fifth pair are used 
by the program. 

The value obtained from the 
sixth pair tells the program how 
many times to adjust the code in 
a given direction. Direction im- 



"The German Code changed 

with the transmission 

of each character of a message. " 



maintained in memory. It has a 
code value for each ASCII value 
used by the TRS-80. This repre- 
sents the initial code at the start 
of a message. 

Each message consists of a 
string of numerals that may be 
considered as pairs, each pair 
representing an encoded ASCII 
value. The first six pairs are 
special. These six are chosen by 
selecting six single-digit numer- 



plies that the code can be 
changed by adding or subtract- 
ing a fixed amount from each 
C(l). The value of the second pair 
is the amount which will be add- 
ed to Ql). The value of the fifth 
pair is the amount which will be 
subtracted. 

As the message is generated 
values are either added or sub- 
tracted from C(l) each time a 
character is encoded. Thus the 



code changes with each letter. 
Further, the way the code 
changes depends on three of 
the first six data pairs sent. 

In Program Listing 1, (lines 
1-90). line 5 prints a big question 
mark on the screen as a symbol 
for the encoding program. In line 
20 string space is set aside, vari- 
ables are typed and C is dimen- 
sioned. 

Line 30 generates a random 
number between 32 and 95, that 
is, between the limits for the 
ASCII set. The first value chosen 
is assigned to C(1), and each 
subsequent new value will be 
assigned to each subsequent 
Ql) until all values from 32 to 95 
are represented. 

In line 40, if a new random 
number (N) is the same as any of 
the C(l) already in memory, then 
that N is discarded and a new 
random number is picked. J 
counts the number of C(l) exist- 
ing and when J equals 63 the 
task is done. Line 50 prints J on 
the screen so that you can 
follow the progress of the pro- 
gram. 

In line 60 the C(l) are repre- 
sented as a string Y. This string 
consists of the concatonated 
strings of the numerical values 
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of each C(l). Then, in lines 70 and 
80, Y is saved on tape. The C(l) 
could be saved on tape directly, 
but this method is much faster. 

Saving to Tape 

The second program, shown 
in Listing 2, (lines 100-410), ac- 
quires the message, encodes it 
and provides for saving the 
message on tape and saving the 
final code on tape. Line 110 
takes care of the housekeeping. 
It retrieves the code from tape 
and separates Y into the CO) 
again. 

Line 120 tells the operator 
that the message can be typed 
and must not exceed 100 char- 
acters. This is a somewhat arbi- 
trary figure, but the message 
will be stored as a single string 
and that cannot exceed 255 
characters. Since each charac- 
ter of the message is coded as a 
two-character string represent- 
ing an encoded ASCII value, the 
message length can actually 
reach 127 characters. 

The operator is also told that 
hitting * will erase a character 
just typed and that hitting / will 
terminate the message. As the 
message is entered, the count 
will change, and the screen will 
show how many characters are 
left. The message will appear on 
the screen in its text and ASCII 
forms. 

In line 130, 1 is set equal to 94 
which is the number of charac- 
ters remaining. Remember that 
the first six characters are 
generated by the program. Line 
140 generates the start of the 
string. A value K is generated 
randomly as an integer between 
zero and nine, and a string is 
made. The string will include a 
space and a numeral, since the 
space was saved for the symbol 
K. Only the right character is 
taken to get a single character 
string. 

The ASCII value of the string 
is found, and then a string of the 
ASCII value is formed. All of that 
is done by X = RIGHT$(STR$ 
(ASC(RIGHT$(STR$(K),1))),2). It 
may seem like a lot of work, but 
this results in a two-character 
string that represents the ASCII 
value of K. 

While each of the six Ks is 
randomly generated, Y is set 



equal to Y + X. Y is an ever grow- 
ing string of all the Xs. In line 150 
each character of the message 
is entered using the INKEYS 
function. 

If an • is hit, I is increased so 
that the previous character will 
be replaced by the next charac- 
ter entered. When / is hit, or 
when I is zero, the message is 
ended. 

In line 180 the encoding pro- 
cess begins. Y is the uncoded 
message represented as a 
string of ASCII values. Since 
each element of Y is two 
characters long, J, which equals 
one-half the length of Y, indi- 
cates how many ASCII pairs 
there are. 

In lines 190 to 225 the second, 
third and fifth ASCII pairs are 
evaluated to see what numerals 
they represent. 11, 12 and 13 are 
set equal to these numerals. 11 
will eventually be added to CO) 
values when the code is 
changed, and 12 will be sub- 
tracted. 13 will tell how many ad- 
dition functions to do before 
switching to subtraction, or vice 
versa. 

In line 230 the construction of 
Z begins. Z will be a character 
string representing the encoded 
ASCII values, and the final 
message in code. It begins as 
the first 12 characters of Y, then 
the rest is the encoded values 
obtained from the message. 

In line 240, X is set equal to 
two-character string taken from 
the middle of Y. As I moves 
along, X will be set sequentially 
to be each ASCII pair in Y, begin- 
ning with the seventh pair, 
which is where the text of the 
message actually begins. K is 
set equal to the value of X minus 
32, and then equal to C(K). which 
is the coded value correspond- 
ing to K. For example, X = 32, 
the value of X would be 32 and K 
would first be set equal to and 
then to C(0). That would be the 
coded ASCII value for the space 
character. 

Lines 270 to 350 check how 
many times the code has been 
shifted in a given direction and 
then make the appropriate shift. 
K0 is a variable which keeps 
track of whether the code is be- 
ing shifted by addition or sub- 
traction. When K0 is the code 



is being shifted by addition, 
when it's 1, the code is being 
shifted by subtraction. 

K1 keeps track of how many 
shifts have been made. This 
number is compared with 13 and 
when it equals 13 it is then reset 
to 0.K0 receives a new value and 
the opposite shift begins. In 290 
to 320 the code is adjusted by 
adding 11 to each CO). If any CO) 
is then larger than 95 the value is 
adjusted by subtracting 64. In 
this way the complete set is 
maintained. 

In lines 330 to 360 the code is 
adjusted by subtracting 12 from 
each CO) value and adding 64 to 
any which would be less than 32 
otherwise. In line 370, 1 is printed 
on the screen so that you can 
see the progress as each char- 
acter of the code is generated. 
Following line 380 the coded 
message and the new code can 
be saved on tape. 

Decoding 

Program Listing 3 begins on 
line 500. This program reads in 
the original code and the coded 



message and then decodes the 
message. It is analogous to 
many parts of the second pro- 
gram. First it looks at the first 
six ASCII pairs and from the sec- 
ond, third and sixth pairs, ob- 
tains the values of 11,12 and 13. It 
will know how the code is 
shifted during decoding. 

Next it decodes each ASCII 
pair beginning with the seventh 
pair. This is done by finding 
which CO) equals the value of 
the particular ASCII pair. 

1=32 is the decoded ASCII 
value and CHR$(K = 32) on line 
650 finds the decoded charac- 
ter. The string Y is built up of 
these characters, so that Y will 
be the decoded message. 

K0 and K1 are used, as in the 
encoding routine, to keep track 
of how the code is changed. It is 
changed with the decoding of 
each character, so that there is 
a correct code for decoding the 
next character. 

Finally in line 770 the decoded 
message is displayed. The code 
is prepared and stored on tape 
as a single string again. ■ 



Program listing 

1 REM 'ENIGMIZER' --CRYPTOGRAPHIC PROGRAM BY BUZZ GORSKY 

2 REM FOR 80 MICROCOMPUTING 

5 CLS:Y-l:FOR X-35 TO 80 :SET(X, Y) : NEXT: FOR Y-1TO20:SET( 
X,Y) tNEXT:Y-20:FOR X-80 TO 48 STEP -1 : SET(X, Y) : NEX 
T:X»48:FOR Y»20 TO 35 : SET(X, Y) :NEXT: SET (X , Y+l ) :SET 
(X,Y+2):FOR I=1TO5000 : NEXT 
10 CLS:REM ROUTINE TO GENERATE ORIGINAL CODE 
20 CLEAR450:DEFINT C,I,J:DEFSTR X,Y,Z:DIM C(63):RANDOM 
30 N=RND(95):IF N<32 THEN 30 
40 FOR 1-0 TO J: IF N=C ( I ) THEN 30 

50 NEXT I:C(J)-N:IF J'63 THEN J-J + l : PRINTP540 , J :GOTO30 
60 FOR 1-0 TO 63:X«RIGHTS(STRS(C(I) ) ,2) :Y-Y*X:NEXT 
70 INPUT" PREPARE TAPE TO SAVE CODE";Z 
80 PRINT»-1,Y 
90 END 
100 REM ROUTINE TO ENCODE MESSAGE THEN SAVE MESSAGE, EN 

CODED MESSAGE, AND NEW CODE 
110 CLEAR 1000:DEFINT C, I , J, K : DEFSTR X,Y,Z:DIM C(63):RA 
NDOM: INPUT"TAPE READY TO INPUT CODE" ;X0 : INPUTI-1 , Y 
:FOR 1-0 TO 63:C(I)»VAL(MID$(Y,I*2+1,2) ) :NEXT:Y="" 
120 CLS: PRINT "ENTER MESSAGE. DO NOT EXCEED 100 CHARACT 
ERS.": PRINT "END WITH'/'; USE '*' TO DELETE LAST L 
ETTER" 
130 PRINT "CHARACTERS REMAINING — ": PRINT: 1-94 
140 FOR J-1T06:K-RND(9) :X-RIGHTS (STRS (ASC (RIGHTS (STRS (K 

) ,1) )) ,2) :Y-Y*X:NEXT J 
145 PRINTei52,I:IF 1=0 THEN 170 
150 X-INKEYS:IF X-"*" THEN 155 ELSE IF X-V THEN 170 E 

LSE IF X-"" THEN 150 ELSE 160 
155 Y=LEFTS(Y,LEN(Y)-2) : Z-LEFTS (Z , LEN (Z ) -1) : 1=1+1 :GOT01 

45 
160 Z-Z+X : Y-Y+ RIGHTS (STRS ( ASC (X) ) ,2) : PRI NT0512 , Y : I-I-l : 

PRINT?768,Z:GOT0145 
17 CLS 

180 J-LEN(Y)/2:FOR 1-2 TO 5: IF 1=4 THEN NEXT I 
190 X-MID$(Y, 2*1-1,2) 

200 IF 1-2 THEN Il-VAHCHRS (VAL(X) ) ) 
210 IF 1-3 THEN I2=VAL(CHR$ (VAL (X) ) ) 
220 IF 1-5 THEN I3=VAL(CHRS(VAL(X) ) ) 
225 NEXT I 

230 Z=LEFTS(Y,12) : FOR 1-7 TO J 
240 X-MIDSIY, 2*1-1,2) 
250 K-VAL(X)-32:K1=K1+1 

Program Continued 
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260 
27 • 

280 
290 
300 
310 
320 
330 
348 
350 
360 
370 
380 



390 
400 

410 
500 
510 
520 

530 
540 

550 
560 

570 



K-C(K) :Z-Z+RIGHTS(STRS(K) ,2) 

IF K0O0 THEN 280 ELSE IF KKI3 THEN 290 ELSE Kl-0: 
K0-1:GOTO330 
IF KKI3 THEN 330 ELSE Kl>0:K0-0 
FOR Jl-0 TO 63 

IF C(J1)+I1>95 THEN C(Jl)-C(Jl)-64 
C(J1)-C(J1)+I1 
NEXT J1:GOTO370 
FOR Jl-0 TO 63 

IF C(J1)-I1<32 THEN C(Jl)-C(Jl)+64 
C(J1)-C(J1)-I2 
NEXT Jl 

PRINT0500,I:NEXT I 
CLS: PRINT "ENCODING COMPLETE* : INPUT'TAPE READY TO SA 

VE CODED MESSAGE" ; (X0: PRINTI-1 , Z : INPUT'LINEPRINT OF 
CODED MSG";X0:IF X0»"Y" THEN LPRINT Z 
FOR 1-0 TO 63:¥0-Y0+RIGHT$(STR5(C(I) ) ,2) : NEXT 
INPUT'TAPE READY TO SAVE NEW CODE" ; Z : PRINT#-1 , Y0 
END 

REM ROUTINE TO DECODE MESSAGE AND SAVE NEW CODE 
CLEAR 1000:DEFINT C, I , J, K :DEFSTR X,Y,Z:DIM C(63) 
INPUT'TAPE READY TO ENTER CODED MESSAGE" ;X: INPUT!- 1 

,Z:INPUT"TAPE READY TO INPUT CODE* ;X0 : INPUT#-1 , Y0 
FOR 1-0 TO 63 

C( I) -VAL(MIDS(Y0, 2*1+1,2) ) :NEXT 
J-LEN(Z)/2:FOR 1-2 TO 5: IF 1-4 THEN NEXT I 
X-MID$(Z, 2*1-1,2) 
IF 1=2 THEN I1-VAL(CHRS(VAL(X) ) ) 



580 IF 1-3 THEN I2-VAL (CHRS (VAL (X) ) ) 

590 IF 1-5 THEN I3-VAL (CHRS (VAL (X) ) ) 

600 NEXT I 

610 FOR 1-7 TO J 

620 X-MID$(Z, 2*1-1,2) 

630 K2-VAL(X) :K1-K1+1 

640 FOR K-0 TO 63: IF C(K)OK2 THEN NEXT K 

650 Y-Y+CHRS(K+32) 

660 IF K0O0 THEN 670 ELSE IF KKI3 THEN 680 ELSE K1 = 0: 

K0-1:GOTO720 
670 IF Kl<13 THEN 720 ELSE Kl«0:K0-0 
680 FOR J1-0TO6 3 

690 IF C(Jl)*Il>95 THEN C (Jl ) -C (Jl ) -64 
700 C(J1)-C(J1)+I1 
710 NEXT Jl:GOTO 7 60 
720 FOR Jl-0 TO 63 

730 IF C(J1)-I1<32 THEN C ( Jl ) -C ( Jl ) +64 
740 C(J1)-C(J1)-I2 
750 NEXT Jl 

760 PRINTe564,I:NEXT I 

770 CLS:PRINT"DECODED MESSAGE: ": PRINT: PR I NTY 
780 Y0-"":FOR I-0TO63 : Y0-Y0+RIGHTS (STRS (C ( I ) ) , 2) : NEXT 
790 INPUT" IS TAPE READY TO RECORD NEW CODE" ; X0 : PRINTI-1 
»Y0 
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Real Estate Soft war* 

For Appl» or TRS 80 

Property Management System 

(32 K, 1 Disk Sy«t»m») 
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Price $225.00 
Real Estate Analysis Modules: 

(Caaaatta or Disk) 

1 1 Hornt hirchata »ni ly i!i 

2) Tin Dafcmad Etching* 

3) Conjunction Coil/Piolll 

4) Incomo Prcporty Cuntlow 

5) AM iMn Anolyjlj 
C) ^fopotty SoMi Autyin 
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WHY PAY CUSTOM PRICES? 

SMALL QUANTITY 

STOCK CONTINUOUS 



FORMS 



• STATEMENTS 
• INVOICES 
• CHECKS 

• BILL OF LADING 
• SPEED-O-GRAM 

IMPRINTING AVAILABLE 

STOCK PRINTOUT PAPER 
STOCK CONTINUOUS LABELS 

Call or Write for Prices & Samples 
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■ GENEALOGY 

Compiling Roots and Branches 

An extensive family tree system 

tor the Radio Shack TRS-80 
64K 1-disk Model II 

STORES AND REVIEWS 1000 FAMILY MEMBERS' 
names, dates, places, marital statuses (2), relation 
ships (father, mother, spouses (2), children (16)), and 
footnotes (2) 

OUTPUTS complete Family Books of Info for yourself 
and others, new and revised pages for Family Book 
recipients, indices to names and their ID numbers, in- 
dented format 8-oeneration pedigree and descendent 
charts, lists of dates and footnotes, and blank and 
filled-in forms to solicit info. Includes comprehen sive 
i ndexed 70 ♦ page m anual. 

Diskette with manual $25000 

Manual & 9-program 81 K BASIC listings $50.00' 
Manual alone $25.00' 

'applicable toward diskette purchase 

Brie I description with example printouts $1.00 

Send check or money order or call lor more details. 

John J. Armstrong ■ 

3700 Whispering Pine Rd. #47B '* u ■ 

Mobile, AL 36608 ■ 

I Phone evenings 205/342-7642 



From the original author of Roofs and Branches 

Personal Computing magazine September 1979 

"TRS-80 is a registered trademark of Tandy Corp. 



UCSD* System for TRS-80 Model II* 

The most portable operating system now supports FORTRAN. Pascal and/or FORTRAN modules arc compiled in universal P-code, so they 
can run on most mu ropn m en US, I >"< ffl MfUhtWl rec ompiling. Programs execute up to 1 times taster than c omparable BASIC programs, and 
use much less memory . ReaoS to run on IRS-ttO Model 1 1 (MM. 

FEATURES PLUS, from PCD Systems 



■ Interactive operating system— dynamic 
overlays, disk file handling, run-time sup- 
port and block I/O routim ••. 

• Fast, one pass compilers 

i Two Editors-one screen oriented tor pro- 
gramming and text editing, one character 
oriented for hard copy terminals 

i hie handler lo manipulate disk nles 

■emblet Ih.ii prodllt Sf < •»<!.• i< r 

linking with Past .«i ot Fortran prograrni 

i Linker lor link-editing oi ObJBCl Hid ■»■ 
semblv code modules, 
i Library of program modules and utilities 



Disk formatting program to Initialize dis- 
kettes in single 01 double density loimals. 

■ C ontiguration program for serial I/O. 

■ Disk-set program to permit separate as- 
signment of density and format chara<- 
teristu s tor ea< h disk dnye 

DOCUMENTATION 

■ i CSO System Manual (ffltt pegoi) 

■ Heginner's Cuide |<> (Jl SO PaSCal 

■ Pascal User Manual I Report. 

■ Fortran Iter's Manual vyilh Fortran 
-wems 



PCD Systems, Inc. 

POBoxl4J PennYan, NY 14527 315- r > Jb-J744 



^9t 



PRICES 

nD system with Pascal ( ompiler SJ50 
with Pascal and Fortran ( ompilers $500 

■ Fortran Compiler alone 

(requires \ersion 11.0) S200 

■ P-Code Interpreter alone 

(either LSI- II or /-«)) S 85 

Optional Utility Programs 
«(P/M' lo Pascal tile (omeision $ 50 

■ irsdos- i., i\)m,.i nie conversion % 50 

• /-HO Disassembler /Dump program $ 50 
ALSO AVAILABLE 

■ i ( SO System fa mi no or pdiv 

■ 2-60 Adaptable System (>ou write BIOS). 

■ UCSD System for ( P.'M emironments. 

I'( I) Systems is a licensed distributor ol the 
I ( SI) System lor Past al and Fortran. Dealer 
inquiries ate inviteci 
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TO ORDER CALL (615) 693-6583 
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EDUCATION 



Bach to BASIC! 



Music Note Recognition 



J. David McClung 
P.O. Box 1590 
Dallas, TX 75221 



My wife and I bought our 
TRS-80 partly to help with 
our children's educations. We 
didn't realize then how very little 
educational software was avail- 
able. I turned, therefore, to writ- 
ing my own. 

Music Note Recognition is a 
program I wrote to teach my two 
oldest children how to read 
music. The program displays 
either a treble clef or a bass clef 
with a single whole note. The 
child is asked to name the note 
within a previously selected 
time. After 20 notes, the re- 
sponses are evaluated and the 
incorrect ones reviewed. 

Six Steps 

I follow six steps when debug- 
ging a program. Step one clearly 
defines the lesson. Children 
learn more quickly when les- 
sons are simple. For example, in 
Music Note Recognition I could 
have included sharps, flats or 
fractional notes. Instead. I 



limited the lesson to whole 
natural notes. 

Step two presents the lesson 
facts. Most educational pro- 
grams I have seen fail by asking 
questions before the student 
has a chance to study the mate- 
rial. My children quickly lose in- 
terest in a program, if it asks 
them several questions in a row 
that they cannot answer. Pro- 
grams are more effective if the 
lesson is presented before test- 
ing begins. 

In Music Note Recognition, 
line 240 lets the child review the 
lesson. In the subroutine begin- 
ning at line 140X5, each note is 
presented with its name. The 
child can study as long as nec- 
essary before beginning the 
test. 

Step three tests the child's 
knowledge. The test is the heart 
of any educational program. The 
student should be allowed to 
demonstrate his knowledge of 
the material. 

I try to make the test ques- 
tions active, varied and inter- 
esting. My children lose interest, 
if the program repeats the same 
questions in the same sequence 



each time the program is run. I 
use the TRS-80 random genera- 
tor to vary the order of the ques- 
tions. I also include protection 
to prevent repeating the same 
question too often. 

In Music Note Recognition, 
lines 420-440 select the se- 
quency of questions. Each ques- 
tion is compared to previously 
selected questions to prevent 
duplication. Thus, 20 of the 33 
possible questions are pre- 
sented each time the program is 
run, but in different sequences. 

Children respond best to pro- 
grams that have a lot of action 
on the CRT. For example, this 
music program redraws the en- 
tire staff for each test question 
rather than merely moving the 
note. The extra action helps 
hold the child's attention. 

Include Challenges 

If the program is going to be 
useful for more than a few runs, 
the test must become more diffi- 
cult as the student masters the 
lesson. You can challenge the 
student by limiting the time al- 
lowed for each answer. 

The value of H selected in line 



320 determines the time al- 
lowed. In my computer. I must 
multiply the number of seconds 
selected by 40. If the program is 
used without a keyboard de- 
bounce routine, the 40 must be 
increased. The correct value can 
be established by experimenta- 
tion. 

The program responds to 
each answer immediately, cor- 
recting a child's responses. This 
feature makes the computer 
especially valuable as a teach- 
ing tool. Lines 560-580 confirm 
the answer given or tell the 
child what the correct answer 
was. 

Step four evaluates the re- 
sults. An evaluation should en- 
courage the student to study. 
An effective educational pro- 
gram will evaluate how well the 
child has learned the lesson and 
encourage the child to perform 
better. I try to present the evalu- 
ation in a positive manner. 

For my older children, I use 
their school's grading scale. 
They are shown the percentage 
correct and a letter grade. For 
younger children, I use "Great," 
"Good," "Fair" or "Need more 
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the electric pencil II 

^* ? 1980 Michael Shrayer 

for the TRS-80 Model II* Computer 




The Electric Pencil is a Character Oriented Word Processing 
System. This means that text is entered as a continuous string 
of characters and is manipulated as such. This allows the user 
enormous freedom and ease in the movement and handling of 
text. Since lines are not delineated, any number of char- 
acters, words, lines or paragraphs may be inserted or deleted 
anywhere in the text. The entirety of the text shifts and 
opens up or closes as needed in full view of the user. Car- 
riage returns as well as word hyphenation are not required 
since each line of text is formatted automatically. 

As text is typed and the end of a screen line is reached, a 
partially completed word is shifted to the beginning of the 
following line. Whenever text is inserted or deleted, existing 
text is pushed down or pulled up in a wrap around fashion. 
Everything appears on the video display screen as it occurs 
thereby eliminating any guesswork. Text may be reviewed at 
will by variable speed or page-at-a-time scrolling both in the 
forward and reverse directions. By using the search or the 
search and replace function, any string of characters may be 
located and/or replaced with any other string of characters as 
desired. Specific sets of characters within encoded strings 
may also be located. 

When text is printed, The Electric Pencil automatically 
inserts carriage returns where they are needed. Numerous 
combinations of Line Length, Page Length, Character Spacing, 
Line Spacing and Page Spacing allow for any form to be 
handled. Right justification gives right-hand margins that 
are even. Pages may be numbered as well as titled. 



the electric pencil 

-a Proven Word Processing System 

The TRSDOS versions of The Electric Pencil II are our best 
ever! You can now type as fast as you like without losing any 
characters. New TRSDOS features include word left, word right, 
word delete, bottom of page numbering as well as extended 
cursor controls for greater user flexibility. BASIC files may 
also be written and simply edited without additional software. 

Our CP/M versions are the same as we have been distributing 
for several years and allow the CP/M user to edit CP/M files 
with the addition of our CONVERT utility for on additional 
$35.00. CONVERT is not required if only quick and easy word 
processing is required. A keyboard buffer permits fast typing 
without character loss. 

CP/M TRSDOS 
Serial Diablo, NEC, Qume $ 300.00 $ 350.00 
All other printers $ 275.00 $ 325.00 

The Electric Pencil I is still available for TRS-80 Model I 
users. Although not as sophisticated as Electric Pencil II, it 
is still an extremely easy to use and powerful word processing 
system. The software has been designed to be used with both 
Level I (I6K system) and Level II models of the TRS-80. Two 
versions, one for use with cassette, and one for use with disk, 
are available on cassette. The TRS-80 disk version is easily 
transferred to disk and is fully interactive with the READ, 
WRITE, DIR, and KILL routines of TRSDOS. 




Features 

TRSDOS or CP/M Compatible * Supports Four Disk 
Drives * Dynamic Print Formatting * Diablo, NEC & 
Qume Print Packages » Multi-Column Printing * Print 
Value Chaining * Page-at-a-time Scrolling • 
Bidirectional Multispeed Scrolling » Subsystem with 
Print Value Scoreboard * Automatic Word & Record 
Number Tally » Global Search & Reploce * Full Margin 
Control * End of Poge Control * Non Printing Text 
Commenting * Line & Paragraph Indentation * 
Centering * Underlining * Boldface 



master charge 




"TRS490 is a registered trade mark of Radio Shack, a division of Tandy Corp. 



TRC Cassette $ 100.00 

TRD Disk $ 150.00 



• 255 




MICHAEL SHRAYER SOFTWARE, INC. 

1198 Los RoblesDr. 

Palm Springs, CA. 92262 

(714)323-1400 



• Reader Service— see page 226 
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practice." For pre-schoolers I 
use a smiling face or a sad face. 

Reviews end Invitations 

Step five reviews incorrect 
answers. When the child an- 
swers a test question incor- 
rectly, the computer provides 
the correct one. In addition, the 



questions answered incorrectly 
are reviewed following the 
evaluation. Line 800 repeats 
each missed question, until an- 
swered correctly. 

Step six concludes with an in- 
vitation to try again. I try to end 
every educational program this 
way. The student should be 



praised for good work, but en- 
couraged to achieve higher 
scores or shorter response 
times. Such challenges keep the 
program interesting. 

My children have enjoyed 
learning by computer so much 
that my 12-year-old daughter. 
LeEtta, and my 10-year-old son. 



Denny, are beginning to write 
their own simple programs. The 
educational usefulness of the 
TRS-80 is limited only by the 
availability of software. With a 
little practice any computer 
owner can write programs that 
challenge and teach the stu- 
dent. ■ 



Program Listing 



40 CLEAR 15 i GOTO 210: 'SKIP INPUT ROUTINE 

100 'INPUT ROUTINE AND TIMING LOOP 

110 FOR L-l TOH: IS-INKEYS 

120 IF IS>-"A" AND IS<""G"PRINT IS;:RETURN 

130 IF ISO"" PRINT 90, "ANSWER A,B,C,D,E,F OR G 



1000 
1010 



140 

200 
210 

220 

230 



240 
250 
300 
310 
320 

330 

340 

400 

410 

420 
430 

440 
500 
510 
520 
530 
540 

550 

560 

570 

580 

590 

600 
610 

620 
630 
640 
6S0 

660 
670 
680 
690 
700 
710 
720 
800 
810 

820 
830 

640 
B50 

860 



NEXT : RETURN 

'BEGIN PROGRAM 

CLS: MS-STRINGS (63,"-") :DIMA(20) :DIME(20) :R»0:W-0:KS 

-STRINGS ( 3, CHRS( 191) ) 
CLS :PRINT920, "MUSIC NOTE RECOGNITION" : PRINT: PRINT§7 

4, "(C) 1980 BY DAVE MCCLUNG, RICHARDSON, TX" 
PRINT: PRINT" THIS PROGRAM IS DESIGNED TO TEACH MUSIC 
STUDENTS THE NAMES" : PRINT"OF EACH LINE AND SPACE. 

": PRINT: PRINT"THE QUIZ WILL CONSIST OF 20 QUESTION 

S.": PRINT: PRINT 
PRINT: INPUT "DO YOU WANT TO REVIEW ";ZS 
IF LEFTS(ZS,1)-"Y" GOTO 1400 
'GET INFORMATION 

CLS: INPUT "WHAT IS YOUR NAME ";NS 
PRINT: INPUT "HOW MANY SECONDS FOR EACH QUESTION *;H 

:H-H*40 
'59 SECONDS MAXIMUM 
IF H>2360 PRINT'YOU CAN'T HAVE THAT LONG" : PRINT: GOT 

320 
'SELECT TEST QUESTIONS — NO REPEATS 
PRINT: PRINT"STANDBY — THE COMPUTER IS SELECTING TH 

E QUESTIONS" 
FOR X-l TO 20 
A(X)-RND(23) :FOR Y=0 TO (X-1):IF A(Y)-A(X) GOTO 430 

ELSE NEXT Y 
NEXT X 
'TEST 

FOR G-l TO 20:N-A(G) 
GOSUB 1000:GOSUB 1110 
IF C-l GOSUB 1210 ELSE GOSUB 1310 
IF S-924 OR S-156 PRINT0S," — "+KS+" — "; ELSE PRINT? 

8, IS| 
PRINT*0,"«';G;" ";"WHAT IS THE NAME OF THIS NOTE"; 

: GOSUB 110 
PRINTG0, STRINGS (63," "):IF IS-QS R-R+l :PRINT§0, "COR 

RECT":GOTO 590 
IF ISOQS AND lSO""PRINTe0,"WRONG! 

QS;:P-P+1:E(P)«A(G) 
IF IS-"" PRINT?0,"YOUR TIME IS UPI 

S;:P-P+1:E(P)-A(G) 
GOSUB 1600:NEXT 
'EVALUATE TEST RESULTS 
CLS:PRINTCHRS(23) -PRINT'TEST RESULT" : PRINT: PRINTNS; 

" .YOUR TEST RESULT IS:" 
PRINT: PRINT "NUMBER CORRECT » ";R 
W-20-R 

PRINT'NUMBER MISSED - " ;W 
PRINT'SCORE - ";:U-((R/20)*100) :PRINTUSING 

"###%";U 
PRINT'GRADE - "; 

IF U<60PRINT"F" 
IF U>59 AND U<70 PRINT'D" 
IF U >69 AND U<80 PRINT'C" 
IF U>79 AND U<90 PRINT'B" 
IF U>89 PRINT"A" 

PRINT: IF U-100 PRINT'YOU DID GREATI":GOTO 900 
'REVIEW THE QUESTIONS MISSED 
PRINT: PRINT"TO RECHECK THE ONES YOU MISSED — HIT E 

NTER";: INPUT ZS 
CLS: FOR 0-1 TO (20-R) 
N-E(0):GOSUB 1000:GOSUB 1110 
IF C-l GOSUB 1210 ELSE GOSUB 1310 
IF S-924 OR S-156 PRINTPS," — "+KS+" — "ELSEPRINT£S,K 

S; 
PRINT$0,"TRY THIS ONE AGAIN ";:GOSUB 110 : PRINT00 , ST 

RINGSI63," "):IF IS-QS PRINTP0 , "CORRECT I *:GOTO 88 



THE NOTE IS 



THE NOTE IS ";Q 



870 PRINT§0, "WRONG! ":GOSUB1600:GOTO 860 

880 GOSUB1600:NEXT 

890 CLS:PRINTCHRS(23) : PRINT'CONGRATULATIONS, ";NS:PRINT 

: PRINT: PRINT'YOU GOT THEM ALL'iGOSUB 1600 :: PRINT: P 

RINT*FINALLY*:PRINT:GOSUB 1600: PRINT" AFTER MUCH EF 

FORT' 
900 PRINT: PRINT'TO TAKE THE TEST AGAIN — HIT ENTER" : IN 

PUT Z$:RUN 



QS-"F" 

QS-"E"s 

QS-"D": 

QS-'C": 

QS-'B": 



QS-"B"! 
QS-"A": 
Q$-"G": 
QS-"F": 
QS-'E": 
QS-'D': 
QS-'C": 
QS-"B": 



'SELECT NOTE 

ON N GOTO 1020,1021,1022,1023,1024,1025,1026,1027, 

1028,1029,1030,1031,1032,1033,1034,1035,1036,10 37, 

1038,1039,1040,1041,1042,1043 

Q$-"G":S-222: C-l: RETURN 

S-286: C-l: RETURN 

S-350:C-1:RETURN 

S-414:C-1:RETURN 

S-478:C-1:RETURN 

S-54 2: C-l: RETURN 

QS-"A":S=606:C=1:RETURN 

QS-"G":S=670: C-l: RETURN 

QS-"F" :S=7 34 : C-l : RETURN 

QS-'E" :S-7 98: C-l: RETURN 

QS-'D" :S-862: C-l: RETURN 

QS-"C": S-924: C-l: RETURN 

QS-"C" : S-156 :C-2: RETURN 

S-222:C-2:RETURN 

S-2B6:C-2:RETURN 

S-350:C»2:RETURN 

S-414:C-2:RETURN 

S=47 8 :C«2: RETURN 

S-54 2 :C-2: RETURN 

S-606:C-2: RETURN 

S-670:C-2:RETURN 

QS- " A" :S-734:C-2: RETURN 

QS-"G" : S-7 98 :C-2: RETURN 

QS-"F":S-862:C-2:RETURN 

'PRINT STAFF 

CLS : PRINTI256, MS : PRINT :PRINTMS:PRI NT :PRINTMS: PRINT 
:PRINTMS:PRINT:PRINTMS 
RETURN 

"DRAW TREBLE CLEF 
FOR D=9 TO 40:SET(21,D) : NEXT D 
RESTORE 

FOR D-l TO 61:READ A,B: SET( A,B) : NEXT D 
DATA 10,30,10,31,11,29,10,32,10,33,11,34,12,28,12, 
35 , 1 3 , 27 , 1 3 , 36 , 14 , 26 , 14 , 36 , 15 , 25 , 15 , 3 1 , 15 , 32 , 1 5 , 37 
,16,24,16,30,16,37,17,23,17,29,17,37,18,22,18,28,1 
8,37,19,21,19,27,19,37,20,20,20,26,20,37 
DATA 22,9,22,19,22,26,22,37,23,10,23,18,23,26,23,3 
6,23,37,24,11,24,17,24,27,24,35,24,36,25,12,25,16, 
25,27,25,28,25,34,25,35,26,13,26,14,26,15,26,28,26 
, 29 , 27 , 30 , 27 , 3 1 , 27 , 32 , 26 , 3 3 , 26 , 34 
RETURN 
'BASS CLEF 

RESTORE:FOR X-1T061 :READA,B:NEXTX: FOR X-l TO 92 : RE 
AD V, K: SET (V, K) : NEXT X : RESTORE: RETURN 
DATA9, IB, 9, 19,10, 17, 10, 18, 10, 19,11, 16, 11, 17, 11, 19, 
11,20,12,15,12,16,12,19,12,20,13,15,13,19,13,20,14 
,14,15,13,15,14,15,38,15,39,16,13,16,37,16,3 8,17,1 
3,17,36,17,37,18,13,18,35,18,36 

DATA19, 13, 19, 35, 19, 34, 20, 13, 20, 34, 20, 33, 21, 13, 21, 3 
3,21,32,22,14,22,32,22,31,23,14,23, 15,23,31,23,30, 
24 , 15 , 24 , 16 , 24 , 30 , 24 , 29 , 25 , 16 , 25 , 17 , 25 , 28 ,25 , 29 , 26 
, 17 , 26 , 18 , 26 , 27 , 26 , 28 , 27 , 1 8 , 27 , 19 , 27 , 26 , 27 , 27 
DATA28 ,19 , 28 , 20 , 28 , 21 , 28 , 22 , 28 , 23 , 28 , 24 , 28 , 25 , 28 , 2 
6,29,20,29,21,29,22,29,23,29,24,29,25,30,21,30,22, 
30,23,30,24,32,15,32,16,32,17,32,21,32,22,32,23,33 
,15,33,16,33,17,33,21,33,22,33,23 
1400 'REVIEW TREBLE 
1410 CLS :PRINT80, "TREBLE CLEF" 
1420 GOSUB 1110 
1430 GOSUB 1210 

1440 FOR N-l TO 12:GOSUB 1000: 
1450 IF N/2»INT(N/2) S-S+10 
1460 IF S-934 OR S-166 PRINT0S," — "+KS+" — "♦" "+QS; ELS 

E PRINT gS,KS+" "+QS; 
1470 NEXT N: PRINT0988," TO REVIEW BASS CLEF - HIT ENTE 

R ";: INPUT ZS 
1480 CLS 
14 90 GOSUB 1110 
1500 GOSUB 1310 
1510 PRINT?0,"BASS CLEF" 
1520 FOR N-13 TO 24:GOSUB 1000 
1530 IF N/2-INT(N/2) S-S+10 
1540 IF S-924 OR S-156 PRINT 9S, "~"+KS*" — "♦" "+QS; EL 

SE PRINT GS,KS+" "+QS; 
1550 NEXT N:PRINTe988,"TO PROCEED WITH QUIZ - HIT ENTER 

"»: INPUT ZS 
1560 GOTO 310 
1600 'PAUSE 

1610 FOR Y-l TO 1000:NEXT:RETURN 
17 00 END 



1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1100 
1110 

1120 
1200 
1210 
1220 
1230 
1240 



1250 



1260 
1300 
1310 

1320 



1340 
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PROPERTY 

MANAGEMENT 

SOFTWARE 

This professional software designed! to meet the exacting 
reguirements of the Institute of Real Estate Management This 
software is user engineered and hap been thoroughly de- 
veloped m actual nationwide use managing all types of in- 
come properties The software is written m CBASIC requiring 
dual drives and 48K of memory (also TRS-80 Apple compati- 
ble) We feel this is the most extensive property management 
software written for a microcomputer The system includes 



• Full General Ledger • Vacancy List 

• Checkwnter • Leas^ Expiration Report 

manual check can • Lost ftent Report 

also be used • Vendbr Report 

• Budgeting • Full Audit Trail 

• Tenant Information • Real Estate Support 

• Rent Roll • Plus much, much more 

• Delinquency List 

Demonstration diskettes with manual! is $35 00 and can be 
applied toward full software price of $650 00 MasterCharge. 
Visa and COD orders welcome Dealer inquiries invited 



A-T Enterprises . 

221 No. Lois. La Habra, CA 90631 
(213) 947-2762 



"TRS-80 is a registered trademark ol TANDY CORP. 

Call about our fantastic price on 
4 dtlvr complrlr tvttrm 

IrvrlllU %-.-./ 10 I 

Irvrlll I'.k \/lO.Oo\ 

I spanslon Interlace $269.00 

I spanslon Interlace I 6K $40) 20 

Ispanslon Interlace J2K $524.00 

I 6k Memory Kit for IIS 80 or Apple 

$79.95 
TRS-80 & NORTH STAR ADD ON DRIVES 




CUSTOM 
ENCLOSURE 



^S 



CABLE 
INCLUDED 



Single drive system in custom enclosure 1400 00 

Single drive system in metal enclosure S375.00 

Double drive system in custom enclosure S 606 00 



MPI 1275 00 

MPI 052. dual heoded 1 049 00 

Shugoit SA400 $275.00 

Shugort SAOOO 1479.00 

Tondom single sided . . $279.00 

Tondom double sided. . . . $425.00 

Hozeltine 1000 $450.00 

Single tiei walnut enclosure tor Shugo'r I 35.00 

Double tier walnut enclosure lor Shugort I 32.00 

Aton 400 $546.49 

Aton 500 $795.00 

Hozeltine 141C . $749 00 

Centronics PI Printer (TRS 60 odd on) . $396.95 

Centronics 7 79 2 troctor (TKS 60 odd on) $1049 95 

Tl Punier $1599.00 

Dose 2 $649 00 

Horizon 1 32K $2290.00 

Ielev.deo9t2 $775 00 

SPECIAL! MINI FLOPPY DISKS, box ol 10 (with plastic box) only 
$28.00 (without plastic box) only $26. So Box ol 10. 8" disks (in plastic 
box $30.00) Centronic 779 ribbons $3.50 each. 



{DTQ •"» 

/y/tenru 



>■ «cclr»l •««■ MKUO rill iulri>c>ill« 

2902 23rd Ave . Astoria. NY 11 105 

IWX 7105822107 (212) 728 5252 

(800) 221 1340 




Find the best price you con in this magazine on a box of 10. 
Verbatim 5% inch Floppies and subtract $.50; THAT'S OUR 
PRICE We include the shipping (please figure the com- 
petitor's shipping and handling charges in your 
computation).* Compare our prices on other equipment: if 
we're not the least expensive, give us a call. 

THIS MONTHS SMCIALS 





SPECIAL #1 




II you purchase the IBS 80 DISK 


AND OTHER MYSTERIES Book (or 


the 


egulor price ol 


$22 50 




can buy 10 VERBATIM 


MSKET 


TFS 


AND a plastic library 


case 


lor 




$22 00 




TOTAl 


$44 50 



SPECIAL #2 

II you purchase APPARAT 
NEWDOS * lor the reoulor price 
ol $W 95 

you con buy 10 VERBATIM DlSKET 
TES AND o ploitit library cose 
lor 5.00 

TOTAl $10495 



Blank Diskette. 
Verbatim 5'. 
Verbatim 8 

Verbatim 8 Double Density 
Altte 

Flippy Kit 

I6K Ram Kit (200ns) 
Whistle Switch 
BSR System X 10 
BSR Modules 
Floppy Saver 

refills (25) 
Hard Hole Tool 

refills (SO) 
Photo Point light Pen 
Plostic Storoge Box 8 
Plastic Storoge Box 5'. 
Web T Beep 
Diskette Frames 
Plastic Diskette Sheets 1 10) 
Software 

Apporot Newdos-f 

35tr 

40tr 
WEB TSHORT 
Electric Pencil 
Dungonquesl 
'OFFER good os supply lasts. 



PRICE 



$26.50 
30.00 
44.00 

11.95 
69 00 
23.95 
7495 
13.95 
11.95 
6.95 

- 00 

9.95 
19.95 

3.00 

250 
1995 

4.00 

ii K 



88 00 
98 00 
9 45 
CAU 
CAll 



LIST 

Fast Gammon 
Securities Crophics 
Job Costing Packoge 
Complete accounting 

package for MODEL I ond 
MODEL II 

Hardware 

Tl 99 4 

SOROC I0 120 

SOROC IQI40 1 

CENTRONIX 730 

ANADEX DP 8000 

PAPER TIGER 

OUME 5 45 5 55 

IEEDEX VIDEO 100 12" 

SHUGARt SA 400 (35 
track same as Tandy) 
Books 

TRS 80 Disk ond Other 

Mysteries 
Supplies 

9 V x II Poper. 1 1 " « 14 

Paper, labels Forms. Print 

wheels, print thimbles and 

ribbons for DIABLO QUME 

NEC Tl ond others 
Send for Mill catalogue 
free shipping tor orders over ■ 



CAll 
29 95 
74.95 



CAll 

880 00 
77500 
125 00 
750 00 
85500 
CAll 
CAll 
124 95 

349 00 



22 50 



CALL 
JO. OO 




FHrpr.a .... =-- 

BljiS 4636 Park Granada 159 

-t" - Calabasas, California 

"til Til, ! 91302 (213) 883-8594 



^Header Service— see page 22b 
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-Jg^— -KRELL SOFTWARE^ 
Kjw presents for the TRS-80 T 
" PET, Apple II, and Apple II Plus 



ELECTORAL COLLEGE 1980 



The Tool (or forecasting the outcome of the 1980 presidential Election 
Will it be CARTER'' REAGAN? ANDERSON? or will the election be forced 
into the House of Representatives 7 This program, developed by a pro 
lessor of Political Science is built to be used in two ways 

1 During the political campaign prior to the election and. 

2 On Election Night, as the partial returns roll in on network news 
Using the state by state data on previous elections that the program pro 
vides. simulated elections are run and the probability of outcomes caicu 
lated $14 95 



COLLEGE BOARDS 



The best way to sharpen your skills for the College Board SAT Exams is 
to work on actual examinations Each ol these 4 programs conlronts the 
user with a virtually limitless series of questions and answers Each pro- 
gram is based on past SAT exams and presents material of the same level 
of difficulty and in the same form as used in the verbal and mathematical 
portions of the College Board Examinations. Scoring on each exam is pro- 
vided m accordance with the formula used by College Boards 
COLLEGE BOARD - VOCABULARY 19 95 

COLLEGE BOARD - WORD RELATIONSHIPS 19 95 

COLLEGE BOARD -MATH PART A 19 95 

COLLEGE BOARD -MATH PART B 19 95 

COMPLETE SET 59 95 



TIME TRAVELER 



The besl of the adventure games Confronts player with complex deci- 
sion situations and at limes, the demand for real time action Using the 
time machine, players must lace a challenging series of environments 
that include: the Athens of Pericles. Imperial Rome. Nebuchadnezzar's 
Babylon. Ikhnaton's Egypt. Jerusalem at the time of the crucifixion, the 
Crusades. Machiavelli's Italy, the French Revolution, the American 
Revolution and the English Civil War Deal with Hitlers Third Reich, the 
Vikings, etc Involve yourself with historical military and government 
operations, markets, etc in fascinating game situations Each game is 
unique 1 $24 95 



THE SWORD OF ZEDEK 



Fight to overthrow Ra, the Master of Evil In this incredible adventure 
game you must confront a host of creatures, natural and supernatural. To 
liberate the Kingdom, alliances must be forged and treasures sought 
Treachery, deceit and witchcraft must be faced in your struggle as you en- 
counter wolves, dwarves, elves, dragons, bears, owl, ores, giant bats, 
trolls, etc Each game is unique in this spectacular and complex world of 
fantasy $24 95 



REALTIME SUPER STAR BASEBALL 



Performance is based on the interaction of actual batting and pitching 
data. Players select rosters and lineups and exercise strategic choices in- 
cluding base stealing, pinch hitting, bunting, intentional walks, hit and run 
plays, etc Games include double plays, wild pitches, infield errors, hit 
batsmen and pick offs. $14.00. 
ALSO AVAILABLE ALL TIME SUPER STAR BASEBALL $14 95 



PRIME TIME 



Players compete as network executives Each selects TV shows tor com- 
peting time slots Choose from a range ot programs including sitcoms, 
dramas, soaps, westerns, sci-f i, news and documentary shows, etc Up to 
three players compete for ratings and advertising revenue. Program 
simulates fan loyalties and industry events including FCC rulings and 
criticism from civic groups. Exciting and realistic In game package #3 



HOSTAGE 



Negotiate and/o* stage military raids In this contest t ■• -t -•.■• - -i : the 

Authorities and the Terrorists. 

Terrorists select their target; choosing to seize hostages at foreign em 
bassies. the U.N Building, Airliners, Hospitals, School Buses, or even 
Nuclear reactors. 

As in real life, public opinion counts and shapes the players actions. 
Players have a dramatic and realistically wide range of tactical options. 
This game accurately reflects the intricacies of threat, promise and all 
facets of negotiations In game package #1 



»c» ooio "nil 



GAMt PACKAlit II 

BAN2AI BANZAI II SUPER BANZAI 
THE BLACK DEATH 



'.AMI PACKAGE •] 

PRIME IIHE SIAR CUPPER 

BUUSANDBEARS l**S 

GAME PACKAGE «4 

WORDSWORTH HAROSCRABBLE BIBLE OUODE 

SHAKESPEARE OUODE BILL OF RIGHTS 

OUOOE 1994 



'All programs require 16* • TRSAO Programs requires Lewi II Basrc • Apple programs require Microsoft Basic 

* TRS-80 is a trademark of the Radio Shack Division of Tandy Corporation 

Send check or money order to Krell Software ^ 37S 
!21 Millbrook Drive. Stony Brook. NY 11790 (516) 751-5139' 




BY THE 

TIME 

YOU 

READ 

THIS 

AD, 

dial (617) 373-1599 and order Insort-80, 
your TRS-80* microcomputer would 
have sorted 1,200 names and addresses, 
10,000 numbers, or any other Random 
Disk File from your Basic program... for 
only; $49.95! 

"Let us sort things out for you!" 

SBmsYSTEFTis, inc. 

P.O. Box 1225 

2 Washington Street 

Haverhill, Massachusetts 01&30 

Approximate Son Time lor Insort 80 is eight minutes 
TRS 80 is d registered trademark ol the Tandy Corporation 



+ from WE 



THE MOST 
POWERFUL 
BASIC 

SHORTHAND 
EVER ! 




- - -.troatd with dec a's installed 



11 SAVEABLE KUSTOM keys Ten 10-character and one 
64-character 

41 preprogrammed LV II and DOS statement keys 

Complete decal set (see picture) included for both LV II 
and DOS systems 

Includes DEBOUNCE and ALTO REPEAT 

Hold "SHIFT or CLEAR and press desired key entire 
statement is typed on screen 



Includes LOWER CASE DRIVER 
•SHIFT " 



institutes loi 



Less than 1 K bytes machine language, relocatable in hi or 
low memory 

Features self-entering commands I E CONT, GOTO10, 
KUSTOM 

Includes comprehensive instruction manual 



TSHORT 
DOS) . . 



(one cassette includes Level II & single drive 
$ 19.95 



TSHORT • on formatted diskette (DOS only, requires 2 or 
more drives) $ 24.95 



Send Check or Money Order to WEB ASSOCIATES 



Phone Orders 



(714)494 2869 
Dealer inquiries Invited 

C3/COD Add $3 00 
SEND FOR FULL LINE CATALOG 



New Mail Order Address ' ' 

PO. Box 96QI 
Corona Del Mar CA 92625 
(Calif Residents add 6% tax) 
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GENERAL 



Deep in the heart of ROM. 



BINAX KIBUFF 



John T. Blair 
122 Dumont Ave. 
Nortork VA 23505 



In an attempt to break Micro- 
soft's BASIC for the TRS-80, 
several of our club members 
have spent many sleepless 
nights tearing through the list- 
ings of the Level II ROM's. What 
follows is some of the fruits of 
their labors and we hope that 
some of the newer machine lan- 
guage programmers can save 
some time by calling on the fol- 
lowing information. 

DELAY is used for time de- 
lays. Load the BC registers with 
a number between one and FFFF 
Hex (H). When DELAY is called, 
a return will occur approximate- 
ly 

(28-(N - 1) + 31)-563.67 Nanoseconds 

later. This routine is located at 
0060H. 

LD BC.XXXX ;where XXX = delay time 
CALL 0060H 

CLS is used to clear the 
screen and home the cursor. It is 
located at 01 C9H. 

KIBUFF reads the keyboard 
into a buffer until a carriage re- 
turn (CR) is entered, then it re- 
turns to the calling routine. The 
starting address of the buffer is 
contained in 40A7H, noted by 
programmers as (40A7H) and is 
initialized to 41 E8H. This can be 
changed by the user it desired. 
This routine resides at 0361 H. 

CALL 036 1H 



BINAX is used to convert a bi- 
nary number in the HL register 
to its ASCII equivalent. The 
ASCII value is in a buffer begin- 
ning at 4130H. The contents of 
4130H, (4130H), is always equal 
to 20H. 

The contents of 4131 H to 
4135H will have the decimal 
ASCII characters. (4136H) will 
always be 00H. 

CALL OFAFH 

AXBIN converts from ASCII to 
binary. Load the HL register pair 
with the address of the first 
ASCII character to be converted. 
On return the DE register con- 
tains the binary equivalent. The 
maximum number which can be 
converted is 65529. This routine 
is located at 1E5AH. 

LD HL.XXXH ;XXXX is address of 

char to be converted 
CALL IE5AH ;call convert routine 

LD A.(DE) ,Acc. contains the 

;binary value 

OUTSTR will output a string 
of characters from memory to 
the CRT. Load the HL register 
with the address of the first 
character. Characters are out- 
putted until either a OOH or 22H 
is found. OUTSTR is located at 
28A7H. (Note: Since the addition 
of a disk I have found this 
routine may or may not work. It 
will work if the system is 
brought up in BASIC2, non disk 
based BASIC.) 

VIDEO displays any character 
in the A' on the CRT. You must 
push the DE register onto the 
stack before calling this routine. 
It is located at 0033H. 

PUSH DE .save DE 

CALL 0033H ;display character 



POP DE restore DE 

PRNTR, the printer driver rou- 
tine, located at 058DH, is 
CALLed from 003BH. This rou- 
tine locates the printer at 37E8H, 
and checks its ready status by 
reading 37E8H for a 30H. 

This routine is very poor be- 
cause it is not useful with many 
printers other than Centronic's. 
(Radio Shack has assumed that 
a smart printer will be used.) 

You can capture the routine 
and use your own by changing 
the address stored at 4026H and 
4027H to the address of your 
printer driver. (Note: Be sure to 
PROTECT your printer driver 
program by answering the 
MEMORY SIZE question). 

SCANKE scans the keyboard 
for an entry (key closure) and re- 
turns the ASCII value of the key 
in the 'A' register. SKANKE is 
located at 002BH, you must ex- 
change registers before calling 
this routine. 

EXX .save registers 

CALL 002BH ;scan the keyboard 
EXX ;restore registers 

AND 7FH ;mask out bit 8 

Cursor control table is lo- 
cated from 0506H to 0540H. 

1 Backspace and delete character — 
04CEH 

2 Delete last character— 04CE. HL point 
to video memory of character. 

3 Cursor on— 04B8H 

4. Cursor of f-04BDH 

5. Convert to expanded characters— 
04F6H 

6. Backspace cursor— 04DAH 
6a. Advance cursor— 04ECH 

7. Down feed cursor— 04E7H 

8. Up feed cursor— 04F1H 

9. Cursor home— 04C0H 

10. Cursor to beginning of line— 04A1H 
11 Erase from cursor to end of line— 
0573H 



12 Clear all after cursor — 057CH 

Relocated to RAM on power 
up: 

1 Vectors for interrupts— 06D2 to 06E6H 

2 Keyboard device control block— 06E7- 
06EE 

3 Video DCB— 06EF to 06F6H 

4 Printer DCB— 06F7 to 06FEH 

5 4080 to 191CH (uncertain! 

Basic command table— 1650 
to181FH 

(Note: This is ASCII text, 
however, the first character in a 

word has the most significant 
bit (8) set to indicate new word.) 

Jump table— 1820H to 
18C9H. These are two word ad- 
dress, i.e., AE 1 D means that the 
routine is located at 1DAEH. 
This table is a one for cor- 
respondence for the BASIC 
command table. 

Error messages — 18C9 to 
18F6H. The data here is ASCII 
code and two words each, i.e., 
4E 46 is the ASCII for the NF 
code. 

If any of you readers have un- 
covered any more of the secrets 
and would like to share them, 
then please send addresses of 
the routines and any other infor- 
mation you have. 

One last note, Radio Shack's 
RS-232 card has several loca- 
tions for its addressing. The 
control of the Baud rate, parity, 
number of bits to be sent. etc.. 
are a combination of both hard- 
ware and software selection. Its 
data port is located at port EBH. 

I wish to express my thanks to 
Bob Coble, Dwane Saylor and 
Geogre Higson for their assis- 
tance in locating and defining 
the routines.! 
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STYLE 



The intricacies of PRINT statements. 



Variations On A Theme 



George ft Bullitt 

Route 82 

East Haddam, CT 06423 



Since becoming hooked on 
the TRS-80 in July 1978, it 
has been my singular objective 
to collect all the available 
reference material I could find 
on programming that wonderful 
machine. At best the collected 
works cover the more obvious 
routines, ignoring what I con- 
sider to be the fundamentals 
that can change a good program 
into a better one. 

Printing a Line 

One of those fundamentals is 
the printing of a line. Have you 
ever found in a book even one 
paragraph on the printing of a 
simple line? 

Well, turn on your set, be- 
cause here it is! Get yourself in- 
to BASIC, type and RUN the 
following: 



10 CLEAR 100 

20 PRINT STRING$<63.- 



How about that! 

Let's analyze the code. Line 
10 clears string space. (Delete 
line 10 and see what happens.) 
Line 20 utilizes strings which 



print almost anything, as many 
times as you want. In this in- 
stance it printed 63 dashes ( — ) 
which is the maximum for the 
TRS-80 screen. Just remember 
that the number is placed left of 
the comma, and the character 
you want printed is on the right 
side, enclosed in quotes (except 
for control codes). 

Type and RUN this mini pro- 
gram: 



10 CLEAR 100 

20 PRINT STRING$(21."X");STRING$<21- 

•■);STRING$<21, ) 



See what I mean about the 
STRINGS function? 

In case you have forgotten, 
the semicolon between state- 
ments prints everything on the 
same line and eliminates the 
need to repeat the PRINT state- 
ment for each command. On the 
other hand, typing a colon be- 
tween statements, followed by 
PRINT, prints each statement 
on a different line. If you are a 
skeptic try it by retyping line 20 
to read: 

20:PRINT STRING$(21,"X"):PRINT 
STRING$(21." '"). PRINT STRINGS 
121, ) 

Okay, now that you know how 
to print a line, let's get more 
specific and print a line at the 



top of the screen then another 
one 1/2 inch below it. Type and 
RUN: 

10 CLEAR 100 

20 L$ = STRINGS<63, "-") 

30 PRINT L$ 

40 PRINT CHR$(138) 

50 PRINT LS 

In spite of those funny look- 
ing bar graph lines, it works! 
CHR$(138) is the ASCII code in- 
structing the computer to print 
three blank lines. It also hap- 
pens to be the graphics code to 
print that up and down bar on 
the screen. However, when that 
code is sent to a printer it prints 
only the three blank lines. 

If you write a program strictly 
for the video display use the 
PRINT statement to print blank 
lines instead of CHR$(138). If 
you include a routine that also 
writes to a printer, then use it in 
that part of the program to save 
time and memory. 

Notice in line 20 that 
STRINGS<63,"-") is made equal 
to a smaller string character (L$) 
again saving time and memory. 

It was stated earlier that the 
STRINGS function prints almost 
anything, so why not a control 
code such as CHR$(138)? 
Retype line 40 to read: 

40 PRINT STRINGS(1.CHRS(13S)) 



Remember, since we are us- 
ing a control code, the quotes 
are not used to the right ofthe 
comma. Run the program and 
you will find that it does the 
same job, printing three blank 
lines. Each additional increase 
in the number to the left of the 
comma will print one more line 
and add 5/32 of an inch between 
the printed lines. 

Changing the number to two 
will print four lines or 5/8 of an 
inch and changing it to four will 
print six lines or approximately 1 
inch between lines and so on. 

More Sophistication 

To expand the theme and 
make our program more sophis- 
ticated, type and run: 



10 CLEAR 100 

20 L$ - STRING$<63. " ") 

30 INPUT "NO OF LINES 

TO PRINT"; L 

40 FOR X = 1 TO L 

50 PRINT LS 

60 NEXT X 



Lines 40 through 60 set up 
the FOR-NEXT loop, ending It 
when the number of lines you 
entered have been printed. 
Entering 14 fills up the screen. 
Seven fills half the screen. This 
type of program is especially 
useful for making up ruled lines 
on a page with your printer. If 
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OMEGA 

SALES 
CO. 






INTI RTrCSHPTRBRAIN 

*2449.00 
64K RAM *3 







Epson TX-80 *745 



"WHOLESALE COMPUTER PRICES" 
DIRECT TO THE PGBLIC 

1 2 Meeting St., Cumberland. R.I. 02864 



PRODUCT SPECIAL 

OF THE MONTH!! 



mliiMmmmmi mimimimmMvmww 





Products are 

NOW 

IN 

STOCK 

AT 

OMEGA 

Sales 

Co. 



Atari 800 
$749.00 




NEC Spinwriter 
5510 5530 $2449 



Soror 120 $699 



CALL TOLL FREE FOR OMEGA'S PRICE! 



HMEGA OFFERS THE BEST DELIVERY AMD PRICE ON: 
APPLE • ATARI • TRS-80 MODEL II • INTERTEC • 
T.I. 810 • HEWLETT-PACKARD-85 • SOROC • 
COMMODORE • NEC • QGME • CENTRONICS 
HMEGA sells only factory fresh, top quality merchandise I our jstomers. 
HMEGA will try to match any current advertised price with similar purchase conditions. 

Before you buy anywhere else • be sure to call HMEGA Sales Co. 
1401-722-1027 or 



1-800-556-7586 



2MEGA ships via GPS. truck, or air. COD's, VISA. Mastercharge accepted. 



VISA 



you want to double space the 
lines change line 50 to read: 

50 PRINT LS PRINT 

An easier way, however, is to 
increase the number in line 20 
from 63 to 64. Increasing the 
number adds a dash (-), which 
pushes the invisible cursor 
around the corner to the head of 
the next line, completing the 
command. Then it moves to the 
line below, creating the double 
space, to wait for another com- 
mand, which in this case is to 
print 64 dashes. 

Now, how about printing a 
line at the top of the screen and 
then another one two inches 
below it with a message in be- 
tween. Type and RUN: 



10 CLEAR 100 

20 IS = STRING$(63. ■■■■ ') 

30 NS = STRING*4.CHRS 

(138» 

40 PRINT LS 

50 PRINT N$ 

60 PRINT TAB 

(22). REPORT TO THE 

BOARD 



70 PRINT NS 
80 PRINT LS 



Not bad! But what if I want to 
vary the report heading? In that 
case, add the following: 



35 INPUT TYPE IN YOUR REPORT 
HEADING ,R$ 



Since the number of letters in 
the report heading will vary, a 
formula has to be built into the 
program so that the computer 
can figure the correct tab posi- 
tion, regardless of the number of 
letters. 

The way we arrived at the tab 
position (22) in line 60 was to 
subtract the number of letters in 
our heading (19) from the total 
number of spaces (63) dividing 
the answer by two. Translating 
that into a formula the computer 
will understand is relatively 
easy. Simply stated the formula 
is: 63 minus the length (LEN) of 
the heading (R$) divided by two 
(12). 

In computerese it is written 



63-LEN(R$)/2. Since the com- 
puter has to calculate the value 
of 63-LEN(R$), before it can 
divide the answer by two, it must 
be enclosed in brackets. 

Now the formula looks like 
this: (63-LEN(R$)/2. It follows 
that the answer will be our final 
tab position. The formula itself 
will have to be enclosed in 
brackets. Retype line 60 and 
RUN: 



60 PRINT TAB ((63-LEN(RS»/2|,RS 

For the finale, use the same 
formula to print a line across the 
screen with the report heading 
embedded in the middle. Type 
and RUN (clear the previous pro- 
gram by typing NEW and press 
ENTER): 

10 CLEAR 100 

20 INPUT TYPE IN YOUR 

REPORT HEADING ,R$ 

30 LS = STRINGS((63 LEN 

(RSW2 i 

40 PRINT LS.RS.LS 

Simple but effective! 



Note that the formula is 
placed to the left of the comma 
in line 30, giving the computer 
the same information as in line 
60. However, instead of printing 
blank spaces to reach the tab 
position, it prints dashes (-). 

To leave a blank space on 
either side of the report heading 
change lines 30 and 40 adding 
line 35: 



30 LS = STHING*i63LFN 

|RS»/2H."-") 

35 BS = STRING*!. I 

40 PRINT LS.BS.RS.BS.LS 



In order to leave room for a 
blank space, one dash is sub- 
tracted from the formula in line 
30, and STRING$(1," ") is added 
to print that blank space on 
either side of the heading. 

If you would like to do the ex- 
ercises in this article on your 
printer change all PRINT 
statements to LPRINT. Also, 
you can change the number 63 
to the number of characters (col- 
umns) your printer is capable of 
printing across the page. ■ 



PROFESSIONAL 



TRS-80 Business Software 49 



00 



TRS-80 MODEL II 

All of our Model II Software Requires CP/M and 
CBASIC. This allows you to take full advantage of 
your Model II. 

CP/M $250 

CBASIC $100 

OSBORNE WITH OUR ENHANCEMENTS 

GENERAL LEDGER $125.00 

Handles up to 8000 transactions to as many as 750 operator defined accounts 
Formal report formatting at report print time It stores a full years of posting by 
Month Year and Quarter. Handles Departmentalization integrates with 
Accounts Receivable and Accounts Payable 

PAYROLL $125.00 

Computes pay. Taxes. Handles Multiple Pay Types, keeps Employee Hecords. 
handles Multiple Reoccuring Deductions. Prints Checks, Prints Payroll 
Journal. W-2s. 94ia. Complete Job Cost with Overhead Distribution 

ACCTS REC & PAY $125.00 

Accounts Payable has complete Purchases Journal which creates Purchase 
Orders that post to Payables when goods are received Calculates checks by 
due date or by demand. Aged Ledger Accounts Receivable has a complete 
Sales Ledger and handles open items with Balance Forward lype payments 
allowed Gives true aging plus more 



OUR PROGRAMS 

INVENTORY $350.00 

CPA CLIENT WRITE UP $650.00 



TRS-80 MODEL I 

All these programs run with TRSDOS and Radio 
Shacks Level II Disk Basic. 

Osborne 

General Ledger, Payroll. Accts Rec & Payable Each 

$49.00 or $129.00 for all three 

Manuals for the Osborne programs and ours 
$20 each 



These programs are already running and can be working for you now Just cal 
or write and we will answer your questions as to now it can work lor you 

Full Service Accounting & Processing 



5423 Crows Nest, Fairfax, Va 22030 

VISA/MASTER CHARGE ^133 

(703) 573-7300 

N RM Cobol with Mult i Key ISAM 
$ A95.00 Manual $ 39-00 






We deduct 2.00 from phone orders 
to cover your call for you! 



190 • 80 Microcomputing, September 1980 



Build your own microcomputer 

as you learn 
computer technology at home. 



New from NRI! 

The First Interdisciplinary 

Home Study Course Ever Offered 

As the microprocessor revolutionizes 
the computer world and microcomputers appear 
almost everywhere, NRI brings you a new, con- 
venient, and effective way to keep up with this 
expanding technology. It's NRI's courses in 
Microcomputers and Microprocessors, created 
and designed exclusively for learning at home 
in your spare time. 

Designed for the New Breed 
of Computer Technician 

It's no longer enough to be just a pro- 
grammer or technician. With microcomputers 
moving into the fabric of our lives as low-cost, 
easily available tools for business and home, 
both the programmer and technician must 
become total professionals. With practical 
knowledge of hardware, the programmer can 
design simpler, more effective programs. And 
with advanced programming skills, the tech- 
nician can test and debug systems quickly and 
easily. The NRI course gives you simultaneous 
training in both skills. . . makes you one of this 
rare new breed. 

Build Microcomputer, 
Test Instruments 

NRI goes far beyond book learning to give 
you practical, "hands-on" experience. As you 
learn, you actually assemble NRI's designed- 
for-leaming microcomputer. It performs like 
the finest of its kind, and features both assembly 
and basic language capabilities. 

Every assembly step's a learning step 
Using the NRI Discovery Lab* plus the NRI 
transistorized volt-ohm meter and CMOS digital 
frequency counter you also build, you perform 
meaningful experiments throughout your 
course, trace circuitry, interface components. 





introduce and correct problems, design your 
own programs, and more. 

The Proven way to Learn 
at Home 

You don't have to worry with travel, classes, 
or time lost from work when you learn the NRI 
way. As they have for more than 60 years of teach- 
ing technical subjects. NRI brings the material 
to you. You study in your spare time, at your 
convenience, using "bite-size" lessons that 
program material into logical segments for easier 
assimilation. You perform experiments and build 
equipment using kits we supply. And your per- 
sonal NRI instructor is always available for con- 
sultation should you have questions or problems. 
Over a million students have already shown 
the effectiveness of NRI 
training. 

Choice of 
Courses 

Several courses 
are available, depending 
upon your needs and 
background. NRI's 
Master Course in Micro- 
computers and Micro- 
processors starts with 
the fundamentals, 
explores basic electronics 
and digital theory, the 
total computer world, 
and the microcomputer 
The Advanced Course, 
for students alreadv 



versed in digital electronics, concentrates on 
software and the world of the microprocessor 
and microcomputer. In both courses, you build 
all instruments and your own computer. 

Send for Free Catalog. . . 
No Salesman Will Call 

Get the details on these exciting new 
courses in NRI's free, WO-page catalog. Shows 
all kits and equipment, lesson outlines, and full 
information, including facts on other electronics 
courses. Mail the coupon today and we'll rush 
your catalog. No salesman will ever call. Keep up 
with the latest technology as you learn on your 
own computer. If coupon has been removed, 
write to NRI Schools, Computer Department, 
3939 Wisconsin Ave., Washington, DC 20016. 




Ml School* 

Mcfiraw Hill Continuing 

Education (enter 
WW Wbconsin Wn* 

ttashinglo; 

NO SALESMAN W1LLCAU 

Pleas* check for one free catalog onh 

D Computer Electronics Including 

Microcomputers 
D TV Audio-Video Systems Servicing 
O Completr Communications Electronics 

with CB • FCC bones • Aircraft 

Mobile. Marine Electronics 
□ CB Speculac Course 
D Amateur Radio • Basic and Advanced 




All career courses 
approved under Gl Bill 
D Check for details 



□ Digital Electronics • Electronic 
Technology • Basic Electronics 
D Small Engine Repair 
Q Electrical Appliance Servicing 

: MMHfMl Mnluino 

H Auto Air (xmdiUorunt 
D Air Conditioning. Refrigeration. & Healing 
Indudinf Solar Technology 



Sow 



City Suit. <Zlp 

Accredited by the Accrediting Commission of the National Home Study Council 
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UTILITY 



A sort program with options plus. 



Beyond Shell Metzner 



Doug Walker 

3485 Mock Orange Ct. S. 

Salem, OR 97302 



I needed a BASIC sort utility for 
my TRS-80, and not wanting to 
reinvent the wheel, I reviewed 
available literature in the hopes 
of finding a printed utility that 
met my business needs. I went 



looking— without success— for 
a utility that could perform user- 
specified major to minor field 
sorts in ascending or descend- 
ing order on alphanumeric or nu- 
meric fields. 

I did learn that the Shell- 
Metzner sort algorithm provides 
the fastest average BASIC sort- 
ing benchmarks. 

Also, records can be rear- 
ranged by swapping or by using 
record pointers in a separate ar- 
ray or within a field of a multiple 
dimension array that is being 
sorted. In general, pointers 



allow faster BASIC sort speeds 
than record swapping, but more 
computer memory is needed to 
hold them and the expanded 
BASIC coding. 

Both alphanumeric and nu- 
meric sorts can be readily ac- 
commodated, if a character 
string array holds the file to be 
sorted. The BASIC VAL function 
is used for numeric field sorts. 

If the record swapping meth- 
od is used, it is much faster to 
use the BASIC VARPTR func- 
tion to swap character string 
field addresses than to ex- 



ENTER AMOUNT 


OF 


STRING SPACE TO RESERVE? 


2000 








ENTER NUMBER 


OF 


RECORDS TO GENERATE? 5 










BNBQMOQ 




82 M 




97055 






NT 




18 F 




97052 






DD 




69 F 




97054 






TMOGGZS 




51 M 




97051 






QTFMRZTX 




61 F 




97054 






ENTER NAME SORT 


FIELD 1 ( 'NAME' , 'AGE' , 


'SEX' , 


OR 'ZIP 


CODE' 


OR 


ENTER 'STOP 


? 


SEX 










IS THE FIELD 


NUMERIC (Y/N)?N 










ASCENDING OR 


DESCENDING SORT (A/D) ?A 










ENTER NAME SORT 


FIELD 2 ( 'NAME' , 'AGE' , 


'SEX' , 


OR 'ZIP 


CODE' 


OR 


ENTER ' STOP 


? 


AGE 










IS THE FIELD 


NUMERIC <Y/N)?Y 










ASCENDING OR 


DESCENDING SORT (A/D)?D 










ENTER NAME SORT 


FIELD 3 ( 'NAME' , 'AGE' , 


'SEX' , 


OR 'ZIP 


CODE' 


OR 


ENTER 'STOP 


? 


STOP 










DD 




69 F 




97054 






QTFMRZTX 




61 F 




97054 






NT 




18 F 




97052 






BNBQMOQ 




82 M 




97055 






TMOGGZS 




51 M 




97051 










Example 1. A Sample Run 









change field values. This ap- 
proach minimizes time consum- 
ing string space reallocations. 

Develop Your Own Sort 

Armed with these ideas, I de- 
veloped a Level II, BASIC sort 
utility of my own. 

Within a two-dimensional ar- 
ray, it allows you to specify an 
unlimited number of sort fields 
in major to minor sort sequence. 
You can also specify whether 
the sort on each field is to be as- 
cending or descending, and 
whether numeric or alphanu- 
meric. 

The user specifies the sort pa- 
rameters through INPUT and IN- 
KEY$ statements; but the pro- 
gram can be modified easily to 
assign the parameters for your 
business application program 
and then branch to the BASIC 
sort utility. 

Program Listing 1 contains 
the BASIC program. Lines 140 
through 250 are not part of the 
sort utility, but generate random 
character string data that is in- 
put for demonstration sorts. 

Lines 260 through 480 prompt 
the user to input the sort param- 
eters. Notice that the single di- 
mension array A$( ) contains the 
data field names. Lines 500 
through 660 contain the coding 
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©DISCOVERY BAY 
SOFTWARE OQ 
P O Box 484 Port Townsend, WA 96368 



CPT 



EXPANSION 

I NTFRFACE's 



FOR 

TRS8 , -. , 



FROM 

COMPUTEX 




FEATURES 

•PROVEN mi. srsttM EXPANSION board 

• RSn?/70mA SERIAL | NTIRt 

• MEMORY EXPANSION !0 J ? K BYTES 
•CUSTOM FINISHED WOOD CABINET 

a REMOVE ABIE fRONI PANEL ALLOWS 

EASY DISK DRI VE ADD I TIO NS 
a R III I I IN MUI I I N FAN AND DISK DRIVE 

SUPPl I E S 
a IS DIFFERENT CONFIGURATIONS FROM 
J749 KIT lo $1300loi 2-OOUBlt DRIVE 
UK ASSEMBtEO SYSTEM 

• 392 

OMPUTEX (713)332-435f 

I 7 MO He nti|f CI Websltr 1 • libit 
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SUPERIOR SOFTAA/ARE PACKAGES 
DISK BASED TRS- 8 * 

SMARTTERM •$79.95 

UNQUESTIONABLY THE BEST 

SMART TERMINAL PACKAGE 

FORTHETRS80 

•True Break Key 

•Auto Repeat (Typomaiic) keys 

•Programmable soft' keys 

• Forward/ Reverse Scrolling 

Multipage Display 
•Transmit from Disk File. Screen 

or Buffer 
•Receive to Disk File. Buffer or printer 

• Multi Protocol Capability 

SPOOL-80 • $39.95 

A TRUE DISK TO PRINT DESPOOLER 
FOR THE TRS-80 

• Print Disk Files While Running 

Other Programs 

• Prints Compressed Basic Files 
•Includes RS-232 Driver for 

Serial Printers 

CALL US FOR YOUR CUSTOM 
SOFTWARE REQUIREMENTS 

MICRON, INC. Modem 

10045 Waterford Drive Versions 

Ellicott City. MD 21043 Available 

(301)461-2721 Soon 

• TR&80 is a Trademark of Tandy Corp 



— TRS-80 MODEL II USERS — 
Preserve — Protect — Display 

your equipment with 

CRYSTAL CLEAR 
PLASTIC COVERS 




• rWybootd ood CM 

• Lm* Pfirii«« M. 



174 93 m 
114 9S MO 



pAnl'Ml 

tMono .eudanii odd *% tow* io.i 

InirrxfcKiory Otter Boy both cove*« wvt 



Combination price 134.95 
including postage 

MODEL I covers also available. 
DEALER INQUIRIES INVITED. 

Crown Plastic Co. ^ 119 
3746 N. College 317-925-5566 
Indianapolis, IN 46225 



44 



HISPED 

TAPE OPERATION 

2KBaud/^t/kS 
for the TRS-80'" 

• Saw. wri/\ ami luail programs tip to 
4 iiiik-s I.I-.U-I ih.tn normal 

is.im-. verify .nid load vraj daii up to 
MttflMi i.i-uM than PRINTS 

1 1 s<.-i vuiiablc hardcopy toimattinti (3 
outpui routines work with most 
printers) 

("HISPI I)"' is a machine language 
program (not ■ hardware add-on) 

1 2 copies plus a free basic lesi program 
supplied on high quality cassette — for 
level :. Ink. 12k or 4,Hk 



14 niv /or full \pci i/iialion\ or send 
$24.95 (ck or mo) * SI. OOP H (( alii 
residents add ft'o sales tax) 

24 Hour (htliring I ine (4 IS) U6-SS46 
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PALOMAR 
SOFTWARE 

170 S. Palomar Dr. 



'S5& 



Redwood City, Ca. 94062 



TRS 80 11 a rogistt.ed trademark ol TANDY CORP ' 



Turn your Micro Into an 

electronic and security 

controller with our new 

TRS-80 INTERFACE 




To Order 

Send S59 95 

plus S J OS for 

shipping and 

handling 

Illinois 
Retidenti 

.1.1(1 h 141) 

TVS BO Soft 

ware (Specify 

T.ipa or Disk i 
S10 with 

purchase of 

Micro 
Commander 



r>e>Aqr 90 Day Warranty 

J*/ Assembled 4 Tested; 
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EASY TO USE NO WIRES TO RUN 
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MANUAL INCLUDES ALL SOFTWARE LISTINGS 
the UK basic 4 hi I praoram dats the tallow wa. 

Loads aacMat ia«t«agi driver 

Simulates command cantata 

Provides sequential operation 

Utilizes real lime clock lor control 

Complete documenialion includes 8080 in 

INTERFACE TECHNOLOGY ^319 

IT. p o Box 583 Des Plaines II 60017 
Phone (312) 297 2265 



- Reader Service - see page 226 



80 Microcomputing. September 1980 • 193 



for the sorts. 

The Shell-Metzner sort algo- 
rithm 1 has been used with a sub- 
routine in lines 930 through 
1010. Using the VARPTR, this 
subroutine compares sort field 
values (that switch record ad- 
dress pointers) in line 1030 
through 1090. 1 Notice in the sort 
field value comparison that VAL 
is used to perform numeric 
sorts. The relational operators 
">" and "<" are used for as- 
cending and descending sorts. 

Lines 680 through 690 check 
to see if there is another sort 
field. If not, the sort is com- 
pleted and lines 850 through 870 
display the sorted records. 



If there is another sort field, 
lines 710 through 830 identify 
ranges of records in the prior 
sort which are equal to those in 
the second field. The beginning 
and ending record numbers of 
the previous sort field ranges, 
which equal the ranges in the 
second field, are input to the 
Shell-Metzner algorithm. These 
records are then re-sorted to the 
current field specifications. 

Line 560 ignores record com- 
parisons that are outside the 
current range of interest. This 
process is repeated until all 
records are processed. 

A Sample Run 

Example 1 is a sample run of 



Sort Sequence 


Field Name Sort Order 


Data Type 


Major 


Sex Ascending 


Alphanumeric 


Minor 


Age Descending 

Program Listing 1 


Numeric 



five records generated by ran- 
dom field values. Next, a sort is 
specified in the order shown in 
Table 1. 

Finally, the sorted records are 
displayed. Note that all "F" sex 
field records are ordered before 

all "M" sex field records (as- 
cending sort sequence on major 
sort field). Within "F" and "M" 
ages are ordered from oldest to 
youngest (descending sort order 



on the minor sort field). 

This BASIC sort has proved 
reliable and a real time-saver 
when writing business pro- 
grams. Hopefully, you will be 
able to put it to good use with 
your system. ■ 

I, Thomas E Doyle. Kilobaud Microcom 

puling. "5 Minutes Or 5 Hours— Sorting 

Routines Compared.' May 1978. pages 

100-102 

2 T R. Dettman, 80-US Journal. Super 

Sorting. ' November/December 1979. pages 

28 and 62. 



10 REM 



20 REM 
30 REM 
4 REM 
50 REM 

6 REM 

7 REM 
80 REM 
90 REM 
1 



USER DEFINED MULTIPLE FIELD SORTS * 

* * ASCENDING OR DESCENDING * 

* * ALPHANUMERIC OR NUMERIC * 

* * MAJOR TO MINOR * 
DOUG WALKER 

34 85 MOCK ORANGE COURT SOUTH 
SALEM, OREGON 97303 
(503) 393-2685 

HOUSEKEEPING * 
CLS:DEFINT A-Z 
110 INPUT'ENTER AMOUNT OF STRING SPACE TO RESERVE" 
120 CLEAR D 

130 REM * GENERATE RANDOM SORT RECORDS * 
140 INPUT"ENTER NUMBER OF RECORDS TO GENERATE" ;A 
150 DIM CS(A,4) ,AS(4) : AS (1 ) ="NAME" : AS ( 2) ="AGE" : AS I 

EX":AS(4)="ZIP CODE" 
160 FOR 1=1 TO A 
170 B=RND(8) 
180 FOR C=l TO B 

190 CS(I,l)-CS(I,l)+CHRS(RND(26)+64) 
200 NEXT C 

210 E=RND(85) :CS ( I , 2 ) -STRS ( E) 

220 IF RND(2)=1 THEN CS(I,3)»"M" ELSE CS(I,3)="F" 
230 E=97050 + RND(5) :CS ( I, 4) -STRS (E) 
240 PRINT CS(I,1),CS(I,2) ,C$(I,3) ,CS(I,4) 
250 NEXT I 

260 REM * USER SPECIFIES SORT PARAMETERS * 
270 FOR C=l TO 4:C1(C)=-1:C2(C)=0:D(C)=0:NEXT C 
280 R=1:J=A:K=1 

290 PRINT'ENTER NAME SORT FIELD" ;R; : INPUT" (' NAME ' , 
', 'SEX', OR 'ZIP CODE") OR ENTER 'STOP'";SS 

IF SS-"STOP" AND R=l GOTO290 

IF SS="STOP" GOTO480 

FOR C=l TO 4 

IF SS=AS(C) GOTO360 

NEXT C 
35 GOTO290 
360 C1(R)=C 

370 PRINT'IS THE FIELD NUMERIC (Y/N)?"; 
380 GOSUB1100 

S1S=CHS 

IF S1S»"Y" THEN C2(R)=1:GOTO420 
410 C2(R)=2 
420 PRINT'ASCENDINC OR DESCENDING SORT (A/D)?"; 

KS=INKEYS:IF KS="" GOTO430 ELSE PRINT KS 
R)-1:GOTO460 
R)=2 ELSE GOTO420 



;n 



3)="S 



300 
310 

320 
330 

340 



390 

400 



430 
440 
450 
460 
470 
480 



IF KS="A" THEN D( 
IF KS="D" THEN Dl 
IF R-4 GOTO480 
R=R+1:GOTO290 
Z6=l 



490 REM 



SORTS USING SHELL METZNER ALGORITHM "* 



500 Z3-J 

510 Z3-INT(Z3/2) 

520 IF Z3-0 THEN 650 

530 Z4-K:Z5-J-Z3 

Z7-Z4 

Z8-Z7+Z3 

IF Z6>1 AND (Z7<K OR Z7>J OR Z8<K OR Z8>J) THEN 620 
570 GOSUB920 

580 IF Fl-2 GOTO620 ELSE GOSUB1020 
590 Z7-Z7-Z3 
600 IF Z7<1 THEN620 



540 
550 

560 



610 GOTO550 

620 Z4=Z4+1 

630 IF Z4>Z5 THEN 510 

6 40 GOTO540 

650 IF Z6=l THEN 



680 



660 



670 REM 

680 

690 



720 
730 
740 



IF Z6>1 AND M=A THEN 680 ELSE 720 

SEE IF THERE IS ANOTHER FIELD TO SORT * 

Z6=Z6+1 

IF CI (Z6)=-l THEN 840 
7 00 REM * SORT SEGMENT COMPUTATION ON INTERMEDIATE TH 

RU MINOR FIELD SORTS * 
710 M=l 

Z7-M:Z8=M+1:J-1:L=0 

IF C2(Z6-1)=1 THEN 760 

IF CS(Z7,C1 (Z6-1) )=CS(Z8,C1(Z6-1) ) THEN J=J+1 ELSE 
L=l 
7 50 GOTO770 

760 IF VAL(C$(Z7,C1(Z6-1)))=VAL(CS(Z8,C1(Z6-1))) THEN J 
=J+1 ELSE L-l 

IF L=0 THEN 800 

IF L-l AND J>1 THEN K=M : J=Z7 : M=Z8:GOTO500 
790 L=0:M-Z8 
800 Z7=Z7+1:Z8=Z8+1 

IF Z7<A THEN 730 

IF L=0 THEN K=M:M=Z7 :J=Z7 :GOTO500 

GOTO 6 80 

840 REM * DISPLAY SORTED RECORDS * 
85 FOR 1=1 TO A 

860 PRINT CS(I,1) ,C$(I,2) ,CS(I,3) ,C$(I,4) 
870 NEXT I 
880 REM * CONTINUATION CHECK * 

PRINT'DO YOU WANT TO SORT THESE RECORDS AGAIN (Y/N) 



770 
780 



810 
820 
836 



890 



9f 
910 



GOSUB1100 

IF CH$="Y" THEN 27 ELSE END 
920 REM * RECORD ADDRESS POINTER SWITCH CHECK 
930 IF D(Z6)=2 GOTO970 

IF C2 (Z6)=l GOTO960 

IF CS(Z7,C1(Z6) )<CS(Z8,C1(Z6) ) THEN 10 

IF VAL(CS(Z7,C1(Z6) ) ) <VAL (C$ (Z8 ,C1 (Z6) 
ELSE 1010 

IF C2(Z6) -1 THEN 990 

IF CS(Z7,C1 (Z6) ) >CS(Z8,C1(Z6) ) THEN 10 
!Z6) ) ) >VAL(C$(Z8,C1(Z6) 



940 
950 
960 

970 
980 

990 



1000 
1010 



IF VAL(CS(Z7,C1 
ELSE 1010 
Fl=2: RETURN 
Fl=l: RETURN 



ELSE 1010 
THEN 1000 



ELSE 1010 
THEN 1000 



1020 REM * RECORD ADDRESS POINTER SWITCH * 

1030 FOR C=l TO 4 

1040 1 1-PEEK (VARPTR (CS(Z7,C) ) ) : I 2-PEEK (VARPTR (CS (Z7 ,C) ) 

+1) : i 3=peek( varptr (cs(z7,c) )+2) 
1050 j1=peek ( varptr (c$(z 8, c) ) ) :j2=peek (varptr (cs (z8 ,c) ) 
+1) :j3=peek ( varptr (c$(z 8, c) )+2) 

106 poke (varptr (cs(z7,c) ) ) , jl : poke (varptr (cs ( z7 ,c) )+l) 

,J2jPOKE(VARPTR(C$(Z7,C))+2),J3 

107 POKE ( VARPTR (C$(Z 8, C) ) ) , 1 1 : POKE (VARPTR (CS (Z8,C) )+l) 

, 12: POKE (VARPTR (CS(Z8,C) )+2) ,13 
1080 NEXT C 
1090 RETURN 

1100 REM * Y/N INPUT CHECK * 
1110 CH$-INKEY$:IF CHS-"" THEN 1110 
1120 IF CHS»"N" OR CH$="Y" THEN PRINT CH$:RETURN ELSE 1 

110 



Table 1 



194 • 80 Microcomputing, September 1980 



TUBE 

The Ultimate Buffered Editor 
for TftS-80 Disk Systems 

TECO like, 21 edit commands, direct 
cursor control, block move, multiple In- 
put lines, file size limited only by 
available disk space. This is A FULL 
SCREEN EDITOR UTILIZING CURSOR 
CONTROL. 



•On TRS-80 Disk with Manual 
Also available for TRS-80 



$40.00 



SBASIC Structured Basic Pre- 
processor $50.00 

•BASOPT Basic program optimization 
program $20.00 

313 Meadow Lane 
Hastings, Michigan 49058 

(616) 945-5334 
(Dealer inquiries invited) 

VISA * MASTERCHARQE ACCEPTED 

• TRS 80 /s a trademark ol Tandy Corp 



TRS-80™ SOFTWARE 



MACHINELANGUAGE 
SOFTWARE 

MONITOR »3 S39.9S 

Disassembler, iwmoiy displays, memory mow. search verity 
and modily. read and write 0D|ect lapes henadecimai 
arithmetic, abiecl code relocate: unload programs lor dish, 
symbolic outpul lapes <l page instruction manual 

MONITOR »* $49 96 

Same as Monitor JT3 but adds save and read dish tiles, direct in 
put and output ol disk sectors, send, receive, or talk lo another 
computer via RS732-C interface, symbolic disassembly on 
disk 

SMART TERMINAL S ■ - .• 

Enables your TRS-80 to be used as a remote terminal to a time 
sharing system Supports lowercase and lull range ot control 
keys Automatic fransmissron between memory and host com 
outer Much more 

FASTSORT $9.95 

Machine-language sorting program lor use by Basic programs 
Many times taster than other methods 1 

GAME OF LIFE . $6.96 

John Conway's game ol lite shows patterns evolving and 
changing swiftly belore your eyes A dazzling demonstration 
program 1 

BASIC SOFTWARE 

MAILING LIST $6996 

Maintains mailing list lues ol over 1000 names per diskette 
Add. delete, change, lind name, machine language sort, print 
Id* 

SMALL BUSINESS ACCOUNTING $49 96 

Based on Dome Bookkeeping Journal §612. keeps track ot in- 
come, expenditures and payroll for a small business ot up 1o 16 
employees Daily, monthly, year to<Jale summaries 

HOME BUDGET $4996 

Checkbook maintenance combined with records ol income 
and monthly bills Monthly and year -to-dale Summaries show 
mg tax deductions 

DATABASE MANAGEMENT $29 96 

Defines files of any description ami maintain on cassette or 
disk Add. change, delete, find. sort, lustily prinl. line punt. 
total fields, write 



HOWE SOFTWARE ^103 

14 Lexington Road 

New City. New York 10956 

f*J TRS-80 '$ • registered trademark ol Tandy corp 



NEW INTERACTIVE 

DISASSEMBLER 

INTER-DIS0O 

A Z-80 disassembler designed specifically 
for the TRS-80* Model I. With it you can 
obtain the original mnemonics from Z-80 
machine code. You can also follow the logic 
of machine language programs like the rou- 
tines in your ROM, and unravel the secrets 
of the BASIC interpreter. 

Features: 

— F.nablo you to follow jumps and sub- 
routine calls. 

—Continuous or one line ai a lime disas- 
sembly . 

—Outputs to screen or to printer, at user's 
option. 

— You can insert your own comments dur- 
ing disassembly. 

— Completely relocatable. Relocator pro- 
gram included. 

INTER — DIS00 requires a 16K machine with 
Level II BASIC. Disassembler and reloca- 
tor supplied on cassette only. 
Price: $14.95. Cheques or money orders ac- 
cepted. (Quebec residents add 8% sales 
tax.) 



OKTOLOGIK 



^426 



074 NANTEL, LONGUEUIL 
QUEBEC. CANADA J4L-1Z9 

Dealer inquiries welcome. 

'TRS-ao is a trademark of Tarty ( orporatio 



W% COTTAGE •^H 
W% SOFTWARE #^B 

r% FOR TRS-*)™ Micro Computers # ^ 



PACKER: Automatically edits all or part of your 
Basic program to ease editing, run faster, or save 
memory. Has 5 sections: UNPACK -unpacks multi 
pie statement lines into single statements maintain- 
ing program logic, inserts spaces and renumbers 
lines for easier editing. SHORT - shortens your pro- 
gram by editing out all REM statements, un 
necessary words and spaces. PACK -executes UN- 
PACK and SHORT, then packs lines into multiple 
statement lines; maintains program logic 
RENUM- renumbers program lines including all 
GOTO's, etc. You specify increment. MOVE - moves 
any line or block of lines to any new location in the 
program and renumbers lines. Written in machine 
language; supplied on tape in 3 versions for 16K, 
32K, & 48K. For Level II or Disk Basic $29.95 

DISASSEMBLER: Read, write, and copy system 
tapes. Display and modify memory contents 
Disassemble ROM, DOS, and system tapes into Z-80 
mnemonics. Search for strings in memory. Much 
more!! Includes 32 pages of documentation and in 
formation. 

For 16K Level II $19.95 

SYSTEM TAPE DUPLICATOR: Copy your system for 
mat tapes. Includes verify routine 
For any Level II $14.95 

CHESDISK: Transfers your copy of Microchess to 
disk for quick and easy access 
For any Level 1 1 Disk system $8.95 

CASSETTE LABEL MAKER: A mini-word processor 
to print cassette labels on a line printer. Includes 
manual and 50 peal-and-stick labels on tractor feed 
paper 

For 16K Level II and printer $15.95 

INSTRUCTION MANUALS for any Cottage Software 
original programs available for 20% of program list 

frice. Refundable when program purchased. 
RS-80"* repairs and modifications. Call or write for 
info. MANY MORE items available. Call or write for 
catalog. DEALER inquiries invited. 
Kansas residents add 3% sales tax. Foreign orders 
in US Currency only 
Call our 24-hour phone: 316-683-481 1 or write 

"TRS-80 is a registered trademark ol TANDY CORP." 



tV 



COTTAGE SOFTWARE 

614 N.Harding ^233 
Wichita. KS 67208 



INTELLIGENT 
TERMINAL 

Use your TRS-80* os a dial-up terminal on any 
standard tlmeshare system. Includes control 
keys. Print command lists data on printer. 
Store command writes data to disk file. Write 
command reads disk file and outputs to RS232 
Interface $49.?5 

ADDITION AL SOFTWARE AVAILABLE: 

ACCOUNTS RECEIVABLE $495 

Maximum 9000 customers with up to 3000 trans- 
actions per customer per billing period. In- 
cludes customer status reports, past due 
billings, mail list, etc. Reports may be run at 
any time as often as desired. Hlgh-ouality, pro- 
fessional software. 

GENERAL LEDGER $495 

For medium sized business. Designed and 
proven impossible to unbolonce books. IRS au- 
dltable. Up to 9 departments. High-quality, pro- 
fessional software. 

PAYROLL $495 

For up to 120 people per year. Same high-qual- 
ity, professional software. 

MAR LIST $9.95 

Basic, no-frills program. Easy to use. Lists all 
(or range of) addresses. Prints 4 lines by 30 
chars on stondord 3'/j" x 15/16" label. 



UNILOGIC „ m 

P.O. Box 160 

PARIS, KY 40361 

(606) 987-2678 

(606) 987-4310 

(32K TRS-80* with disk drive required.) 

•TRS-80 Is a trade mark of Tandy Corp. 



SO YOU WANT TO USE 
YOUR TRS-80 TO: 

Relearn French. Help your children with 
thtlr reading. Teach your antlre family to 
program. But Interaction Is So Awkward 
In BASIC. 

BPILOT IS THE LANGUAGE 
FOR YOU 

BPILOT Is a version ot PILOT written 
•specially for the TRS-80 with either Level II 
or Disk BASIC. PILOT was developed by 
teachers for Computer Aided Instruction. 
PILOT allows you to concentrate on the 
Instructional goals, not the computer. 

BPILOT HAS 3 VERY 
IMPORTANT FEATURES: 

1. BPILOT is a complete PILOT. It includes 
the execute Indirect command, a complete 
Match Instruction, and long labels. 

2. You create BPILOT programs using the 
TRS-80 commands you are familiar with 
(AUTO, EDIT, LIST, TRON . . .). There are no 
new (and confusing) system commands. 

3. BPILOT allows you to use both PILOT and 
BASIC Instructions In your programs. 
Besides increasing the power of PILOT, this 
makes it easy to Team PILOT If you know 
BASIC, and easy to teach your children 
BASIC once they know PILOT. 

BPILOT Is a concise assembly language 
program making extensive use of the Level II 
ROMs. On a 4K system, the Level II version 
of BPILOT leaves 2K for programs. On a 16K 
system, the Disk version leaves 4K for 

f irogramt. At $24.98 for either version, 
ncludlng a reference manual and 3 
demonstration programs, BPILOT Is a true 
bargain. For more information or to order, 
contact: ^^ Computer Aided and 
/"" J^L A ( Managed Instruction 
W» /Vll-P.O. Box 2030 

Goleta, CA 93018 



*■ Reader Service— see page 226 
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UTILITY 



Access forbidden memory locations in your Model //. 



Deflower Your Debug 



Donnal C. Walter, M.D., Ph.D. 
Departments of 
Pediatrics & Pharmacology 
Univ. of Kansas Medical Center 
Rainbow Boulevard 
Kansas City, KS 66103 



Unlike ROM-based operating 
systems, the TRS-80 Model 
II operating system (TRSDOS 
version 1.2) is loaded from disk 
into internal memory on power 
up. Since the supervisor pro- 
gram and input/output drivers 
always reside in the lower 7K of 
RAM, this software should be 
easily accessible for inspection 
or temporary modification. 

The TRSDOS Debug Monitor, 
however, is programmed to con- 
ceal memory locations below 
hexadecimal 2800. It also pro- 



tects RAM above hexadecimal 
F300, its own starting address. 
The Debug Monitor displays and 
modifies the user area between 
hexadecimal 2800 and F2FF on- 
ly- 

In order to gain access to the 
entire RAM, one must either 
write an independent debug pro- 
gram or disable the memory pro- 
tection system of the TRSDOS 
Debug Monitor. The latter may 
be accomplished with the pro- 
cedure described in this com- 
munication. 

Memory Protection System 

Five debug commands (ra(M), 
(B)rk, (J)ump, (L)oad and (F)ind 
share an address-entry 
subroutine from hexadecimal 
F9C0 to FA19 which contains a 
protection segment (Table 1). 
The simplest way to disable this 
segment is to load 00 (NOP) into 
hexadecimal addresses FA01 to 
FA06 and 80FF into FA09 -FAOA. 



iiaress 


Object Code 


Instruction 


Consents 


F9FF 


AF 


UN 


A 


CLEAR ACCUMULATOR 


FABC 


21 FF 27 


lC 


HL.27FF 


LOWER LIMIT OF USER AREA 


FA03 


ED 52 


SBC 


HL.DE 


DE CONTAINS THE SELECTED ADDR. 


FADS 


30 CD 


JR 


NC.dlsp 


IF DE<HL DO NOT CONTINUE 


FA0? 


AF 


XOR 


A 


CLEAR ACCUMULATOR 


FA06 


21 FF F2 


LD 


HL.F2FF 


UPPER LIMIT OF USER AREA 


FA0B 


ED 52 


SBC 


HL.DE 


DE STILL CONTAINS SELECTED ADDR. 


FA0D 


38 C5 


JR 


C.dlsp 


IF DE>HL 00 NOT CONTINUE 








Table 1 



Address 


Object Code 


Instruction 


Conr*r.tS 


2807 


21 


ei 28 


LO 


HL.2801 




2883 


E5 




PUSH 


HL 


LOAD STAC* FOR RETURN 


2£K 


3E 


ro 


LD 


A,0* 


CLEAR ACCUMULATOR 


2806 


21 £1 FA 


Ll 


HL.FA01 


ADDRESS OF PROTECT IN DEBUC- 


2809 


77 




LC 


(HL!,A 


CLEAP MEMORY 'FAW 


288A 


23 




INC 


HL 




280B 


77 




LC 


(HL),A 


CLEAR MEMORY 'FA02' 


28BC 


23 




INC 


HL 




2S0D 


77 




LD 


(HL).A 


CLEAR MEMORY 'FA03' 


2S0E 


23 




mc 


HL 




280F 


77 




LC 


(HL).A 


CLEAR MEMORY ' FAW' 


2810 


23 




INC 


HL 




2811 


77 




l: 


(HL).A 


CLEAR MEMORY 'FW 


2812 


23 




INC 


HL 




2813 


77 




LD 


(HL),A 


CLEAR MEMORY 'FA06' 


2814 


23 




INC 


HL 




2815 


?: 




INC 


HL 




2816 


23 




INC 


HL 




2817 


36 


80 


LD 


(HL),80 


PUT "80" IN ' FABT9 ' 


2819 


23 




INC 


HL 




281 A 


36 


FF 


LD 


(HL).FF 


PUT "FF" IN "FAOA' 


281C 


21 


A5 « 


LD 


HL.F6A5 


STEPMODE PROTECTION ADDR. 


281 F 


36 


FF 


LD 


(HL).FF 


PUT "FF" IN 'F6A5' 


2821 


C3 


77F3 


JP 


F377 

Table 2 


ENTER DEBUG MONITOR 



The step-mode loader (ra(M)) 
has a protection segment at 
hexadecimal F6A3 to F6AC 
which may be disabled by 
loading FF into address F6A5. 

There are two protection 
segments which should not be 
disabled. These are at F4A0 for 
(L)oad (TOP) and F930 - F93D for 
(U)pload. 

The program in Table 2 makes 
the proper changes to disable 
the protection segments. It is 
written in linear fashion for 
simplicity, but a loop may be 
substituted for the repetitive se- 
quence. Implement it as follows: 

1. In TRSDOS READY mode, 



type DEBUG ON and press 
ENTER. 

2. TRSDOS READY will return. 
Then type DEBUG and press 
ENTER. 

3. RAM from 2800 will be 
displayed. To enter ra(M) com- 
mand, press M. 

4. The prompt A = will appear. 
To modify RAM, press the F1 
key. 

5. Now enter the object code 
program from Table 2. 

6.To effect this change in 
memory, press the F2 key. 

7. To execute the program 
press C. 
The monitor will then access 
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any area of RAM desired. The 
modified debug program may be 
saved on disk with the following 
steps. 

8. To return to TRSDOS press 
S. 

9. In TRSDOS READY mode 
type DUMP BUGGY {START- 
F300, END = FF80, TRA = 3000} 
and press ENTER. 

Now the command BUGGY 
may be used in place of DEBUG 
after DEBUG ON. The command 
DEBUG ON sets the proper call- 
ing parameters in the supervisor 
area, and the command BUGGY 
loads the modified program in 
high RAM. BUGGY will not run if 
DEBUG is OFF. 

With BUGGY the entire RAM 
is available for inspection. The 
user who wants to study the 
architecture of TRDOS should 
first become familiar with the 
Debug Monitor. The debug pro- 
gram is a good introduction to 
supervisor calls (SVCs) and in- 
teraction with the operating 
system. Important addresses 
are listed in Table 3. 

TRSDOS consists of a set of 



supervisor functions which 
reside in RAM and an overlay 
system which loads auxiliary 
code into a specified area as 
needed. Many of the supervisor 
functions can be called from 
user programs using RST 8 
(SVCs). 

The SVC calling segment is 
located between hexadecimal 
0145 and 018A. Because the 
Debug Monitor uses an SVC to 
set breakpoints, the monitor 
command (B)rk cannot be ex- 
ecuted in the SVC calling 
routine itself. The address table 
for the SVCs starts at hex- 
adecimal 01 A2 (Table 4). The 
stack pointer starts at 1 F00, and 
the overlay area is above 2000. 

Conclusion 

Model II TRSDOS (version 1.2) 
is a versatile and powerful disk 
operating system which 
appears to be relatively free of 
errors. Since the system is user- 
oriented, most users (such as 
businesses and schools) will not 
require direct access to the 
operating system itself. 



Computer hobbyists and sys- 
tems' programmers, however, 
will benefit from easy access to 
the TRSDOS machine code (es- 
pecially the supervisor func- 



tions). Until independent debug- 
gers and disassemblers become 
available for the Model II, the 
TRSDOS Debug Monitor can be 
used. ■ 



START 




START 






ADOP 


FUNCTION or OPERATION 


••-':: = 


FUNCTION or 


OPERATION 


F300 


Inltllllzition 


F467 


(L)oad 


Comwnd Routine 


F37' 


Proqran Entry Ser-qnet 


F4B7 


(P)rint 


Comrand Routine 


F3B6 


Main Connarid Mode Routine 


F4C2 


!E)rpt, 


Command Routine 


rtz: 


(DJecimel ConmaniJ Routine 


F4EE 


(F)1nd 


Conranfi Routine 


F429 


he(») Conrand Routine 


F5E2 


(B)rk 


Command Routine 


F430 


(J}unp Command Routine 


F5Cf 


(C)ontinue 


Command Routine 


F43F 


(0)ut Command Routine 


F7C7 


ra(") 


Command Routine 


F«45 


(H)elp Command Routine 


F8A5 


(Philter 


Command Routine 


F457 


(S)ystem Command Routine 


F8A5 


(IJ)pload 


Command Routine 




Table 3 







SVC MM 


START 


SVC NAME START 


SVC \A"( 


START 


SVC 


NAME 


START 




ADOR 


A0DR 




ADDR 






ADDR 


INITIO 


02A2 


11 VDREAD 084B 


25 TIMER 


0342 


41 


KILL 


13EF 


1 KBIN1T 


(T37A 


12 VIOKEY 094D 


?6 CURSOR 


0601) 


42 


CLOSE 


13F5 


2 SETUSR 


0518 


15 DISKIO 0EA3 


27 SCROLL 


09AA 


13 


WRITNX 


1809 


3 SETBRK 


04E6 


17 PPINIT 0EEA 


33 LOCATE 


IB9S 


44 


jIP.JP 


162C 


4 KBCHAR 


039A 


16 PRCHAR 0F44 


34 READNX 


172F 


45 


DATE 


1C09 


5 KBLINE 


8306 


19 PRUNE 0F25 


35 DIRRD 


1746 


Jfc 


PARSER 


1201 


6 DELAY 


0BB7 


20 RANDOM 09E6 


36 JP2D0S 


1237 


49 


STSCAN 


1CC6 


7 VDINIT 


8560 


21 BINDEC 0A35 


37 DOSCMD 


1 388 


52 


ERRMS r , 


139C 


8 VOCHAR 


0630 


22 STCM.P 09D3 


38 RETCMP 


:3s: 


it 


RS232C 


1408 


9 VDLINE 


092C 


23 MPYDIV 0ABD 


39 ERROR 


13*6 








10 VDGRAF 


0799 


24 B1NHEX 0B02 


40 OPEN 


13E9 












Table 4 











BRIZZERK J PRESENTS 



Package #1 $9.95 
BOXING 

It's you against Bruiser in the fight of the century! 
you control one boxer on the screen and your 
TRS-80* controls Bruiser. But watch out! Bruiser 

GETS BETTER AS THE FIGHT PROGRESSES AND YOU MAY GET 
KNOCKED out! With SOUND EFFECTS. 

RUSSIAN ROULETTE 



WITH INCREDIBLE 



an animated cartoon program 
graphics. You'll love it! 

PLUS A BONUS PROGRAM 



PACKAGE #3 $18.95 

(Both Packages #1 and #2) 



USE THE HANDY COUPON OR CALL (24 HOURS) 

(415) 538-3784 

BRIZZERK *<* 

P. O. BOX 373 
San Lorenzo, CA 94580 



•TM of Tanoy Corp 



3 Q£ 



Package #2 $9.95 
THE BATHROOM KEY 

A tough battle of quick thinking! You and your 

OPPONENT TEST YOUR KNOWLEDGE AND INTELLIGENCE IN 
THIS GAME OF DUELING QUESTIONS. THE GOAL? TO GET THE 
COVETED BATHROOM KEY. WHY? YOU'LL FIND OUT! TRICKS. 
TRIVIA. GENERAL KNOWLEDGE. TV — JUST ABOUT EVERY 
SUBJECT IMAGINABLE! 

AN INTERACTIVE QUIZ PROGRAM FOR TWO PERSONS 

16K Level II or 32K Disk Required 



BRIZZERK POBox 373 San Lorfnzo CA 945SO 

QUICK! Send Me The Following 
D Pkg. #1 at $9.95 ($10.60 for CA Res.) 

□ Pkg. #2 at $9.95 ($10.60 for CA Res.) 
D Pkg. #3 at $ 1 8.95 ($20. 1 8 for CA Res.) 

□ Enclosed is my check or money order. 
D Charge My □ VISA D Mastercharge 

Name_ 

Address 

City 



State 



.Zip. 



Expiration Date. 



PLEASE INCLUDE CREDIT CARD EXPIRATION DATE 
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New Releases for the TRS-80 



Oracle-80 

Oracle-80 will provide you with busi- 
ness analysis and forecasting capabili- 
ties previously available only in large 
computer and time-sharing systems. 
Oracle-80 is a flexible, professional time 
series analysis and forecasting package 
that can be used in sales analysis and 
forecasting, product planning, business 
planning, etc. Investors can analyze 
stocks, company trends and growth 
rates. Financial managers and econo- 
mists can analyze the general economic 
climate and investigate business cycles. 
Even families will find Oracle-80 useful 
in analyzing spending or energy con- 
sumption trends. Oracle-80 should be 
used by anyone who needs to analyze 
and forecast monthly, quarterly or an- 
nual data. 

Even though this package uses ad- 
vanced statistical analysis, you don't 
have to understand statistics to use it. 
Oracle-80 was designed to be used and 
understood by the typical business per- 
son. While Oracle-80 is designed for 
ease of use, its powerful analytical ca- 
pabilities will satisfy even the profes- 
sional forecaster. All input and output 
are written in plain English and the pack- 
age documentation carefully explains 
all the functions of the program. 

Adding, deleting and modifying your 
data is accomplished with a very flexible 
editor program, integral to Oracle-80. 
Automatic scaling of inputted numbers, 



the ability to choose from several output 
formats, a calendar format that iden- 
tifies all your data by month/quarter/ 
year, and the ability to add and subtract 
values while inputting from the key- 
board provide added user flexibility. You 
can use moving average, rate of change, 
seasonal indices or cycle indices 
methods to analyze your data. The 
unique graphing capability of Oracle-80 
lets you visualize your historic data or 
any of the modified data series you cal- 
culate. Additionally, you can direct any 
chart or graph to your printer. 

Oracle-80 will forecast future data val- 
ues using trend, moving average or sea- 
sonal methods. You may choose either a 
constant unit trend or a constant per- 
centage growth trend forecast for even 
more flexibility. 

Oracle-80 is one of the most powerful 
and useful business tools you will ever 
use. It puts the future in your hands. 

This package requires the following 
minimum system: 

1. A TRS-80 Level II with 16K RAM. 

2. An Expansion Interface with 16K 
RAM. 

3. One or more disk drives. 

4. Any compatible Disk Operating 
System. 

5. An optional line printer. 



Order No. 0152RD 
(disk-based version) 
$99.95. 



Order No. 01 40R 

(cassette-based 

version) $75.00 



Bowling League Secretary 

Instant Software answers the prayers 
of harried bowling league scorekeepers 
everywhere by presenting the Bowling 
League Secretary package, a com- 
prehensive system that lets you use 
your TRS-80 to maintain a computer- 
based statistics system for any bowling 
league. 

The package is simple to operate and 
provides a dynamic reference to all the 
names of individual bowlers, their team 
numbers, scores, team names, league 
data, and all necessary statistics. 

The system puts at your fingertips all 
individual weekly scores, team 
cumulative scores, bowler cumulative 
scores, and individual leaders in the 
following categories: high average, high 
series, high game and high points. 

You can even start your own bowling 
league scorekeeping business. Bowling 
leagues will be happy to secure your ser- 
vices if you can provide a detailed print- 
out of their league statistics. Speed, 
convenience and profitability are the by- 
words for the Bowling League Secretary 
package. 

This package requires the following 
minimum system: 

1. A TRS-80 with 16K of memory. 

2. An Expansion Interface with 16K or 
more of memory. 

3. One minidisk drive, two drives 
recommended. 

4. Any compatible DOS. 

5. A tractor-feed line printer. 

Order No.0095RD disk-based $49.95. 



Other Programs Available from Instant Software 



0001 R 
0002R 
0004R 
0007R 
0006R 
0009R 
001 7R 
0019R 
0023R 
0033R 
0043R 
0046R 
0050R 
0057R 
0099R 



0028R 
0034R 
0047R 
0049H 
0051 R 
0055R 
0056R 
0058R 
0063R 
0065R 
0066R 
0068R 
0069R 
0070R 
0072R 
0076R 



TRS-80* LEVEL I & II 

Basic and Intermediate Lunar Lander $7.95 

Space Trek II $7.95 

Beginner's Backgammon/Keno $7.95 

Ham Package I $7.95 

Electronics I $7.95 

Golf/Cross-Out $7.95 

Air Flight Simulation $7 95 

Business Package IV $9.95 

Oil Tycoon $7 95 

Bowling $7.95 

Santa Paravia and Fiumaccio $7.95 

Othello $9.95 

Grade Book $9.96 

Chessmate-80 $19.95 

Typing Teacher $9 95 

TRS-80* LEVEL II 

Ramrom Patrol/Tie Figher/Klingon Capture... $7 95 

Space Trek IV $7.95 

Who- Dun-It? $7.95 

Demo II $7.95 

Ball Turret Gunner $9.95 

Demo III $7.95 

Bowling League Statistics System $24.95 

Programmer's Converter $9.95 

Cards $7.95 

Teacher $9.95 

Mimic $7.95 

Your Cribbage and Checkers Partner $9.95 

Household Accountant $7.95 

Skirmish-80 $9.95 

Financial Assistant $7.95 

TRSeO* Utility II $7.95 



0O77R Enhanced BASIC $24.95 

0081R TRS-80* Utility I $7.95 

0082R Daredevil $9.95 

0064R Music Master $7.95 

0089R Energy Audit $49.95 

0092R Archimedes Apprentice $9.95 

0100R Video Speed-Reading Trainer $9.95 

0103R Personal Bill Paying $7.95 

0106R Airmail Pilot $7.95 

0111R Wordwatch $7.95 

0117R Night Flight... $9.95 

0125R Investor's Paradise $9.95 

0127R Surveyor's Apprentice $9.95 

0129R The Wordslinger $29.95 

0132R Energy Consumption $9.95 

0135R Executive Expense Report Generator $9.95 

0136R Beginner s Russian $9.95 

0137R Everyday Russian $995 

0156R Money Madness $9.95 

0171 R Flight Path $9.95 

0250R IRV $24.95 



TRS-80* DISKS 

0052RO Energy Audit $75.00 

0075RD Accounts Payable/Receivable $199.95 

0095RD Bowling League Secretary $49.95 

0123RD The One-D Mailing List $24.95 

0139RO Disk-Scope $19.95 

0147RD Check Management System $39.95 

0180RD Disk Editor $39.95 

0212RD The Russian Disk $24.95 



Instant Software 



PROGRAMS IN GERMAN: 

The programs listed here can be purchased through: 
MicroShop Bodensee 
Markstrasse 3. 
7778 Markdorf, West Germany 

6004R Beginner's Backgammon/Keno 

6O07R Ham Package I 

6008R Electronics I 

6009R Golf/Cross Out 

6017R Air Flight Simulation 

6028R RamRom Patrol 

6031 R Space Trek III 

6034R Space Trek IV 

6043R Santa Paravia and Fiumaccio 

6065R Teacher 

6069R Household Accountant 

6072R Financial Assistant 

6076R Utility II 

6081 R Utility I 

TO ORDER: Look for these programs at the 
dealer nearest you (see list of dealers on page 
199). If your store doesn't stock Instant 
Software send your order with payment to: 
Instant Software 
Order Dept. 
Peterborough, N.H. 03458 
(Add $1.00 for handling) or call toll-free 
1-800-258-5473 (VISA, MC and AMEX ac- 
cepted). 

"A trademark ol Tandy Corporation 



PETERBOROUGH, N.H. 03458 
603-924-7296 



^2 
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Ask for Instant Software at a computer store near you. 



Alabama 

Anderson Computer* 
3156 University 0- Huntsville 
Compute-iancl of Huntsville 
3020 Universn, 0> . Huntsville 

Ol»1J«y B'0» 

3763 Airport Blvd Mobile 

Arizona 

Professional Data Systems 
4506 A N i6tn St . Phoenu 
Millets TV & Radio 
621 East Broadway Mesa 

California 

AMCO Elect Supply 

635 E Arrow Mwy . Azus* 

Byte Shoo 

8036 CUirmont Mesa Bi«0 

San Diego 

Byte SHOO 

123 E Vorb* Lino*. Placenta) 

Byte Shoe Ol Mt View 

1415 West Ei Cammo Real. Ml View 

Byte Snop o! Sacramento 

6041 Greenback In Citrus Heights 

Capital Compute* Systems 

3396 El Camino Ave . Sacramento 

Computers Made Easy 

619 East Ave Q 9 Paimdaie 

Computer Store ot San Leandro 

701 MacArthur Blvd San Leandro 

Computer World 

6791 Westminster Ave . Westminster 

Computeriand 

16720 S Hawthorne. Lawndale 

Compute- ia"d o 1 W L A 

6840 La Oenega Blvd Ingiewood 

Coast Electronics 

31 18 No Mam St Morro Bay 

Computeriand 

24001 via Fabricante No 904. 

Mission Vieio 

Computer Mart of California 

315 Diamond Bar Blvd . Diamond Bar 

Hoooi Ironic* 

1378 So Bascom Ave . San Jose 

HoDOy World 

19511 Business Ctr Or . Unit 6 

Borthndge 

Huntington Computing 

2020 Charles St . Corcoran 

l C.E House Inc 

398 North E St San Bernardino 

jade Computer Products 

4901 W Rosecrans, Hawthorne 

Mallbu Microcomputing 

23910A Deville Way. Malibu 

Martam Co 

6351 Aimaden Rd . San Jose 

Opamp/Tecnnicai Boohs 

1033 N Sycamore Ave . Los Angeles 

PC Computers 

10166 San Pablo Ave . El Cerrito 

Q I Computer*. Inc 

15618 Hawthorne Blvd . Lawndale 

Radio Shack Dealer 

8250 Mira Mesa Blvd . San Diego 

Radio Shack Dealer 

SO N Cabrillo Hwy . Hall Moon Bay 

Santa Rosa Computer Center 

604 7th St . Santa Rosa 

Silver Spur Elect Comm 

13552 Central Ave Chino 

The Computer Store 

820 Broadway Santa Monica 

Colorado 

Colorado Computer Systems 
311 W 74th Ave Westminster 
Computeriand oi North Denver 
6749 Wadswonn Blvd Arvada 
Computer Shack 
1635 South Prairie Puetwo 
The Computer Store 
2300 Weiton St Denver 

Connecticut 

American Business Computers 

454 Tr-ames St Groton 

Computena* 
i30Je"erson New London 

Computeriand 

1700 Post Rd Feirt.eid 

Computeriand 

60 Ski" St Hamoe" 

Computer Works 

1439 Post Rd E Liberty Plaza 

West port 

Instructional Systems Computers 

807 Harllord Rd Manchester 

o.c. 

The Piogtam Slot* 

4200 Wisconsin Ave N W 

Washington 0C 

Florida 

Ai Personal Computer 
178 0ilordRd Fern Park 

^Reader Service— see page 226 



AMF Electromcs 

11146 N 30th St . Tampa 

Boyd E Den Corporation 

1328 West 15th St . Panama City 

Computer Center 

6578 Central Ave . St Petersburg 

Computer Junction 

5450 So State Rd 7 Ft Lauderdale 

Computeriand 

7374 S Tamiami Trail Sarasota 

Computeriand ol Ft Lauderdale 

3963 N Federal Hwy Ft Lauderdale 

Computeriand ol Jacksonville 

2777-6 University Blvd W 

Jacksonville 

Computeriand ol Tampa 

1S20 E Fourier Ave . T*mp* 

Computeriand ol West Palm Beach 

4J7S Okeechobee Blvd West Palm 

Beach 

Computer Shack 

3336 Beach Blvd Jacksonville 

Computer System Resources Inc 

3222 S W 35th Blvd Gainesville 

Curtis Waters Enterprises 

236 Talbot Ave . Melbourne 

Heath Kit Electronic 

4705 W 16th Ave Center. Hialeah 

HIS Computermalion 

1295 Cypress Ave Melbourne 

Ukatan Computer Store 

Airport Rd . Destm 

Williams Radio * TV Inc 

2062 Liberty St . Jacksonville 

rour Basic Computer Store 

971 Seaway Dr.. Ft Pierce 

Georgia 

Atlanta Computer Man 

Atlanta 

Computeriand of Atlanta 

2423 Cobb Parkway Smyrna 

Micro Computer Systems 

3104 E Shadowlawn N E . Atlanta 

Hawaii 

Computeriand ol Hawaii 

567 N Federal Hwy . Honolulu 

Radio Shack Assoc Store 

1 712 S King St . Honolulu 

Idaho 

Electronic Specialists 
8411 Fairview Ave . Boise 

Illinois 

Computeriand 

4507 North Sterling, Peona 

Computeriand 

9511 N Milwaukee Ave . Niies 

Computer Station 

3659 Nameoki Rd . Granite City 

Garcia & Associates 

203 No Wabash Ave Sune 1510. Chicago 

Midwest Mico Computers. Inc 

706 S Mam St Lombard 

Indiana 

Computer Center of South Bend 
51591 US 31 North South Bend 
Data Domain 

221 W Dodds. Bloominglon 
Fall Creek Electronics Store 
732 Center St . Pendleton 

Iowa 

Memory Bank 

1721 Grant St Bettenborf 

Kansas 

Central Kansas Computers 
6S Broadway Harmoton 

Main* 

Mam Computronics 

intown Plaza Bangc 

Radio Snack 

315 Mam Man Rd So Portland 

Maryland 

Jack Fives Electronics 

4608 Debiien Circle Pikesviiie 

The Comm Cemer 

9624 Ft Meade Rd Laurel 

Massachusetts 

ComputerCity 

175 Mam St . Chariestown 

ComputerCity 

50 Worcester Rd Framingham 

Computeriand ol Boston 
214 Worcester Rd Weiiesiey 
Computer Packages Unlimited 
342 Boston Turnpike Shrewsbury 
Lighthouse Computer Sollware 
14 Fall River Ave . Rehooath 
Mark Gordon Computers 
t5 Kenwood St Cambridge 

New England Electronics Co 

679 Highland Ave Needham 

Small Business System Group 

Mam St OunstaDie 

The Computer Store 

120 Cambridge St Burlington 



Tulls Radio & Electronics 
206 Mystic Ave Medlord 

Michigan 

Computer Center 

28251 Ford Rd Garden City 

Computer Connections 

38437 Grand River Farmmgton Hilts 

Computeriand of Grand Rapids 

2927 28th St S E Kentwood 

Computeriand ol Southtield 

29673 Northwestern Hwy . SouthfiekJ 

Computer Mart 

560 W 14 Mile Rd Clawson 

Computer Room 

455 E Michigan Ave Kalamazoo 

Computromi Corp 

423 S Saginaw Rd Midland 

Hobby House 

1035 W Territorial Rd Battle dee* 

Mam Systems MC 

1161 No BarHmeer Hwy. Ftmi 

The Alternate Source 

1806 Ada Lansing 

Tne Eight Bit Comer 

722 Evanslon Ave Muskegon 

Ye Old* Teacher Snoppe 

1823 Witmyr* St . Ypsilanti 

Minnesota 

Computeriand of Hopkins 
11319 Hwy F Hopkins 

Digital Den 

8 ---s. e Center 

Minnesota Software Inc 

5422 Fisher Si . While Bear Lake 

2-m Computers 

5717 xenes Ave . N Brooklin Center 

Mississippi 

Dyer s. inc 

200 E Mam Si West Point 

Soltwarehouse 

816 Foley St . Jackson 

W Vernon Foster Inc 

816 Foley St Jackson 

Missouri 

Century Ne«l Computers 

1001 E Walnut. Columbia 

Comp-U Trs Soltware Center 

51 Florissant Oaks Shopping Center 

Florissant 

Software Shack 

16501 Greenwald Court. Belton 

Montana 

Intermountaln Computer 

529 So 9lh St . Livingston 

Personal Computer 

121 Red Oak Dr Carl Junction 

The Computer Store 

1216 16th SI W *35. Billings 

Nebraska 

Computeriand ol Omaha 
11031 Elm St Omaha 
Midwest Computer Co Inc 
8625 1 St Omaha 
Midwest Compute' Co Inc 
4442 S 64th St Omaha 
Midw*st Computer Co Inc 
4403 S 87th St Omaha 
ScottSbluff Typewriters Inc 
1824 Broadway Scoltsbiulf 

Nevada 

Century 23 

4566 Sprmg Mountain Rd . Las Vegas 

New Hampshire 

B'tsnbyte* Computer Center 

568 Pleasant St Concord 

ComputerC'lv 

1525 S Willow Manchester 

Pauls TV 

Mam St . Fr*mont 

Portsmouth Computer C*nt*r 

31 R*yn*s Ave Portsmouth 

Radio Shack Assoc Store 

Fairbanks Piaza Keene 

New Jersey 

Computer Corner ol NJ 

439 Rte e23 Pompton Piams 

Computer Encounter 

2 Nassau St Princeton 

Computeriand 

35 Piaza Rte »4 W Paramus 

Computer Mart of NJ 

501 Rie 27 l»*lin 

Crowley s 

Rd *3 Whitehouse Station 

Dave s Electronics 

Pennsville Shopping Ctr Pennsville 

GMB Enterprises inc 

Rle 38 Rudderaw Ave Mapieshade 

Lashen Electronics Inc 

2i Broadway Oenviile 

Personal Computing Inc 

51 Central SQ Lmwood 

Radio Snack/jU Electronic 
Rl 57 Alien Rd Hackettstowi 



The Bargain Brothers 
Glen Roc Shopping Center 
216 Scotch Road Trenton 
The Computer Emporium 
Bidg 103 Avenues ot Commerce 
2428 Rte 38 Cherry Hill 

New Mexico 

Autei Electronics Co 

232 Wisconsin N E . AlbuQuerrjue 

South West Computer Center 

121 Wyalt Drive. Suite 7. Las duces 

Thomas E Carr Jeweler 

1300A Tenth Si . Alamogordo 

New York 

Ansto Craft 

314 Filth Ave. NYC 

Berliner Computer Center 

102 Jencho Turnpk. New Hyde Park 

Bits » Byte* 

2800 Straight Rd . Fredome 

Compute* Corner 

200 Hamilton Ave . Wt»te Pt*m* 

Computer Era Corp 

1570 3rd Av* . New York 

Computer Factory 

485 Le«mgton Ave . NYC 

Computer House Inc 

721 Atlantic Av* Rochester 

Computeriand of Nassau 

79 Westbury Ave . Carle Place 
Computeriand ot New York City 
58 W 44lh St . New York 
Computer World 

519 Boston Post Rd Port Chester 

Comtek Electronic*. Inc 

2666 Coney island Ave Brooklyn 

Comtek Electronics. Inc 
Staten island Man 
Store 220A. Staten island 
Digibyte Systems Corp 
31E 31*1 St . New York 

80 Microcomputer Services 
HBMaslenAve Cohoes 
Home Computer Center 
671 Monroe Ave . Rochester 
Mr Computer 

Imp Plaza. Rte 9 Wappmgers Fans 

Softron Systems 

308 Columbia Turnpike. Rensselaer 

The Computer Tree Inc 
409 Hooper Rd Endwell 
Upstate Computer Shop 
629 French Rd., Campus Plaza 
New Hartford 

North Carolina 

Byte Shop ol Raleigh 

1213 Hillsborough Si . Raleigh 

Sound Mill 

Slocum Shopping Cti . Haveiock 

Ohio 

Aitair Business Systems inc 
5252 North Dm* Dr Dayton 

Astro V«**o Electronic* 
504 E Mam St . Lancaster 
Cincinnati Computer Store 
4816 lnt*r»tat* Dr . Cincinnati 
Computeriand 
4579 Great Northern Blvd 
N Oim*t*ad 
Computeriand 

6429 Busch Blvd Columbus 
Computeriand 

1288 Som Rd Maytieid Heights 
Computer Store of Toledo 
18 Hiirwyck Dr . Toledo 
Fore*** M«ro»v*1*ms Inc 
35 N Broad Fairborn 
Microcomputer Center 

7900 Paragon Rd Dayton 
Micro-Mini Computer Wend 
74 Robmwood Columbus 
2ist Century Shop 
16 Convention Way Cincinnati 
Universal Amateur Radio Inc 
1260 Aida Or Columbus 

Oklahoma 

Sounds Etc 
Hyw 33 Watonga 
V*rn Street Product* 
Radio Shack D*a>er 
M4W T»ti st Sapuipa 

Oregon 

Computeriand ol Portland 
12020 SW Mam St . Tigard 
Computer Pathways unlimited. Inc 
2151 Davcor St S.E . Salem 
TRS-80 Products Ltd 
3520 S E Vineyard Rd Portland 

Pennsylvania 



Artco Elect 
302 Wyoming A 

ArtCO Elect 

Back Mountain Shop Ct 

Shavertown 



gsto" 



Audio Mart 

518 Filth Ave New Brighton 

Computer Workshoppe 

3848 William Penn Hwy Monroeviile 

Computeriand o' Hamsburg 

4644 Carlisle Pike MechanKsburg 

Computeriand ot Pittsburgh 

5499 William Ffrynn Hwy Gibsonia 

Erie Computer Co 

2127 West 8lh St En* 

Mighty Byte Computer Canter 

537 Ea»ton Rd . Horsham 

Personal Computer Corp 

24.28 W**t Lancaster Av* Par,! 

Personal Computer Corp 

Fra/er Man Lancaster Ave . Frazer 

Rhode island 

Compute* City 

165 Angeii St Providence 

Digital World Inc 

329 Bald Hill Rd Warwick 

South Dakota 

CB Radio Shack 

2tst and Broadway Yankton 

Tennessee 

ACS 

1100 8th A,* So Nashville 

Computertab 

671 S Menden Hall Rd Memphis 

H S M Electronics Inc 

509 N Jackson Si Tullanoma 

Texas 

Computer Port 

2142 N Collins. Arlington 

Houston Computer Tech 

5313 Bsso-et Benarie 

Interactive Computer 

7620 Oashwood. Houston 

K A Elect 

9090 Slemmons Frwy . Dallas 

Pan American Elect Inc 

1 1 17 Conway. Mission 

R»dio Sh*ck Dealer 

21989 Kit, Freeway. Kaly 

The Compute Shop 

6353 Camp Bowie Blvd . Ft Worth 

Waghaiter Books Inc 

3 Greenway Plaza E . Houston 

Utah 

DC Computer Co 

1911 Weal 70 South, Provo 

Quality Technology 

470 E 2nd So . Sail Lake City 

Virginia 

Computer Works 

Rle 6. Bon 65A. Harrisonburg 

Home Computer Center 

2927 Virginia Beach Blvd 

Virginia Beach 

Southside Radio Comm 

135 Pickwick Ave Colonial Heights 

Washington 

American Mercantile Co inc 

241S i*t Av* S . Seattle 

Byte Shop ol Believue 

1*701 N E 20th St Believue 

Computet Connection Inc 

3100 NW Bucklin Hill Rd . Siiverdale 

Computeriand ot South King Co 

1500 S 338 St . Suite 12 

Federal Way 

P*r»on»l Computers 

S 104 Freva Spokane 

ve Ofd Computer Shop 

1X1 G Washington Rice 'and 

West Virginie 

The Computer Corner Inc 

22 Beeehurst Ave Morgantown 

The Computer Store 

Municipal Parking Bidg Charleston 

Wisconsin 

Byte Shop Of Milwaukee 

6019 West Layton Ave . Greenfield 

Computeriand 

690 S Whitney Way Madison 

Computerwortd 

3015 W Wisconsin Av* Appleton 

Magic Lantern Computed 
3313 Umv*r»ity Ave Madison 

P*tt*d Microsystems 

4285 W Loomis Rd Milwaukee 

Wyoming 

Computer Concepts 

1 104 Logan Ave . Cheyenne 

Puerto Rico 

The Microcomputer Store 
1566 Ave Jesus I Pmero 
Caperr* T*rr*c* 

Canada 

CANADIAN DISTRIBUTORS 
Micron Di*triD*ting 
409 Queen St W Toronto Ont 
M5V 2A5 
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YOU'VE LOVED OUR WAR GAMES AND OUR FANTASY GAMES, 

5 ..AND NOW YOU'LL GO CRAZY FOR OUR s . 

new 

COITIPUTER BFIITIE5 

AVALON HILL'S new Microcomputer Games Division lets 
you square off against the computer as your opponent in 
five new cassette games, each with a complete set of instruc- 
tions and software for use with TRS-80 Level II, 16K; Apple 
II APPLESOFT Basic, 16K; or PET, 16K. 

MIDWAY CAMPAIGN- You command the US Naval forces 
a* the computer commands the invading Japanese. 
NORTH ATLANTIC CONVOY RAIDER-Can you cripple 
the British Home Fleet and force a surrender, or will the com- 
puter sink the Bismarck? 

NUKEWAR-Strategic conflict from 'cold war' to 'hot '...and 
your foe is controlled by a cold and calculating computer. 
B-1 NUCLEAR BOMBER- Be the Captain of a B-1 bomber 
in this tactical-level operation, as the computer springs Soviet 
defenses on your mission. 

PLANET MINERS— Four giant corporations engage in inten- 
sive exploration and political maneuvering to exploit the re- 
sources of space. For one to four players, with the computer 
playing the pert of the other competitors. 
All these titles are available for only $15.00 each, plus $1.00 
for shipping and our complete listing of computer games. 

OVER 35 TITLES AVAILABLE 

ASK ABOUT OUR 180-DAY GUARANTEED-SALES POLICY 
DEALER & DISTRIBUTOR INFORMATION 
AVAILABLE ON REQUEST 
MAIL ORDERS WELCOME! 



►^355 




Distributors 



01956 Pass Road 

Gulfport, MS. 39531 

(601)896-8600 





BEST SELLING INFORMATION 

MANAGEMENT SYSTEM IN 

MICROS TODAY!! 



SELECTOR III-C2 

I Powerful 

ICreates and Maintains Multi- key data 

bases 
IPnnts FORMATED, SORTED REPORTS with 

numerical summaries 
ISource code supplied 
■Prints MAILING LABELS - and more' 
IComes with APPLICATIONS PROGRAMS 

including 



ISales Activity 

llnventory 

Payables 

IReceivabies 

INAO 



■Expense Register 
■Checks Register 
■Client/Patient Record 
■Appointments 
■Library 

File management and report writing modules 
contain linkage to user subroutines to add 
virtually any special purpose application 

STATE OF THE ART in information manage- 
ment systems' 

NEW — Ready-to-run" version tor the 
TRS-80" Model I, only from Business 
Microproducts Also available for Model ll 

Requires CP/M operating system or 
derivative and CBASIC2 

Offered on 5 V*" or 8" all versions $295.' 
CBASIC2 with Selector Purchase $75.* 



TRSDOS-e-CP/M 

FILl/4ltAN 

"BRIDGES THE GAP' 



■Machine .nngjaqe COM FILE 
directly compaiiB.e *ilh you' 
CP/M system 

lAuiomdied Terminal Con 
hgurMOf 

IMemo'y MpUytfl n Ootn HEX 

jnO ASCII 
■Any disk Sector Selected and 

displayed ■ ootti HEX anc 

ASCII 
■ Transle'S Doln dala ana pro 

gram files By HI name rjyie Dy 

Dyle 



■Newiy ueaied lues scanned 
loi polen! ai e'iots Between 
eve II BASIC * MBASIC S 
Of iter 

ICrVAt li'es scanned lor any 
selected sir ng 

BSearcnes any urogram l(y d>i 
xcurences o' any siting 

Bljeneraies a vanaoie cross 
re'erence iniMmtm leaiure 
io« any system level conwer 
sion and deouggmg 

■Displays ootn CP/M I 
TP.SD0S areciones 



From CPM: TRSDOS now available tor TRS-80 Model I 
Both directions $149.00 



FILETRAN Disk .ind Manual 

Manual alone i manual price credited lo sysiemi 



$99 
$20 



BUSINESS - M2 

UWUQMPRODUCTS 

A DIVISION OF THE READY CORPORATION 

LIVERMORE FINANCIAL CENTER 
1838 Cataltna Court • Livermore. CA 94550 

(415) 449-4412 

VISA M/C 



QUALITY TRS-80 SOFTWARE 



KEYWORD Indexing System 

A wrk» hi' program* thai »lll crcalc ■ d«u ilk mi dlv.. Mid art 

kidci i>l all iktarrtnitu ■■< "kcymink" In rtK K>l oi rik- daU ilk 

and alkm lm|iilrk> or eBMcha inm *< ilk mlng ike Imkud 

keyword*. Tk* «>K'in feature* 

•ikxlhfc record kneth> with likallon polnkr* 

•dektlon of mm keyword* Irom Index by *y*4em 

•"and" "or" "not" ktgk k»e liH|alrk« 

•Inkriace Utr mcr written Inqvlrk* 

kmORDIMJrA-2dl* I.'MIIISm*™ $19.95 

SORTS for HOME and BUSINESS 

Vi winnpiikr HMir «h<Hild Ik without a ter*atlk.ca*y in uk *<>ri 
program. The V>rfhea*t Hkru»ir> In iiumnn *ort pn igram* art 
orkkn In U*el II BASIC and hate the k>llowln| fcatare*. 
•Sort ALPHA iir M AURIC data 

•Sort ixl up Hi 5 Held* timallaneoa*r> 

•In amending <ir defending «i|nn., 

•Support* kb. >tdeo at tape I 

•Sapport* wi|. disk and prlnkr I O (SORT IIDi 

•SvppOTl* UVvf | (I flKllilUs 

•Ur ctlt* iMIkT III) mi 1. 1 

SORT II lbkt.oei II In memory «>fl $19.95 

SORT IK) )2k DOS Ml memor* *orl $29.95 

rot the SttlOUS GAMIIII 
BLACKJACK SIMIUTOR. Alkm. MM HI UnulaK the playing of 
etotnand* ol hand, ol Kl and analyze the rc*uli* on tape In Uwl 
II BASIC. % 19.95 

Hanaal* tor all programs a*allahk k>r $ J.(K) ea. 

(price deductible on purchase oi program) 

"TRS-S0 la a registered trademark ol TANDY CORP " 

( < T^heast<^VlICROWARE) 
BOX 2133, W4 
BOSTON, MA. 02106 




*- A POWERFUL subset ot ANSl-74 
*- A PRICE that's UNBEATABLE- $99 

*- EXTENDEO arithmetic & I/O features 

►*• FAST compilation and execution 

** EASY to use - Generates small executable 

ob|ect modules 
^ UNIQUE Easily understood error 

messages 
^CP/M compatible 
*» Also available ON TRS-80 
^ REQUIRES only 16K-RAM 
^ Designed tor PORTABILITY 

STANDARD FEATURES 

■ Random access die structure 

■ Sequential dies - Fixed and variable length 

■ Debugging capability 

■ Copy statement 

■ Data types & character string. 16 Bit Binary 
and packed decimal (Comp-3i 

■ '8 Digit accuracy 

■ Hexidecimai non-numeric literals 

■ Powerful editing 

■ interactive accept/display 



Ottered on 
versions 



both b'/«" and 8" 



diskette an 
S99* 



'CA residents add 6 D o sales lax 
continental shipping S3 00 Allow 2 weeks 
delivery 

TRS-80 is a trademark ot the Tandy Corp 
CP/M is a trademark ot Digital Research 
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MARK GORDON COMPUTERS 

A DIVISION OF MARK GORDON ASSOCIATES, INC. 
15 Kenwood Street, Cambridge, Massachusetts 02139, (617) 491-7505 *2n 



SORT-80 

Produced exclusively for 

Mark Gordon Computers by SBSG 

TRS-80* disk files may be sorted and merged using 
SORT-80. the general purpose, machine language, 
sort program. Written in assembly language for 
the Z-80 microprocessor, it can: 

— Sort files one disk in length 

— Sort Direct Access. Sequential Access and 
Basic Sequential Access files 

— Reblock and print records 

— Recontrol files from disk 

— Be executed from DOS 

— Be executed from BASIC 

— Be inserted in the job stream 

— Allow parameter specification 

• input/output file specification 

• input/ output record size 

• lower upper record limit 

• print contents of output file 

• input/output file key specifiers 

The minimum requirement is a 32K TRS-80* Level II 
computer with one disk drive or a single drive 
Model II computer. It will operate on 35.40 and 77 
track drives, and has been tested on TRSDOS Z.I. 
2.2. 2.3. NEWDOS 2.1. 3.0. and VTOS 3.0.1. It is 
compatible with most machine language printer 
drivers. Sort time is fast: for example, a 32K file will 
sort in approximately 40 seconds. $59. 

PCS 

Program Catalog System from SBSG 

This menu driven system provides the TRS-80* user 
with a computerized method to keep track of all 
programs and data files. The idea is to build 
and maintain on a file a disk detailing each 
program including program name, size, creation 
date, and a brief narrative as to function. Programs 
^re provided to: 

— create, update, or display 

— print in disk number order 

— print in alphabetical order 

— print file listing 

— create a file automatically 

With a 3 2K system you can catalog 150 programs: 
with a 48K system you can catalog 300 programs; or 
you can catalog 650 programs without sort. S29 

'TRS-80 is a registered trademark ol Radio Shack a division ol Tandy Corp 



InfoBox 

The information manager 

InfoBox is the easiest-to-use information manager 
available for the TRS-80*. Its ideal for keeping track 
of notes to yourself, phone numbers, birthdays, 
inventories, bibliographies, computer programs, 
music tapes, and much more. This fast assembly 
language program lets you enter free-format data, 
variable length items and lets you look up items by 
specifiying a string of characters or words that you 
want to find. You can also edit and delete items. 
Items entered into InfoBox can be written to and 
read from cassette and disk files. All or selected 
items can be printed on a parallel or serial printer. 
InfoBox occupies 3K. Specify cassette or disk 
version. Special introductory price $24.95 until 
|une 15: $29.95 after. 

DBUG+ 

The ultimate monitor/disassembler 

Compare the features and price of DBUG*- with 
other monitor/disassembler programs. It offers nine 
true, single-byte breakpoints, single step program 
execution, hex and decimal arithmetic including 
multiply and divide and conversions. ASCII dump 
that distinguishes all 256 codes, disassembly to 
screen and printer in full Zilog mnemonics, 
and register set command. It also has 
the usual port I/O. hex and decimal memory dump, 
change, move, copy and exchange memory features 
offered by others. Ideal for the user who wants to 
experiement with assembly language or to write 
subroutines to call from BASIC: essential for the 
serious programmer. Special introductory price 
$24.95 to |une 15: $29.95 after 

FMS 

File Management System by SBSG 

This menu driven program allows you to define and 
create files for your own use. You can: 

— sort these files in: 

• ascending order 

• descending order 

• on up to 3 seperate fields 

— scan the files 

— summarize any numeric or dollar data fields 

— print the field records 

— create, add to or delete field records 
$49.00 



Model II versions of 5B5G software available. Dealer inquiries invited. 
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UTILITY 



A video driver mod for those 

whose hands are no quicker than their eyes. 

Slow Scroll 



Peter A. Lewis 

5850 Belt Line Road *1811 

Dallas, TX 75240 



LJ aving converted from Level 
' ' I to Level II, I am extremely 
pleased with all the new fea- 
tures of the more advanced lan- 
guage. One wrinkle that I don't 
appreciate, however, is the way 
the program flies by on the 



screen when you list it. In this 
regard, Level I has a superior 
system by stopping the list 
when the screen is almost full 
and allowing you to hit the up ar- 
row key to move the display up 
the screen. 

I know you can press Shift @ 
to freeze the display, but I am in- 
variably fumble-fingered and 
find that the part of the program 
that I wanted to see has some- 
how whisked by before I could 
stop it. 

Another thing that bothers me 







Program Listing 


1. Source Code 






■ •118 

88128 


1 SCREEN CONTROL - 11/65/79 - PETER A. LEWIS 






88148 


1 SET UP DCB DRIVER ADDRESS 






88168 


1 






7PA7 




88188 




ORG 


32679 


7PA7 


CDIBii 


88288 


INIT 


CALL 


6B6BH |P0T LOCH IN BL 


7FAA 


lltAII 


88228 




LO 


DE, SCREEN-! 


7 FAD 


1* 


88248 




ADD 


BL.DE 


7FAE 


221E46 


88268 




LD 


(4B1E8),RL l ENTRY ADDR TO DCB 


7PB1 


C3CC66 


SS28S 
88388 


I 


JP 


86CCH (RETURN TO READY 






88328 


; CHECK FOR FLAG CHARACTER (66H • OPP. 81H - ON] 






88348 


1 






7FB4 


FS 


66368 


SCREEN 


PDSH 


AF (SAVE FLAGS 


7FB5 


CDSB66 


8S3BS 




CALL 


666BB (PUT LOCH IN HL 


7FBB 


18B1 


66488 




JR 


BYPPLG (BYPASS FLAG 


7FBA 


■ ■ 


66426 




DEFB 


6 (ON/OFF FLAG 


7FBB 


23 


66446 


BYPPLG 


INC 


HL (HL POINTS TO FLAG 


7FBC 


23 


88466 




INC 


HL 


7FBD 


79 


86486 




LD 


A,C (CHARACTER TO A 


7PBE 


E6FE 


88566 




AND 


8FEH (LOW BIT OPP 


7FCI 


2663 


B6S26 
66546 


1 


JR 


NI.NOPLAC (NOT A PLAG 






68566 


1 SAVE 


NEW FLAG 








86566 


1 






7FC2 


71 


68666 




LD 


(HL),C (STORE NEW PLAG 


7PC3 


182D 


68626 
66646 


1 


JR 


BYPDRV (BYPASS DRIVER 






66666 


1 TEST 


FLAG 








66686 


; 






7PC5 


7E 


66768 


HOFLAG 


LD 


A, (BL) (FLAG TO A 


7FC6 


B7 


667 26 




OH 


A (TEST FOR XERO 


7FC7 


2828 


66746 
66766 


1 


JR 


I.RSTRA llERO - BYPASS ROUTINE 
Program continues. 



about automatic scrolling is 
that whenever I write a program 
that displays more than one 
screen full of data, I need a 
"Press Enter to Continue" rou- 
tine to stop the display. 

There are three things I don't 
like about that procedure. First, 
you have to keep track of the 
lines that your program is dis- 
playing so you know where to in- 
sert the pauses. Second, you 
cannot use the bottom line of 
the screen because It is needed 
for the "PRESS ENTER..." 
message. Third, if the user has 
the option to output to the 
printer, your program has to by- 
pass the pause messages in 
that case. 

A small modification to the 
Level II video driver solves all of 
the above. With this modifica- 
tion installed, any line that ends 
with a new line character (ASCII 
13), normally causing the screen 
to scroll, now has the following 
effect: 

• The display freezes after 
that line is printed. 

• Pressing the up arrow 
allows normal printing to con- 
tinue until the next new line 
character (just like Level I LIST). 

• Pressing CLEAR clears the 
screen and a new screen of data 
is displayed. 

• Pressing Break stops the 
program or the list and the ready 



message is displayed. 

• Any other key is ignored. 

The modification is not active 
when the cursor is turned on. 
This allows the screen to scroll 
normally when you are inputting 
a long program. You can also 
use this feature to temporarily 
turn off the modification within 
a program. By executing a 
PRINT CHR$<14) the cursor is 
turned on and normal scrolling 
is in effect until you turn it off 
with a PRINT CHR$(15). 

The cursor will also be turned 
off after an INPUT statement or 
if the program is restarted from 
Ready. 

Three Methods 

You can load the modification 
in three ways. With any method, 
the program is completely relo- 
catable. My version ends at the 
top of a 16K machine, you may 
want to load it at a different 
location to accommodate a 
larger memory size or other 
machine language routines. 

If you have the Editor/Assem- 
bler, enter the source code 
shown In Program Listing 1, as- 
semble it and create a SYSTEM 
tape. Then initialize the system 
by entering SYSTEM followed 
by 10 and set memory size to 
32678. Load the SYSTEM tape 
and enter a / to execute it. Enter 
CLEAR, and you're in business. 
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••788 


TRAP 


NEW LINE 


CHARACTER 






88888 








7FC9 


3A2249 


88828 




LD 


A, I4822K) ; CURSOR CHAR 


7 FCC 


B7 


88848 




OR 


A ;IS CURSOR ON? 


7FCD 


292S 


99869 




JR 


til, RSTRA [YES - CO TO DRIVER 


7FCF 


79 


88880 




LD 


A,C ; CHARACTER TO A 


7FDI 


FE9D 


88998 




CP 


•Dfl iNEN LINE? 


7F02 


2121 


88928 




JR 


NZ, RSTRA |NO - TO DRIVER 


7FD4 


2A2949 


99948 




LD 


HL.I4929H) (CURSOR ADDR 


7PD7 


114Itfl 


88968 




LD 


DE.49H ;LINE SIZE 


7 FDA 


19 


91988 




ADD 


HL.DE (ADD 1 LINE 


7 FOB 


7C 


91988 




LD 


A,H |NEH MSB 


7FDC 


FY. 4 a 


81828 




CP 


49H | SCREEN OVERFLOW? 


7FDE 


2114 


81848 
81869 




JR 


NZ, RSTRA | NO - TO DRIVER 






81888 


WAIT 


FOR KEYBOARD ENTRY 






91189 








7FEI 


CD49II 


81129 KBDIN 


CALL 


49H (WAIT POR KEYBD 


7FE3 


PM1 


91148 




CP 


91B (BREAK? 


7FE5 


2811 


81168 




JR 


Z, READY lYES - SEND READY 


7FE7 


FESB 


91189 




CP 


5M »UP ARROW? 


7FES 


2819 


81288 




JR 


Z, RSTRA lYES - TO DRIVER 


7FEB 


FE1P 


81228 




CP 


1PB (CLEAR? 


7pn 


29F1 


81248 
81268 




JR 


NX, KBDIN (NO - READ KEYBD AGAIN 






91289 


PROCESS CLEAR 


KEY 






91399 








7FEF 


CDC 98 1 


91329 

91349 




CALL 


91C9H (CLEAR SCREEN 






91369 


BYPASS DR1VKR 








91389 








7rr2 


Fl 


91488 BYPDRV 


POP 


AF (RESTORE FLAGS 


7FF3 


C9 


•14 28 
91449 




RET 


(BYPASS DRIVER 






91469 


RETURN TO DRIVER 






91489 








7TF4 


PI 


91599 RSTRA 


POP 


AT (RESTORE FLAGS 


7FF5 


C35894 


91529 

91549 




JP 


94S8H (TO DRIVER 






91569 


RETURN TO KKAiiY 






91589 








7FF8 


3E9E 


91699 READY 


LD 


A.9EH (TURN ON CURSOR 


7FPA 


322248 


91629 




LD 


(4922H),A 


7FF0 


C3191A 


91649 




JP 


1A19H (TO READY NSC 


7PA7 




91669 




END 


INIT 


••■■• TOTAL 


ERRORS 








BTPDRV 7FF2 


91499 


9629 






BYPFLG 7PBB 


99449 


949* 






INIT 


7FA7 


• 9298 


1669 






KBOIN 7FEI 


91129 


1246 






NOFLAG 7FC5 


99788 


6528 






ready 7 pre 


81688 


1168 






RSTRA 7FF4 


•1599 


•749 


19866 66929 81948 01200 


SCREEN 7PB4 


99369 


9229 







100 


REN - 


SCREEN 


CONTROL 


- 11/8/7 9 - PETER 


A. LEWIS 


120 


DEFIN1 


A-Z 








140 


CLS: INPUT "ENTER STARTING ADDRESS FOR LOAD'jA 


160 


IF A-l 


THEN 


H-32679 






180 


FOR X- 


TO 88 






200 


READ D 








220 


POKE A+X,D 








240 


NEXT 1 










260 


PRINT 


"TO ACTIVATE, 


SNTER:" 




280 


PRINT: 

NT 
PRINT 


PRINT, 


"SYSTEM" 


: PRINT,"/"; A: PRINT 


, "CLEAR" :PRI 


300 


"PRINT 


CHRS(l) 


TO TURN ON, PRINT 


CHRS(0) TO T 




URN OFF" 








320 


PRINT 










340 


END 










1000 DATA 


205,1] 


,0,17, It 


,0,25,34,30,64,195 


25,26,245 


1020 DATA 


205, U 


,0,24,1, 


8,35,35,121,230,254,32,3,113 


1040 DATA 


24,45, 


126,183, 


40,43,58,34,64,183 


32,37,121 


1060 DATA 


254, i: 


,32,32,42,32,6 4,17,64,0,25 


124,254,64 


1080 DATA 


32,20, 


205,73,8 


,254,1,40,17,254,91,40,9,254 


1100 DATA 


31,32, 


241,205, 


201,1,241,201,241, 


95,88,4,62 


1120 DATA 


14,50, 


34,64,195,25,26 










Program 


Listing 2. BASIC 





If you want the program to be 
loaded at a different location in 
memory, just change the ORG 
statement. Remember to set 
memory size to one less than 
that address. 

If you have T-BUG, you can 
enter the object code shown on 
the left side of Listing 1 by using 
the M command. Then use the P 
command to create a SYSTEM 



tape. 

The third method of loading is 
the BASIC program shown in 
Program Listing 2. This routine 
allows you to specify the load 
address. (Entering loads the 
program at the top of 16K.) 

The modification can be 
turned on or off by executing a 
PRINT CHR$(1) or PRINT 
CHR$(0), respectively. ■ 



• SWEEPSTAKES • OVER $1700.^ IN PRIZES • 




TM 



ORDER NOW TOLL FREE 

PRINTERS 



• 1 (800) 345-8102 
DISK DRIVES 



m 



V R DATA'S TRS-80 
SWEEPSTAKES 

Celebrating V. R. DATA'S 8th Anniversary 

OVER $1700.00 in PRIZES 
GRAND PRIZE - 16K Lll TRS-80 
two SECOND PRIZES - DISK DRIVES 
FOUR THIRD PRIZES - $ 50. 00 cut CtrtmcatM 

SWEEPSTAKES RULES 

1 ALL ENTRIES MUST BE SUBMITTED ON ORIGINAL 



00 






SOFTWARE 



KJNTIWG 
INC. MAGIC MANOI 



SIW0 

*»c 



illl DOIVtS 
D«IVI SINGH INCl 
OfliVi MUlTiril Ift 

>OISKO«iV( KOMfC! 



t rat to 

mi io 

un.o 
tin <o ( 



ENTRY BLANK 

ONE ENTRY PER PERSON 

WINNERS SELECTED BY RANDOM DRAWING 

NOTIFIED BY MAIL 

ENTRIES MUST BE RECEIVED BY 10 31 80 

VOID WHERE PROHIBITED BY LAW NO 

PURCHASE NECESSARY 



;»°| MAIL NOW TO ENTER V. R. DATA'S SWEEPSTAKES 

I I NAME 



OTHER PRODUCTS AVAILABLE • CALL IF YOU DON'T SEE WHAT YOU NEED 

DEALER INQUIRES INVITED • SERVICE CENTER OPEN NOW 
ABOVE PRICES ARE CASH DISCOUNTED • CALL FOR OTHER TERMS 



ORDER TOLL FREE 



ADDRESS 
CITY 



STATE 



ZIP 



TELEPHONE 

COMPUTER EQUIPMENT OWNED 



OCCUPATION 



777 HENDERSON BLVD 
FOLCROFT. PA 19032 



1 800 345 8102 



LOCAL CALL 
(21SI 461 5300 



INTENDED USE 



M 



SEND FREE CATALOG □ 



^Reader Service — see page 226 
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TRS-80® MODEL II 

Professional Software NOW AVAILABLE 
BASIC CROSS REFERENCE: Prepare* a listing oi your 
BASIC program. Heading contains program name. 
date, time, & page #. All R£M' statements print 
ELONGATED* are easy to spot. The cross-reference 
report is then printed. Il snows you at a GLANCE 
what line #'s within your program are referenced and 
where, all variable names u»ed& where. Know what 
is available. Find DEAD spots. We wrote this for 
ourse Ives.... you can use il too...,! 

Dot umentation • $10.00 Total » SS9.99 •• 

DISK SORT: Sorts thousands of 'random file' 
records. Capacity is dependent on your disk space. 
Answer the question and sort now or later in your job 
stream. 1000 records <A 20 bytes, sorting 1 b bytes ■ 
2.26 mm.! Input files are not clobbered by the sort. 
All stored specs, can be displayed, printed or 
changed. 

Single or multiple drives and 64K required. 

Documentation * f 10.00 Total = $69 99 •• 
INVENTORY flOORlNC MANAGEMENT. Send for 
details 

BASIC COMflLII.TRSDOS*/BASICcoNipaL Faster 
by 7- 10 times! Written by Microsoft. (Augmented 
with our documentation). 

Easy to use! Complete package: $3 SO 00 •• 
Use our Compiling Service to My it out. Send lor 
details. We use it and have found it it to beabsolutely 
FANTASTIC! 
ANADEX PRINTERS: DP-9501 $1 ,599.00 Delivered! 

(48 contiguous states only) 
2Kbuf.. graphics. 10-16.7 cpi. 11x9 matrix, all three 
interfaces. & much more, a FANTASTIC printer/price! 
WORD PROCESSING: Complete editing capability 
including center, right, left. o« full line justification, 
tabs, margin, length and width control. Lines auto- 
matically overflow from line to line. All file specifi- 
cations stored on disk. A complete, sophisticated 
system 

Requires 64 K & printer ot your choice. 

Documentation • Si 0. CO Total = $299 00 •• 

'Deductible on software purchases. 

" Plus postage & handling. 

(All software is in machine language or extra high 

speed) 

Send lor documentation & order form 

GOOD-LVDDON Data Systems 

S486 Riverside Dr.. Chino, CA91710 **218 

TRS-B0 # ' & TRSDOS* - are registered trademarks of 
Tandy Corp. 

Masler Charge or Visa accepted. 



INTERFACE EXPANSION BOARD 



For the TRS 80' 



M> 



MICRO-D€9IGn P*«S5 




The Interface Expansion Board gives 
your computer these features: 



32 K Memory 
Real-Time Clock 



PC Board & user manual 
iNTROOUCTOfiY OFFER 



5995 

Add 3.00 tor shipping 
& handling. Texas res' 
■dents add 5"u sales 
lax 



Parallel Port 
RS-232 Port 
2K E-Prom Option 
Phone Modem 
Dual Cassette Line 
On Board Supply 
Silk Screen 
Solder Mask 
Expansion Port 
Manual 



•FREE PAMPHLET AVAILABLE* 
Call or write 



MOO-D€ C IGN "£L 

P.O. Box 18054 •» 

Austin, Texos 78760 

1-512-458-2937 



Expire Dole. 
Signature. 



.Card #. 




fiMPSMI? 



Tin- program, "SSTV". is a slow w TV pattern |MOTat0t 
designed tn run in a TRS-WI Level II with I6K of HAM, Il Is a 
iiiiK-hilH' language program that jwiiducts S gray-scalr and 
itHiktrboard iwtterrts in addition tu tot tones of I20U. 1500. 
ami 2300 Hz Each function in calkd b> a single keyboard rn- 
tr>. Its output k directed to the tape AL'X plug, with thy 
resulting audio to bi- used in a manner similar to that of the tape 
player in your slo-scan station. Just load and run the program, 
conneii the tape "AUX" plug to your tranunittrr or tape 
nvorder and select the desired 0o-scan output. 

0—1 * Documentation $35.00 

Cassette. Documentation & Source Listing. . 140.00 



N.Y. Rcaidctau add sales tu 



solutions* 

Route 55 *•*» (0 
La Grangeville, New York 12540 




L DMPUTER 



iF 



ORMS 



►-•240 



Distributor of Computer P*per Products 

All paper products are white, blank, tractor iced, 
(pinfeed) fanfold continuous stock. 



6" X4" Postcard Stock (7" width with V margins) Use 

as is or trim for i'/t" x S'/i" 

Pkg lOOUtards Hf.fS Pkg WOO SWSS 

Boa 4000 M9 95 



Standard 9 H "XII" Computer Paper (8 '/, " x 1 1 ' sheet) 
Pkg M0 sheets *5 95 Boa i 500 sheets *27 95 
Boa shipping weight 31 lbs 



Try our mini-paper 1 6" X o'/j " sheet size 
(7" width includes V, " tractor margins) 
Boa 3200 sheets $2395 sh wt only 17 lbs 



Cash Order: Include 12 for shipping, eicest will be billed 
with your order. 

Credit card Order; S h ip p ing wiN be added to your order, 
twc hl da aN credit card information. 



Send for FREE CATALOG of paper products 
Postcard stock, address labels, many sizes & 
types of paper 



Computer Forms, (tie) 429-7922 
5588 Caribou, Sttvensville, Ml 49127 



DISASSEMBLED HANDBOOK 
FOR TRS-80 

VOLUME 1— $10. POSTPAID 

Using ROM Calls in assembly language programming 
Self -programmed learning course— 10 Chapter* 
All BASIC ROM Calls -ROM ancillary fund Kins 
CI NT. CSNCi & CDB1 arilh/trig/log/elc. demo pgms 

VOLUME 2— $15. POSTPAID 
Advanced assembly language course— 1 3 Chapters 
Storing video in MEM Tor later use A. recall 
Split-screen video with scroll siorc/rccall 
Decoding single & double precision numbers 

COMMENTS 

COMPt'TFR INFORMATION bXCHANGF- ship 100 

Vol. 2 

Cieorge Blank- Vol. I good iniro. to ROM CAl.l.s 
SOFTSIDE— will reprint 3000 copies o I Vol. I 
Allan Moluf— I especially recommend this book 
S-H0 BUI.l.l-TIN— A must for every 80 bookshelf 
Charles Butler— most informative and accurate 
INTERFACE— save you I year's assy. lang. siudy 
Joni Kosloski — we sold over 500 first 30 days 
THE ALTERNATE SOURCE— «d. lew for using ROM 
Miller Microcomputing — ship us a carton ASAP 
CHICATRUO — ship us another canon via Air Mail 
Bill Mel aughlin — ship another 300 air freight 

RK'HCRAFT ENGINEERING L TI). •" 276 
Drawer 1065, Hahmeda Industrial Park 
Chautauqua, New York 14722 
phone (716) 753-2654 for COD orders 



H 
O 
M 
E 
S 

£ 
o 

r 

t 

h 

e 

T 
R 

S 

8 
O 



Faatwr in« 
woftOvaMr Coosw < u » 

•--.) gaaaaB^ s- •• 

Consular Ca nso wi *m 
SIMM. 

p,,.. H . tutm hbjb 




Custom furniture for tho 
TRS-80 off ice or homo dotor. 
-FOR 24 HOUP INFORMATlON- 
PHONE 408946 12*5 



voo-.ax c 2486 AUTUMNVALE AVE 
I' ll - SAN JOSE. CA 95132 
Dealer inquiries invited 



/\5 



^146 





BREAK THROUGH TO NEW DIMENSIONS 

IN INTERGALACTIC WARFARE ! $19.95 

h UNWUEDBPIAY jgjJJJ^jg 

ACTION SOUNDS* GRAPHICS .S2§S2: 
f REET BATTIE CRAFT *£££ ^ 

TO8OQI61XSSJIREO. fvcamfo 
Bid mstructiorH tons crwdc or money ordar. 

SYNttdSTIC SOLAR WKSSlZSS 




!b3rTJli^ .,■ :-.. TF-s-arj 



f^y»-.io.TWH0-l» L»»w« c»m f lii H i nm aarii 
StONINQ • 




L*Mn (0 t4vlh wttfi Ttff haatini, imptWec 


Typ« in atlV 


pfa 


M Up 10 


>,400 d>«ractc<s ion? II than rt*c 


i lac 


onr letitr a 


t i» 


«. ihow- 


Infl thr hind poiKiorn to* ttci* la 


aai 


'ou htya en 


li nl 


in«i lr» 


UiceO dmi sikhoiher »»r run die |*« 


•a ^owi on thp w 


raai 


ittomt 


l»ti«r bring verted hM0M0itsR4 








tlS.K 


TICTACTOC2.2 • 










Tla| 9JTH* 'tot il-ly hiildl ytnj' 1 


i«-ts 


■ T «.■• 1 4 


1 ii 


Mca Da 


renenjRv ' Wr| a MfunQ n>ow 
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iflloowa 
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M Tn^rnm] 


•i4t 
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S6S8 


BANJO PLAYER 1.0 • 










L«i?n (o chord T*>« barifC by OIK 




«■ cho<» »• 


119 


chords -a 


•nv <H0«*. to* iny j»i^Th o' !*nt 


Up 1 


* mr>v as 


i-bO 


play any 


loof you <v*nl A f BBMi Uv^n 
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-i diusiayarl 
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vhuvrpn^ how 10 pUv *Kh Chtfd, 
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tllK 


FORM 007 • 










Tm» lot m >i on MM atfM «. 1 \ ■ ■ 


:bt 


vo«t< Hvaat th 


ICO 


Ml with 


•i 1* ul matching in* 1?" amta q<«<h n 


i. F mrl any 


ocat 


in on lh. 


Winn by: Thr sti (•.•] N,n Tlw 




•>•-• Not 
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Chart to d«fin« any comhinatum o 


mat 


n part block 
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THE 

SOFTWARE 
DIRECTORY 

A Comprehensive Guide to Programs 

Now, you can have access to hundreds of 
computer programs, quickly and easily. 

The Software Directory lists available programs 
for major home and small business computers, including 
Apple ...Atari... North Star. Radio Shack... PET... CP/M 
Systems and more 

Indexed for last and easy relerence. Directory 
categories include games, education, utilities, home 
accounting, and professional business programs. It's 
organized according to computer type, so you can find 
the programs designed for your computer, fast 

The Software Directory describes each program, 
and lists the minimum required system, program price, 
ordering information and vendor address. 

The Software Directory has all the information you 
need for ordering any of the hundreds of software 
programs available. To get it. send a check or money 
order for $9.95 to Software Central. We'll send you a 
software relerence book you'll use time and again 



Sc 



Software Central 

P.O. Box 30424 Dept. M ^ 4 ie 

Lincoln, NE 68503 




MACO MICRO MODULE 

. . . TRS-80 USERS . . . 

Expand the horizons of your Level II R-S system with the M3 Interactive Interface 

HARDWARE FEATURES: 

• Two 8-bit hand-controller input ports. 

• 1/10 second interrupt generator for use as a timer or Real-Time clock. 

• Audio generator with speaker. 

• Connects to expansion connector with provided cable. 

• Self-contained power supply. 

• Presents only one LSTTL load on the TRS-80 Bus. 
SOFTWARE FEATURES: 

• Software package includes: 

TRS-80 Brickyard Micro-Organ 

Real-Time Clock Comput-a-Sketch 

• Complete programming instructions for BASIC and Assembly Language 
provided. 

All M3 units are factory burnt in and CPU tested. Please specify memory 
size when ordering. Dealer inquiries are invited. . . . 
Ordering: Money Order or Check — we pay freight charges. VISA, MC, or 
C.O.D. - freight added to bill. On charge cards please include complete 
number as well as your complete address. 




MACO MANUFACTURING 

1383 Airways Blvd. • Memphis, Tenn. 38114 • (901) 452-9510 
"TRS-80" is a trademark of Tandy Corp. 
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SOFTWARE 
FOR THE TRS-80* 




16K. AND CAN BE PLAYED 



NOW! 

A LIGHT PEN 

FOR THE TRS-80 

AND 

SOFTWARE 

THAT USES IT! 



QS LIGHT PEN We have IdRpn iheexrellentPhotopoint" light pen and packaged it with our own 
custom software Use the light pen to draw on the video screen, make multiple choice selections, 
or add /ip to your game programs You get Ihe light pen. which plugs into your tape recorder, and 
an instruction booklet that includes the software you need to interface to your own BASIC pro 
grams Our software routines are in BASIC and a simple GOSUB puis the light pen in action These 
routines includp a menu selection" routine and a. "screen location" routine Two BASIC pro 
grams that demonstrate these routines are also included 0ne9V battery required not included 

light Pen - $19.95 

SKETCH 80" hy Bob Christiansen Use Ihe QS light pen to draw figures on the IRS 80 video 
Screen l^un", art' drawn at three times nir |i h in memory and start 

another one Your sketch can be displayed at normal si/e or at the enlarged size at which they 
were drawn Combine two or more sketches on Ihe same screen Ask the compuler lo print out 
the POKE values required lo produce your sketch using BASIC Save your sketches on diskette 
This system program ligures out how much memory your TRS-80 has and allocates storage 
accordingly Requires level II, 16K On Cassette — $14.95 

THE FOLLOWING PROGRAMS REQUIRE LEVEL 

WITH OR WITHOUT A LIGHT PEN 

POKER PETE" by Dave Gubser Play live card 

draw poker one on one against an animated 

PETE Watch PETE shuttle and deal Ihe cards 

He will challenge you with blutts. raises calls 

and folds in this winner take all showdown 

And watch out PETE s got a gun 1 Three 

levels of skill Written in BASIC 

On Cassette — $11.95 

10WBALI POKER by Danny Shea How low can you go 7 It's you against Micro Molly and the 
lowest hand wins That's the rule in lowball poker This version plays the popular Gardena 
California rules Don't take her lor granted — Molly plays an excellent game Written in BASIC 

On Cassette - $11.95 

RUMMY MASTER by Dave Gubser Play rummy against the computer Exceptional graphics 
display your hand. Ihe discards, and the cards thai have been melded You see your opponent 
shuffle and deal out the cards Tested in an arcade, this program was a big hit Written m BASIC 

On Cassette - $11 95 

MATCH CARDS by Danny Shea BANKS HOT by Bob Christiansen Two programs on one cassette 
MATCH CARDS is a concentration type game where you match numbers, letters, or graphic 
shapes For 1 or 2 players Automatic scoring rales your recall ability Written in BASIC 
BANKSHOT is a billiard like game lor those who think they know all the angles Hit the ball into 
Ihe pockel but you must hit a wall tirsl Written in BASIC with machine language subroutines 
Just CIOAD and RUN For 1 or 2 players On Cassette - $9.95 

THE FOLLOWING PROGRAMS REQUIRE LEVEL II. 16K. AND DO NOT USE A 
LIGHT PEN 

FASTGAMMON'" by Bob Christiansen Our popular machine language backgammon game that 
started us in business T he computer plays against you and makes good moves instantaneously 
Option to replay dice rolls trom Ihe previous game An eight page instruction booklet is included 

On Cassetle - $19.95 
On Diskette - $24.95 

DEBUG by Bob Pierce Debug machine language programs by stepping through one Z 80 in- 
struction at a time Relocatable Several display options Multiple break points Modify memory 
and registers On Cassette — $14.95 

Z 80 DISASSEMBLER by Vic Tolomei Decode machine language programs, including TRS-80 
ROM with this Z-80 Disassembler written in BASIC Instruction mode prints out machine code 
and Zilog mnemonics in standard format Or use the ASCII mode which converts machine 
language code to ASCII On Cassette - $14.95 



BBBBB 

BHBSB 




QuaLrry softvv7ir€ ..« 

6660 Reseda Blvd . Suite 105. Reseda. CA 91335 
Telephone 24 hrs 7 days a week (213)344-6599 

HOW TO ORDER: MasterCharge and Visa cardholders may telephone their orders and we will 
deduct $l from orders over $19 to compensate tor phone charges Or mail your order to the 
address above Calilorma residents add 6\ sales tax Shipping Charges Within North America 
orders must include $1 50 tor first class shipping and handling Outside North America Ihe 
charge lor airmail shipping and handling is $5 00 — payable in US currency 

• IRS 80 is * (fKiMMrd trademark ol Undi Corp 
Pholopomt has been Iradrmarlied by Micro Malm 
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UTILITY 



Halve track access time with a software patch. 



QWIKDISK 



Bruce Nazarian, WD8DRK 
GNOME Computerworks 
9918 Lauder 
Detroit, Ml 48227 



While doing my homework 
on the various Disk Oper- 
ating Systems available for a 
new pair of mini-floppy disk 
drives I just acquired, I ran 
across Apparat's NEWDOS and 
NEWDOS + . Each looked like 
an improvement over the TRS- 
DOS 2.2 I was using, so I 
scraped up some money and 
took the plunge. 

NEWDOS made disk opera- 
tions simpler and more reliable. 
But this was not to be its only 
benefit. 

While researching NEW- 
DOS + , I read an article by 
Lance Micklus describing the 
track-to-track access time used 
in TRSDOS and NEWDOS (40 
ms) and how this time could be 
improved by a factor of two or 
four. After reading further, it 
turned out the changes involved 



POKEing new values into the 
DOS from BASIC. The article 
mentioned that a patch to incor- 
porate these changes would be 
available as soon as the author 
had time to work on it. 

The Interim 

In the interim, I tried every- 
thing to get QWIKDISK, as I 
called it, to operate efficiently. 

I wrote a short BASIC pro- 
gram to POKE the values, but 
that meant I had to load BASIC, 
fix the access times and return 
to DOS. 

I then tried converting the 
POKEs into Z-80 machine lan- 
guage and executing the code 
automatically each time the 
DOS booted up. This was much 
faster than BASIC, but still not 
very elegant. 

Then I decided to attack the 
problem from a different angle. 
Why wait? After all, the DOS is 
just a Z-80 machine language 
program, like any other machine 
language program. I had done 
much machine language pro- 
gramming, on 6502 as well as 
Z-80, so I figured, if the guy who 



found the fixes could write a 
patch, maybe I could, too. 

First of all, I used a machine 
language monitor program to 
dump portions of the DOS 
around the fixes. That gave me 
the hex machine code for the 
program at those points. I also 
dumped those same locations 
in ASCII for convenience. 

Next, using Superzap (part of 
NEWDOS + ) I examined the sys- 
tem programs on a DOS disk. 
Since Superzap dumps each 
disk sector in both hex and 
ASCII, I used the ASCII I had 
dumped beforehand to search 
for a character string that was 
identical. 

Examining sector after sec- 
tor, I finally hit paydirt in Sector 
7. This sector Is part of the mod- 
ule called SYSO/SYS. There it 
was, the identical ASCII string! 
Looking at the hex dump of that 
section, I compared it byte-for- 
byte to be sure I had the iden- 
tical code. Then, using Super- 
zap, I carefully replaced that one 
byte with Its new value. Super- 
zap wrote the sector back to 
disk with the new value in place. 

With that sector done, I began 



searching for the ASCII string, 
identical to the second one I 
dumped. I found it in Sector 9. 
Checking against my hex dump 
once more, I ascertained that 
this was indeed the second 
POKE point. Again, I used Su- 
perzap to correct the value in 
that sector to the new one and 
write the sector back to disk. 

Now for the acid test. Would 
the fixed DOS boot up correctly 
from disk? With some uncertain- 
ty I pressed RESET. To my de- 
light the disk bootstrapped at 
normal speed, then took off like 
a buzzsaw when the modified 
program was loaded. 

How to Do It 

Before I explain in detail how 
and where to modify your DOS 
diskettes, a word of warning: Su- 
perzap is a very powerful utility 
and, if used improperly, can eas- 
ily destroy the system informa- 
tion on your diskette. Be sure 
you know how to use it correctly. 

In addition, this modification 
is for •• SYSTEM** diskettes, 
i.e. DOS diskettes only. Ordinary 
formatted data diskettes will 
not have the system programs 



•M7M 
•••71* 
• ■•720 
•••731 
•••7«« 



• M7M 

•■•711 

• •17 2* 

• M73» 

• •17 41 



A847 C3S6 47C3 M47 C337 47C3 5F47 3EJfi .G.VG. .C.7G. .G>. 

F5CD ••46 F1CD 5846 CDP3 45E6 813D C269 . . . F. . XP . . E. . -. . 

463A 8943 32E1 3718 EF»1 1467 44C3 CF44 F:.C2.7 D..D 

C3DF 44C3 B74C C3D2 4C3E D3EF 3EE3 EP(1 . .D. . L.. L>. . >. . . 

718* 444E 414D 4S4E 414D 452F 4SS8 S42E . .DNAHENAME/EXT. 

A847 C356 47C3 M47 C337 47C3 5P47 3EJA. .G.VG..G.7G. .G>. 

P5CD M46 F1CD 5846 CDP3 45B6 813D C265 .. .F..XP..8. .». . 

463A 1943 32E1 3718 EF»1 1467 44C3 CP44 Pi.C2.7 D..D 

C3DF 44C3 B74C C3D2 4C3E D3EP 3EE3 EF»1 . .D. . L . . L> . . > . . . 

7181 444E 414D 454E 414D 452F 4558 542E . . DNAMEHAHE/EXT. 



Fig. 1. Partial dump of NEWDOS, Track 0, Sector 7 showing 
(top) byte #OF before modification and (bottom) the same 
byte after modification to 20 ms access time. Columns at left 
indicate Drive #(0), Track *(00), Sector #{7) and starting byte 
number of each line (00, 10, 20, etc.) 



• M9M M46 CD69 463A ED37 BAED 53EE 37C8 3E1B . F . . F : .7 . . S.7 . > . 

•••91* P5CD 6946 P132 EC37 C9»7 3MS 3ED« 32EC . . .F.2.7 . . 8. >. 2. 

■•■928 37CD P345 CB47 C818 F832 9446 E3C5 4623 7 . .E.G. . . 2.F. .F* 

■•■938 7E23 32C9 467E 2366 6F22 A846 E1E3 CD47 . 12. P. I .. * .F. . .G 

888948 46CD 5544 C5D5 E521 EC37 F336 8811 EP37 P.UD. . . I .7 .6 . . .7 



•88988 8846 CD69 463A ED37 BAED 53EE 37C8 3E1A . F . . F : .7 . . S. 7 . > . 

888919 P5CD 6946 P132 EC37 C9B7 3885 3ED6 32EC . . .F. 2.7 . . 8. > . 2. 

888929 37CD P34S CB47 C818 F832 9446 E3C5 4623 7 . . E.G. . . 2 .F . . Ft 

• 1893* 7E23 32C9 467E 2366 6P22 A846 E1E3 CD47 . *2.F. I . . " .F. . .G 

888946 46CD 5544 C5D5 E521 EC37 F336 9811 EF37 F.UD. . . 1 .7 .6 . . .7 



Fig. 2. Partial dump of NEWDOS, Track 0, Sector 9 showing 
(top) unmodified and (bottom) modified second byte of Qwik- 
disk modification. Same modification may be made to either 
35 or 40 track versions. 
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••0700 


B920 


042C 


7E18 


1871 


2643 


6FCD 


eeo7ie 


3777 


7 96F 


7E32 


ED37 


7 9CD 


3946 


••1721 


3AEC 


3707 


7D32 


E137 


3108 


2100 


■•■7 31 


20FB 


E1C9 


E607 


0707 


07 F6 


C732 


•••741 


C7C9 


CD00 


46CD 


6946 


3AED 


37 BA 


•■•7 50 


C83E 1FF5 


CD6 9 


46F1 


32EC 


37C9 


880761 


F100 


0000 


CDAC 


43CB 


47C8 


18F8 


■••771 


CS46 


237E 


2332 


D346 


7E23 


666F 


• ••781 


E3CD 


4746 


CD69 


46C5 


D5E5 


21EC 


••■791 


EF37 


C1C5 


C1C5 


F318 


030F 


300C 


• 117 M 


F8F3 


0000 


03C3 


A146 


FB7E 


E67C 


• ••7B« 


C128 


23CB 


5720 


13FE 


2028 


11F5 


•••7CI 


43CD 


0046 


3 E0J 


CD5B 


46F1 


10B5 


• ••7DI 


0838 


033C 


18F9 


C1C9 


3E88 


CD71 


fl8B7Efl 


023E 


A8CD 


7146 


0509 


0A12 


3EA9 


•••7ri 


CD71 


4605 


011A 


0001 


0542 


44C3 


•••700 


B920 


04 2C 


7E18 


1871 


2643 


6FCD 


•••71* 


3777 


796F 


7E32 


ED37 


7 9CD 


3946 


•••72* 


3AEC 


3707 


7D32 


E137 


3008 


2100 


•••73» 


20FB 


E1C9 


E607 


0707 


07 F6 


C732 


• 017 48 


C7C9 


CD00 


46CD 


6946 


3AED 


37 BA 


• ••7 SI 


C83E 


mi 


CD69 


46F1 


32EC 


37C9 


181768 


F100 


CDAC 


43CB 


47C8 


18F8 


•••77» 


C546 


237E 


2332 


D346 


7E23 


666F 


•••7 81 


E3CD 


4746 


CD6 9 


46C5 


D5E5 


21EC 


• ••7 90 


EF37 


C1C5 


C1C5 


F318 


030F 


300C 


•117 A* 


F8F3 


0000 


03C3 


A146 


FB7E 


E67C 


0007 B0 


C128 


23CB 


5720 


13FE 


2028 


11FS 


0007C0 


43CO 


0046 


3E1A. 


CD58 


46F1 


10BS 


0007D0 


0838 


033C 


18F9 


C1C9 


3E88 


CD71 


0007 E0 


023E 


A8CD 


7146 


0509 


0A12 


3EA9 


0007 F0 


CD71 


4605 


011A 


0001 


0542 


44C3 



6946 3AED .... 4C...F:. 

3209 436F 7 2.7..9F2.C. 

•12B 7CB5 :. 7. .2. 70. !..♦.. 

4546 AFCB 2EF.. 

ED53 EE37 P..Pi.7..S.7 

CD58 46F5 .> F.2.7..XF. 

3293 46E3 C.G...2.F. 

22A7 46E1 .F* . I2.F.0.. *.P. 

3736 0011 ..GF..F... 1.76.. 

7ECB 4F28 .7 0...OI 

36D* E1D1 P. ...6... 

3EPP 3208 .(I.H.... (..>.2. 

473E 00CB C..F>..XF...G>.. 

460A 011A .8.<.. ..>... P.. . 

18F5 3E88 •>.. .P....>.. .>. 

0047 0139 ,,t BD..G.9 



6 946 3AED ........ *C. .. F: . 

3209 436P 7 2.7..9F2.C. 

002B 7CBS :. 7. .2. 70. !..♦.. 

4546 AFCB 2EF.. 

EDS3 EE37 . . . .P. . Pt .7 . .8.7 

CD58 46P5 .>....F.2.7..XF. 

3293 46E3 C.G...2.P. 

22A7 46E1 . Fl . #2 . F .»..". F. 

3736 0011 ..GP..P... 1.76.. 

7ECB 4F2B .7 0...CH 

36D0 E1D1 P. ...6... 

3EPP 3208 .(I.N.... (..>.2. 

473E 00CB C..F>..XF.. .G>.. 

460A 011A .8.<.. ..>... P.. . 

18P5 3E88 .>...F >...>. 

0047 0139 ..F BD..G.9 



Fig. 3. Full sector dump of TRSDOS 2.2, Track 0, Sector 7. Both 
bytes to be modified are present in this sector and the figure 
shows (top) unchanged and (bottom) changed information. 



on them. 

This modification further as- 
sumes that the SYSOVSYS mod- 
ule will be at the same location 
on each system diskette. If you 
find that the byte at the speci- 
fied location is not what I have 
indicated, don't change it. First, 
make sure you have the right 
track and sector before you alter 
any program bytes. 

For NEWDOS or NEWDOS + , 
the bytes to change are located 
in two different sectors, as de- 
scribed in the story above. First, 
modify Track #0, Sector 7, rela- 
tive byte # OFH (Fig. 1). 

The original value should be 
OBH. This gives 40 ms track ac- 
cess time. For 20 ms change 
this byte to OAH, and for 10 ms 
change it to 09H. 

The second location is Track 



#0, Sector 9, relative byte # OFH 
(Fig. 2). Normally, this byte 
would be 1BH. For 20 ms ac- 
cess, change it to 1AH, and for 
10 ms make it 19H. 

Modifying TRSDOS 2.2 

If you have TRSDOS 2.2, you 
will need the Superzap utility in- 
cluded in NEWDOS + . But, if 
you can acquire it your disk 
changes are easy. 

Both of the TRSDOS changes 
are made in one sector. First: 
Track 0, Sector 7, relative byte # 
52H (Fig. 3). Its 40 ms value is 
1FH. Change this to 1AH for 20 
ms or 19H for 10 ms. Then 
change relative byte #C5H. Its 
40 ms value is OBH. Change it to 
OAH for 20 ms, or 09H for 10 ms. 
That's all there is to it. (Fig. 3). 

It will save a lot of time and ef- 



000700 


B920 042C 7E18 


1871 


2643 


6PCD 


6946 3AED ... , ....*C. .Fi. 


•■■711 


3777 796P 7E32 


ED37 


7 9CD 


3946 


3219 436P 7 2.7..9P2.C. 


010720 


3AEC 3717 7D32 


E137 


3008 


2100 


•12B 7CB5 |,7. .2.71.1. ,*,. 


000730 
0117 41 


20FB E1C9 E607 
C7C9 CD00 46CD 


0707 
6946 


07 P6 

3AED 


C732 
37 BA 






•117 51 


C83E 1BPS CD69 


46F1 


32 EC 


37C9 


CD58 46P5 •> P.2.7..XP. 


•11761 


F100 ~0l00 3AEC 


37CB 


47C8 


18F8 


3293 46E3 7.G...2.F. 


•••771 


C546 237E 2332 


D346 


7E23 


666F 


22A7 46E1 .F». #2. P. 1 . . ".P. 


•117 81 


E3CD 4746 CD69 


46C5 


D5E5 


21 EC 


3736 1111 ..GF..F... 1.76.. 


0007 90 


EP37 C1C5 C1C5 


0018 


030F 


300C 


7ECB 4F28 .7 1...0( 


0007 A0 


P8P3 0000 03C3 


A146 


PB7E 


E67C 




0007 B0 


C120 23PE 2028 


15CB 


5720 


0rp5 


3EPP 3211 .{*..(. .««...>. 2. 


0007C0 


43CD 0046 3E1B 


CD58 


46P1 


10B5 


473E 11CB C..F>..XF.. .G>.. 


0017 Dl 


0830 033C 18P9 


C1C9 


3E88 


CD71 




•117 El 


023E A8CD 7146 


0509 


0A12 


3EA9 


18P5 3E88 .>...P >...>. 


0007F0 


CD71 4605 011A 


0001 


0542 


44C3 


0047 0139 ..F BD..G.9 


Fig- * 


Full sector dump of TRSDOS 2. 1, Track 0, Sector 7. 


Similar to TRSDOS 2.2, relative byte #52 has original value of 


1BH rather than 1FH 


as in 


TRSDOS 2.2. The remaining byte is 


the same in both TRSDOS 


's. 







000000 00FE 11F3 31FC 4121 E242 CD9A 423E 0132 1.A!.B..B>.2 

001111 E137 3A12 4257 1E14 0100 4DCD AA42 2070 .7:.BM H..B.. 

808820 3A10 4DE6 1121 E542 2869 D92A 164D 557C : .H. . ! .B( . . *.HU. 

000030 0707 07E6 0767 0707 845F 01PP 4DD9 CD7S M... 

•00040 423D 2017 CD75 4247 CD75 426P 05CD 7542 B- BC..B B 

000050 6705 28EA CD75 4277 2318 F63D 280B CD75 ..(... B. I ..-(.. . 

000060 4247 CD75 4210 PB18 D5CD 7542 CD75 426F BG..B B..B. 

000070 CD75 4267 E9D9 0C20 14C5 3E01 32E1 37CD ..B >.2.7. 

000080 AA42 200C C11C 7BD6 0A20 02SP 140A D9C9 . B 

900090 21F1 42CD 9A42 CO40 0076 E57E FE03 2808 I.B..B.0 (. 

0001A1 CD33 0023 FE0D 20F3 E1C9 C5CD B242 E1C8 .3.4 B.. 

0000B0 444D ED53 EE37 21EC 37 36 lfiP5 P1P5 P17E DM. S. 71. 76 

• •••CI »P38 FC36 B8D5 HEP 37C5 C118 0B»F 3MA .8.6 7 0. 

••••Dl 7ECB 4F28 P81A 1213 18F6 7EE6 5CD1 CB36 ..0( 6 

•••■El DIC9 1C1F 0317 EB4E 4P20 5359 5354 454D NO. SYSTEM 

••••PI 0D17 E844 4953 4B2I 4552 524F 52(D EBSP .. .DISK. ERROR. . . 

Fig. 5. Full sector dump of BOOT/SYS, Track 0, Sector 0. 
Relative byte BAH is underlined. See footnote for more infor- 
mation on this modification. 



fort if you try both of these ac- 
cess times out first. Some drives 
(Shugart, for example) are not 
capable of 10 ms access times, 
but can take 20 ms. Other drives 
(Percom, M.P.I., etc.) are capa- 
ble of 5 ms access times. 

Try the different times with 
your drives, and then Superzap 
the appropriate values onto your 
DOS diskettes. ■ 

Footnotes 

* Recent Information from APPARAT also 
mentions a third modification that is neces- 



sary for this fix. It involves a change to 1 
byte in the BOOT/SYS module This will 
make the BOOTSTRAP loader work at the 
higher step times also. This change may be 
made to TRSDOS 2.1. 2 2 or NEWDOS. In 
Track 0. Sector 0. change the relative byte 
BAH as follows Retain original value (1FH 
in TRSDOS 2.2; 1BH in 2.1 and NEWDOS) 
for 40 ms step time. For 20 ms. change to 
1AH. For 10 ms. change to 19H 

" Further information also indicates val- 
ues for 5 ms step times (which may not 
work on other than MPI drives). For bytes 
that are changed in the 18H. 1AH. 19H. se- 
quence, 18H will give 5 ms step times. For 
bytes that use the OBH. OAH, 09H se- 
quence, 06H gives 5 ms step time. Both val- 
ues should correlate: If one byte is 1 BH, the 
other should be OBH. If one byte is 1 AH. the 
other should be OAH. Likewise for 19H; 09H, 
and 18H; 08H 



What is..? 

BEYOND A SCOTT ADAMS' 

ADVENTURE ? 



DDYSSEY 

X> ITEMS NOW HAVE 3-D-abil.ty 
#V (Insides, Outsides,etc) 
\# MULTI-PLAYER - up to 12 
•V and they can be friend or foe 
^^UNRESTRICTED COMMANDS 
Wup to full paragraphs! 

COMING SOON... 
Bug Your Dealer ! 



Adventure 

I NTERNATIONAL 

Boi 3435 • I onqwood Fla 327S0 
(30b) 862 6917 
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TUTORIAL 



The solution to a loopy problem. 



The "Next" Trap 



Hubert C. Borrmann 

2840 South Circle Drive $209 

Colorado Springs, CO 80906 



I fell into the "NEXT" trap when 
I tried to run the big ROM and 
RAM test in appendix C of the 
Level II manual. 

Have you fallen Into this 
sneaky trap yet? If not, you sure- 
ly will sooner or later. What as- 
tounds me is, that I have so far 
seen no reference to this, not 
even in the Learning Level II 
book by D. A. Lien. ?NF ERROR 
was looking at me from the 
screen. 

If you want to fix this pro- 
gram, insert the following line: 

280 X-9&NEXTX 

Level II is a good interpreter, 
but reminds me of one of my 
teachers many many years ago 
who had an astounding memory 
for things that should have been 



forgotten. To explain this, type 
Listing 1, RUN and type 10. 

OK, this is the way it should 
work. Now RUN it and type in a 
5. 

NF ERROR 

Unfinished Business 

This is a simple program, con- 
taining three FOR-NEXT loops. 
The first one in line 30 and 40, 

The program then enters two 
nested loops and everything 



works fine until the Variable B is 
checked in line 110; where B 
should be changed from one or 
two for the second pass through 
the B-loop. But the Interpreter 
won't let you do this and out 
executes nine times unless your 
entered number makes you 
jump out of the loop to line 50, 
and the loop will not run its 
course, leaving behind "unfin- 
ished business." (This is what 
the interpreter remembers, but 
should have forgotten.) 



10 CLEAR 200 : CLS 

20 PRINT§ 128, "INSTRUCTIONS • 1" 

30 SI $■" PRESS 'SPACE' WHEN READY" 

40 GOSUB 10000 

50 CLS : PRINTS 512, "INSTRUCTIONS • 2" 

60 SA-640 

70 GOSUB 10100 

80 CLS : PRINTS 0,"AND MORE INSTRUCTIONS" 

90 S1$«"TYPE 'SPACE'-BAR TO CONTINUE, 'E' TO END' 

100 GOSUB 10000 

110 IF S6$-"E" THEN END ELSE 20 

Program Listing 



comes the message ?NF ER- 
ROR IN 110. 

You see, the interpreter re- 
members that unfinished busi- 
ness with Variable A and won't 
accept NEXT B until A is cleared. 
You know that a NEXT state- 
ment will let the program fall 
through if the variable involved 
is larger than the TO figure given 
in the FOR-TO statement. The 
NEXT statement adjusts the 
variable and then makes this 
test. So, fortunately our fix is 
easy for situations where you 
jump out of FOR-NEXT loops. In- 
sert this line in our little pro- 
gram, and we are in business: 

56 A = 999:NEXTA 

Now RUN and type a 5. 

Don't be misled if you enter 
the number 9! It still jumps out 
of the loop! I hope that this may 
clear up some unexplained phe- 
nomena and help you avoid the 
NEXT trap. ■ 



DUSS EXTENDER for TRS-80 



TM 



ELCOMPCO Microcomputer Peripherals 
P.O. Box 6100, Albany, CA 94706 



^•3 



DEALER INQUIRIES INVITED 




Now you can hook up to 
Four Accessories 
totheTRS-80™! 

* with Active Buss Termination 

* Reduces Ringing and Noise 

* Increases Reliability 

$95 available for immediate delivery 

TR5 80*" is o rrodemork of Tandy Cor p 
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I « tTTscsTs » 



lis 1 * ill I 



Murn your Editor Assembler 
into a disk package. This patch modifies 
EDTASM 1.1 & 1.2 under 32K TRSDOS, NEWDOS, 
or VTOS! Features? Add full disk I/O, block 
move, global change, printer pagination with 
optional prompting, sorted symbol table, 
display memory utilization, correct DEFM 
expansion, protect memory, and recover after 
BOOT. From within the EDTASM you will have 
DIR, KILL, £ FREE. This package is a must 
for assembler programmers! Priced at S20. 



Is nlli ii 



Complement your assembly 
language tools with this Z80 disassembler 
which produces screen, printer, or disk file 
output. A 2-pass process provides SYMBOLS 
for 16-bit address and 8-bit relative ref- 
erences. EQUates 6 ORG are generated. New 
version reads SYSTEM programs & displays 
load addresses. Priced at 520 for disk sys- 
tems. A 16K Tape Version (DSMBLR l) is 
avai table for SI 5. 
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: ii liil-s 

more CMD f i les 
transfer to 6 f 
modules wi th of 
PATCH, TAPED I SK 
we 1 1 as adds a 
today! 16K req'd 

(nil 

examine, clear, 
data in memory 
tapes. Disk sec 
for the non-disk 



Now you can append 2 or 
and/or SYSTEM tapes. Perform 
rom disk/tape of SYSTEM/CMD 
fset capabilities. Provides 
, 6 LMOFFSET capabilities as 
few of its own. Get CMDFILE 
. S20. 

All-purpose utility to 

initialize, move, and modify 

Load, punch, verify SYSTEM 

tor I/O. More! S20 (TUTIL, 

user available at $15). 



MISOSYS Department K 
5904 Edgehi II Drive 
Alexandria, Va . 22303 
703-960-2998 
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IF YOUR CUSTOMER 
MAILING 

LIST WZ < 

HAS YOU ^ ^ 
NAILED... 

behind a desk for hours 
at a time because of 
constant updates and 
changes, dial (617) 373-1599 
and we'll explain our Customer 
Control Mail List System that has 670 customers per 
diskette; will store name and address information, 
reference code, plus variable selection codes for each 
customer; will display customer information of a video 
screen, print reports and mailing labels; will sort 670 
names in less than 30 seconds; select, sort, and print 
670 mailing labels in just over 30 minutes; has Partial 
Key Lookup and instantaneous display; has select/sort 
options by record sequence, last name, city, state, zip 
code or reference code; and has a low price of only 
$99.00! 

S&m svsTEms, inc. 

P.O. Box 1225 • 2 Washington Street 
Haverhill, Massachusetts 01830 



#° THE BOOK 

ACCESSING THE TRS-80* ROM 




If you ever do 
Assembly 
language 
programming, 
or you just want 
to know more 
about your 
TRS-80 ROM, 
"THEB00K" 
is for you. 



Volume I will give you access to over fifty ma- 
chine language subroutines in the Radio Shack 
Level II BASIC. It includes information on the nu- 
meric dat?. formats and a commented listing of the 
ROM routines. 

"THE BQJGJK, Volume I", encompasses all arith- 
metic functions and mathematical operations. 
There are separate routines for integers, single 
precision, and double precision numbers and the 
data format for each of these number types is 
explained. The routines that perform ASCII to bin- 
ary and binary to ASCII conversion are identified 
and explained to provide you a means of data I/O. 

A fully commented listing provides the details on 
the step-by-step execution of these ROM rou- 
tines. Although a complete disassembly is not 
provided in order to avoid copyright infringement, 
you can obtain a complete disassembly using the 
disassembler program listed in "THE B00K." 
Volume I also includes a complete, detailed mem- 
ory map of the entire machine and a symbol table 
noting over 500 addresses. 

"THE B00K" will save you hour upon hour of 
assembler program development time. Don't start 
programming without it. 

Order your copy of "THE B00K", today! 



DEALER INQUIRIES INVITED 



Insiders Software Consultants, Inc. 
P.O. Box 2441, Dept. M1 
Springfield, VA 221 52 ^305 

□ Please send me Volume I of THE B00K 
at $1 4.95 plus $1 .50 for postage. 



•TRS-80 Is a trademark of 
Tandy Corp. 



NAME 



CITY, STATE _ 



□ Check payable to Insiders Software Consultants, Inc. 

D MASTER CHARGE MC Bank Code: 

D VISA Exp Date: Card Number: 



Signature 



■ Reaaer Sen/ice— see page 226 
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UTILITY 



Get it with an lnkey$. 



The Competition's Cursor 



R. Daniel Bishop 
Department of Chemistry 
The School of the Ozarks 
Point Lookout, MO 65726 

Surely you know how it is 
when you select one gadget 
or machine from among a vari- 
ety of competing models, wish- 
ing all the while that the model 
you chose had some of those 
dandy options offered by the 
competition. Buying a micro- 
computer requires choices and 
compromises, and even though 
I felt the TRS-80 had enough of 
the options I wanted in a 
microcomputer, I still found 
myself taking sidelong glances 
at that infernal, insistent 
flashing cursor that the com- 
petition offered. 

Well, those feelings are a 
thing of the past, because now I 
can write my own flashing cur- 
sor into TRS-80 Level II BASIC 
programs. 

INKEYS Command 

The key to the flashing cursor 
is the INKEYS command and the 
graphics character printed out 
by the CHR$(143) command. 
While writing the main program, 
you need to determine the 
display position (0 to 1023) 
where the blip is supposed to 
appear each time it is used. 
Assign the value of this position 
to the variable CR and then use 
a GOSUB 1000 to transfer to the 
Flashing Cursor Subroutine 
(Listing 1). 

Each character in the input 
string is stored sequentially in 
the N$(j) array while the counter 
J keeps track of how many 
characters have been typed. 



Once the enter key is depressed, 
the subroutine is transferred to 
the loop (lines 1012 to 1015) 
which adds these characters 
one at a time onto the string 
variable N$, so that the com- 
plete input information can be 
used later in the program. 

CR is incremented by one 
after each keyboard entry ex- 
cept when the backspace or the 
enter keys are depressed (hav- 
ing ASCII values of 8 and 13, 
respectively). The flashing cur- 
sor moves one more space, 
awaiting the next input. 

A simple program, using this 
routine, follows: 



1 CLEAR 500 

2 DIM NI(30) 
5CLS 

10 PRINT'WHAT IS YOUR 

NAME?" 

15CR = 20 

20 J =0 

25 GOSUB 1000 

30 PRINT 

35 PRINT"! AM VERY GLAD TO 

MEET YOU. ";N$; "." 

40 END 



In addition to specifying the 
starting cursor position, CR, in 
the main program, the input 
counter J must be initialized, 
and the array NS(J) is DIMen- 
sioned. The four lines, 2, 15, 20 
and 25, take the place of the 
usual INPUT N$ statement. 
Note that the input N$ is re- 
turned as a character string. 
However, since INKEYS was 
used to construct this character 
string, commas and quotation 
marks can all be used as valid in- 
put. The enter key is the only 
string delimiter that is recog- 
nized. If the input is used as nu- 
meric data, one additional in- 
struction, 27 N = VAL(N$), must 
be inserted. 

If only a single letter or 
number is to serve as the total 
input, as in selecting an option 
from a menu, the flashing cursor 
subroutine can be streamlined 
using only lines 1000 through 
1005 and adding 1006 RETURN. 

The input character is re- 



998 END 




999 J«J-1:IF J>*0 THEN CR-CR-1 :N$ (J ) * 


""ELSEJ=J+1 


1000 PRINTeCR,CHR$(143) 




1001 FOR I«1T05:NEXTI 




1002 PRINT0CR," " 




1003 FOR I«1T05:NEXTI 




1004 R$-INKEY$ 




1005 IF LEN(R$)=0 THEN 1000 




1006 IF ASC(R$)*13 THEN 1012 




1007 IF ASC(R$)»8 THEN 999 




1008 PRINT3CR, R$ 




1009 N$(J)-R$ 




1010 CR-CR+1 




1011 J»J+1:GOTO1000 




1012 N$«"" 




1013 FOR 1-0 TO J-l 




1014 N$=N$+N$(I) 




1015 NEXTI 




1016 RETURN 




Program Listing 1 





turned in this case as R$ rather 
than N$. This requires little more 
memory than INKEYS normally 
uses and provides a far superior 
visual addition to the program. 

Natural Restrictions 

There are some natural 
restrictions imposed by using 
this routine in place of the IN- 
PUT command. The first is that 
the routine slows down key- 
board response. A rapid-fire 
touch typist would go crazy try- 
ing to slow down to the com- 
puter's speed. 

A second limitation is the size 
of the N$(J) array. Obviously, if 
an input string exceeds the ar- 
ray size chosen, the program 
crashes. Also, although the 
same array may be used (with- 
out clearing) for all input in the 
program, it still consumes some 
memory which may be put to 
better use. 

A way around this problem is 
to use the video monitor as the 
array and read these characters 
directly from the display, adding 
them one at a time to N$. The 
routine that performs this task 
is a simple loop using the PEEK 
function. 

1012N$=":CR = CR-J 

1013 FOR I = 1 5360 + CR TO 15360 
+ CR + J 

1014 N$ = N$ + CHRS<PEEK(I)) 

1015 NEXTI 

1016 RETURN 

This loop replaces lines 
1012-1016 in Listing 1. Line 1009 
can be deleted and :N$(J) = " " in 
line 999 should be removed. This 
allows lines 1 and 2 in the main 
program to also be removed. All 
other lines remain the same. ■ 
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SSl *B*^*«» 'm i"' i t 

OF PROGRAMS THAT TREAT YOU LIKE 
AN IDIOT, WASTING TIME & MONEY?? 

RANDOM ACCESS PAYROLL 

• NO Complicated Initialization 

• EDIT & LIST 

• QUARTERLY Reports 

• PROGRAM Loads In Less than 30 sec. 
PAY ANY EMPLOYEE ANYTIME 

• SALARIED OR HOURLY 

• COMPLETE Including EIC 

• PRINTS on NEBS 9040 CHECKS 

• NO SPECIAL PAYROLL CHECKS 

• SPECIAL HOURS-SPECIAL PAY 

• TWO SAVINGS— INCLUDING RIA 

• STATE TAX— WORKMENS COMP. 

• CLASSED BY Occupation or Dept. 

• PAYSTUB Shows Year-to-date 

• No Filenames— All Automatic 

SEND YOUR STATE TAX SCHEDULE 

• We'll Customize for your State Tax 

WRITTEN IN BASIC FOR 
COMPLETE CONTROL 

Documentation & Disk $55.00 

Documentation only $10.00- 
credit to purchase 
CREDIT CARD ADD 5% 
MASS ADD 5% or Exempt number 
Requires: 
Min. 32K-1 Drive-Printer = 50 EMP 
48K-2 Drives-Printer = 100 + 
TEL. 7 AM-9:30 PM EASTERN 
(617)359-2364/6370 

MEDFIELD " 421 
COMPUTER SOFTWARE 

39 GREEN ST., MEDFIELD, MA 02052 



LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step out with 
REMSOFT* Educational Module. REMDISK-1. a 
"short course" revealing the details of OISK I/O 
PROGRAMMING using assembly language. 

Using Ihe same lormat as our extremely popular 
introduction to assembly language programming, 
this "ASSEMBLY LANGUAGE DISK I/O PROGRAM- 
MING" course includes 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-SO* video 
monitor serve as a blackboard tor the instructor. 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing 

• A booklet of comprehensive, fully-commented 
program listings illustrating sequential file I/O. 
random-access file I/O. and track and sector I/O 

• A diskette with machine-readable source codes 
for all programs discussed, in both Radio Shack 
EDTASM and Macro lormats. 

• Routines to convert from one assembler format 
to the other. 

This course was developed and recorded by 
Joseph E Willis, for the student with experience 
in assembly language programming, it is an inter- 
mediate-to advanced-level course Minimum hard- 
ware required is a Model I Level II. 16 K RAM one 
disk drive system 



REMDISK-1 



only $29.95 



^8* 



Dealer inquiries invited 

REMsoft, INC. 

571 E. 185 St. 

Euclid, Ohio 44119 

(216) 531-1338 



^ 



^70 



Includes $1 50 for shipping and handling 
Ohio residents add 5' ?% sales tax 

TRS-80* is a trademark ol the Tandy Corp. 
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SOFTWARE 
WANTED 

If you are an 

inventive programmer 

and could use 

an extra income, 

please call: 

(213)894-9154 

We nre interested in 
(nimesjind Business software. 

Royalty or Gash-out basis. 

DATASOFT "™ 
16606 Sehoenborn St. 
Sepulveda, Ga. 91343 



m 



/VIICRO BUSINESS WORLD 

&M1 (f^lhV^ ot-1660 



SEC Model 5530 spinwriter^ 

for the NEW TRS-80 word processing software 




The SPINWRITER prints up to 55 characters pir 
W«p*£V Mtond. The- unique print element, called a print 
t*t""-- thimble, contains up to 128 fully formed 

characters Print thimbles that contain up 
to 125 characters have a cutout so that 
the last characters printed are fully 
visible to the operator. Corqc 



f DYSAN 


8" (box of 10) 3740/1 sgl side sgt density 


$4.50 ' 


DISKETTES 


8" (box of 10) 3740/1D sgl side'dbl densily 


6.95 


Tki CADILLAC of 
tko Floppy Disks 
it tkoso low prieos 


5" (box of 5) 104/1 solt sector of 107/1 10 sectors 
or 105/1 16 sectors 


4.50 



■PSON TX-BO DOT MATRIX PRINTER 

64 Graphic characters. 7 5 dot matrix 
(7 6 in graphic) double width charac 
ters. TRACTOR and FRICTION feed 
models with interface and cable for 
PET, APPLE. RS232 available at 
OUR low prices. 




TRS SOFTWARE: MICROSOFT ADVENTURE — The sophisticated fantasy/logic 
game ... Oar low prleo $27. 

FILE MANAGEMENT SYSTEM — The professional data base 
software by the business software company . $20. 

16K 4116 RAM lor Ihe TRS-80. APPLE II. PET. ZENITH and other computers 



Prices subject to change without notice. 
VISA and MASTER CHARGE WELCOME. Allow 2 
weeks for cashiers check to clear. 4 weeks for 
personal checks Add 2% for shipping and hand- 
ling. Calif, residents add 6% sales tax. (Sorry, 
no CO ) 
^Copyright 1980 • MICRO Business WORLD 



Phone (213)371-1660 



nrn micro 



BUSINESS WORLD 

H'H H.iwthomi- Boulovi 



^250 



^ Reader Service— see page 226 
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BUSINESS 



A stock and sales plan designed to maximize profit 



Down the Road 



Bill Vick 

3325 Landershire Ln. 

Piano, TX 75023 



As a regional sales manager 
with a major consumer 
products company, I am con- 
stantly challenged with finding 
new and creative ways of filling 
the product pipeline between 
my company and the consumer. 
This pipeline, or channel of 
distribution, consists of depart- 



ment stores. 

The way a store projects its 
future sales and determines the 
stock needed to support those 
sales is a basic financial plan- 
ning concept, applicable to 
large or small businesses. 

Our company now furnishes a 
stock and sales plan designed 
to maximize profits, as well as a 
profitability and return on in- 
vestment analysis. These re- 
ports are generated on my 
TRS-80, and this article covers 
the planning process and its ap- 
plication. 

The Retail Season 

Retailers periodically go 
through a planning process 
forecasting sales for a given 



WHAT YEAR IS THE PLAN FOR (YY) ? 80 

WHAT IS THE CHAIN'S NAME ? ANY STORE 

WHAT IS THE BRANCH/DOOR'S NAME ? MAIN ST. 

WHICH SEASON WILL THIS PLAN COVER (FALL OR SPRING) SPRING 

ENTER THE 79 SALES FOLLOWED BY A COMMA. THEN THE 80 SALES 
79/80 SALES FOR FEB? 11 1,12 2 
79/80 SALES FOR MAR'' 10.9.13 1 
79/80 SALES FOR APR'' 11 5.10.7 
79/80 SALES FOR MAY? 12 4,15 2 
79/80 SALES FOR JUN? 9.2.9.9 
79/80 SALES FOR JLY' 11 6.11.9 

PLANNED SEASON TURN? 1.39 

IF YOU HAVE AN ACTUAL BOM ENTER IT 

IF YOU DO NOT PRESS ENTER ? 

Example 1. 



period of time, called a season. 
Normally a season runs six 
months and is referred to as a 
"spring" or ••fall" season. 
Whether the sales forecast is 
done with linear regression, ex- 
ponential smoothing, S.O.T.P. 
(seat of the pants), or any other 
means, the end result is that 
merchandise must be pur- 
chased in advance of planned 
sales. The control and manage- 
ment of the flow of inventory 
through a retailer determines 
whether or not a profit is made. 

Plans are normally drafted for 
both seasons and the fiscal 
year. A turnover ratio of stock to 
sales is predetermined, based 
on the needs of both the retailer 
and the vendors involved. In a 
simplified way, turnover is the 
number of times an average in- 
ventory will replace itself as it is 
sold. 

As an example, if over a six 



month period, or season, sales 
were $10,000, with an average 
inventory of $8,000, the turnover 
ratio would be 1.25 for the 
season. The turnover ratio is 
critical. Too fast a turnover 
means in all probability sales 
were lost as a result of being out 
of stock, while too slow a turn- 
over can eat into profit and in- 
crease your overhead. General- 
ly, the faster the turnover, the 
greater the profit. 

Two Seasons 

In my business, we work on 
two seasons a year, which go 
from February to July and 
August to January. The average 
inventory turnover is 3.0 per 
year, or 1.4 turns in the spring 
and 1.6 in the fall. 

The following program deter- 
mines monthly stock levels and 
planned purchases needed to 
maintain stock levels. A sales 





1980 STOCK/SALES PLAN FOR ANY STORE - MAIN ST 






FEB 


MAR 


APR 


MAY 


JUN 


JLY 


TOT 


79 SALES 


11.1 


10.9 


11.5 


12.4 


92 


11 6 


66.7 


80 SALES 


122 


131 


10 7 


152 


99 


11.9 


730 


BOM 


52 6 














EOM 


53.5 


51.1 


55.6 


5C3 


52.3 


52 5 




OTR 


13.1 


10.7 


15.2 


9.9 


11 9 


122 




TURN 1 39 




AVGINV52 5 


TOTAL SALES 73 




+ 9% 








Example 2. 
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its. ..SOFTWARE 

SE Search Entry 

SE is i super fast, general purpose information retrieval 
program for the TRS BO" The uses of SE are limitless 
li can be a f i e system, a matching service, an inventory 
control, or i message center. Whenever fast searching ol 
large amounts of data is needed, SE can be your program. 

Written in Z80 machine language. SE compares tens o I 
thousands of characters in a few seconds Simple commands 
add, change, or remove data entries. To search for eniries. 
up to 64 characters can be combined as targets for immediati 
retrieval. SE occupies only 4K, the rest is storage and 
can be saved on tape or disk. 

The tape version for 16K level II. SE2 0. is $24.95, 
while the disk version for 00S up to 48K. SE3 0. is $49 95 
The price includes full documentation 

Other TRS 80 its. ..Products 

COMPU DIET Weight Loss System 

Behavior Mod. Forecast. Database 
MINIVENT Minimal Inventory Control 

1400 items. 16K Level II 
BASICIO Machine Language I/O tor BASIC 

Data and Programs to Tape or Disk 



COMPU DIET 1 2 3*19 95 
MINIVENT 2.0 a $49 95 

Additional Information 



Please send 

SE 2.0. tap.' tf»24 95 
SE30.-I.sk ..-$49 9b 
BASICIO 1 5 ,iH» 

Ha Res add 4' o Sales Ta. Total $ 

CheckfMoney Order VISA MASTERCHARGE 
Card No E«p Date 

Name Bank No (MCl 

Address 

i^300 

its... Information Technology Systems 

POB 2667 Sarasota PL 33578 

(813)366 0064 

•'OS 8C is a t'ddemd'n o 1 Bat - Sn«n a 'a"0y '.oipo'ation 



Leaders nAiir.i»i/i High Game 

Games BOWLING »%* Senes 

Pins Lanes 

Handicaps I F Alii IF Substitutes 

Bhnd Scores LtrtUtlE Poin|s 

Teams STATISTICS ' 



Players 



Averages 



TRS-80* 
32K — DOS — PRINTER 

BOWISTAT I.I will generate 
leani standing sheets suitable 
for posting with full team and 
player statistics, and also print 
league scoring sheets. Printing 
format is optimized for the 779 
printer, but a modification for 
any printer with 80 characters 
minimum per line is provided. A 
wide range of handicapping and 
scoring options meets almost 
any league's requirements. 
Entry of weekly scores is fast 
and simple with extensive 
prompting and error detection. 

Supplied on Diskette with manual 
$49.95 

Manual Only 

(deduetable on purchase 

of diskette) 

$5.95 

Pa residents add 6°c tax 

Datascore " ,93 

P. O. Box 995 Sharon, Pa. 16146 

'Trademark of Tandy Corp 



If you're serious 

about the stock market, 

you need 

Tickertec" 




Watch 48 to 400 of your favorite 
stocks without a 15 minute delay. 

Tickertec'" is a computer program that dis- 
plays the NYSE or AMEX tickertape on your 
TRS 80'" Model I or both exchanges as an 
option on the Model II You see every trade 
as it is reported by the exchange and track 
the last ten trades, fickertape reported 
volume and high and low limits on the 
stocks you are watching Tickertec pro- 
gram prices start at SI. 000 00 with many 
optional features available including hard 
copy and portfolio management systems 
Programs may be purchased tor cash (i e . 
hard dollars) or payment can be arranged 
in the form of discounted brokerage com 
missions (i e . Soft Dollar Software'") Ex- 
change fees are extra. Call for FREE bro- 
chure TOLL-FREE at (800) 223-6642; in New 
York call (212) 687-0705; or circle the 
reader service number 

MaxUle& -^ 

Company Inc. 
6 Easf 43rd Street, NY., NY. 10017 



X? 



1 6K MEMORY 

TMS4116-30JDH 

16Kx1 Dynamic RAMs 

for: TRS-80™, Apple, 

Exidy and others. 

8 $59.00 
8 $74.00 

for Canadian customers 

Add $3 to help cover postage and 
handling. Sask. residence add 
5% sales tax. 

TRS-80™ installation information 
is available on request. 

TAITRONICS ENTERPRIZES 

1263 Wallace St. ^mo 

Regina Sask. Can. 

S4N 3Z2 ph. (306) 527-2088 







V 



%5^ 
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II voir keep this up you II not only navel « mint, but you will 
•bo provide a valuable twice to many, many TRS40 com 

pufeosls HOUSTON IX 

/ rhmk your appioai h is fernrie ,i maga/ine devoted to vo- 
merine othei than the beginrnt has been sorefy needed or, the 
marker lor a longtime PENDLETON, IN 

Along with the Of TUC Newsletter yours is the best I'M seen 
tor important into on the IRS-iH) ATLANTA, GA 

Id like to ut that I m very glad I took the gamble and sub- 
« nbed to the Alternate Source News rf looki like I made the 
nghtchoice Keep up the good work' MAKAWAO. HI 

Or rhe several CKS-SO public arions / lake. I like Ihe Alternate 
Source Newsrbphesr so tar' SIUDKH ITY.CA 

/ was so pleaded at being approached as it I knew something 
about computers and programming, that I not only read every 
word, but am alio enclosing a check tor nine dollars 

C'ANOCA PARK CA 
( lust received my copy ot Issue 12 of" MS I'm really im 
pressed You've done a great iob' WAUKK.AN. II 

Okay. I m hooked Inclosed is my WOO check 

IRANCONIA VA 
If YOU'RE SERIOUS ABOUT PROGRAMMING. VOU SHOULD 
SERIOUSLY CONSIDER THE ALTERNATE SOURCE NEWS. 



I Sounds xood' I n< losed is VI (XI !< 
my subse nption with issue number 

Yeah, it sounds good, but I el like In 
scribe Inclosed is »2 (X) leu thee urn 
NAME 
ADDDRESS 
CITY. STATE. ZIP 



opy before! sub 



MailtotTheAlternaleS.xiree IfltlbAtlaStreet I ansinij MI48H11) 



FINALLY! 

PROFESSIONAL 

PROGRAMMING 

TOOLS FOR EVERY 

BASIC PROGRAMMER 

Do vou write Basic programs with your TRS- 
r30?* Then you know there are times when 
you need to: 

• RENUMBER part or ail of your program. 

• DELETE many lines with one command. 

• APPEND common routines from tape. 

Now, with PROgrammer, you can do all 
these things! And COMPRESS your pro- 
grams to speed execution and reduce size. 
And MOVE blocks of lines within your pro- 
gram quickly and efficiently. Moreover, load 
PROgrammer just once, and these com- 
mands are a/ways available! 

PROgrammer: $25 e>n cassette with complete insi ructions, 
level II requited. Please indicate memory size with order. 
Call! residents add 6° i sale*, tax 'TRS-80 is a trademark ol 
Tandy Corp 

Rational Software ™ 

963 E. California Pasadena, CA 91106 

^241 
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history for the prior period is 
shown, along with the B.O.M. 
(beginning of month) inventory, 
the E.O.M. (end of month) inven- 
tory, and the allowed monthly 
receipts or O.T.R. (open to 
receive). 

Additionally, the average in- 
ventory carried on hand and the 
percent of Increase or decrease 
planned is also shown. It is an 



interactive program designed to 
be used by people not versed in 
either computerese or retailing. 
The advantages of this type of 
planning are many. Not only can 
the retailer's stock and sales 
plans be done with speed and 
accuracy, but a number of 
"what if" situations can quickly 
be accomplished to determine 
viable alternatives. ■ 



Program Listing 



100 CLEAR 1000 : CLS 

110 REM * STOCK AND SALES PLANNING 

120 REM * BILL VICK / 1/30/80 

130 REM * (214) 596-0533 

140 PRINT TAB(20) "STOCK & SALES PLANNING" 

150 PRINT TAB(25)"BY BILL VICK" 

160 PRINT TAB (22) "ALL RIGHTS RESERVED" 

170 FOR T-l TO 500 : NEXT T 

180 DIM M(13), MS(13), E0M(13), ZS(2), 0TB(13), S(13) 

190 RESTORE : CLS 

200 INPUT"WHAT YEAR IS THE PLAN FOR (YY) "; YEARS 

210 YEAR$-RIGHT$ (YEARS, 2) : YEAR-VALI YEARS) : LYEAR-YE 

AR-1 

220 INPUT'WHAT IS THE CHAINS NAME *;CHAINS 

230 INPUT'WHAT IS THE B RANCH/ DOOR ' S NAME ";BRANCH$ 

240 FOR M«0 TO 12 : READ MS (M) : NEXT : REM * READ IN 

MONTHS 

250 DATA JAN, FEB, MAR, APR, MAY, JUN, JLY, AUG, SEP, 

CT, NOV, DEC, JAN 

260 PRINT'WHICH SEASON WILL THIS PLAN COVER (FALL OR SP 

RING) "} 

270 GOSUB 820 : REM * INKEY SUBROUTE 

280 IF KBS»"S" THEN PRINT'SPRING" ELSE PRINT'FALL" 

290 PRINT 

300 IF KBS-"S" THEN SB-1: SE-6: S-l: GOTO 330 

310 IF KB$»"F" THEN SB-7 : SE=12: S-2: GOTO 330 

320 IF KB$<>"S" OR KB$<>"F" THEN CLS: GOTO 260 

330 PRINT'ENTER THE ";LYEAR;" SALES FOLLOWED BY A COMMA 

, THEN THE ";YEAR;" SALES" 

340 FOR T-SB TO SE 

350 PRINT LYEAR; "/";YEAR; " SALES FOR "»M$(T)j 

360 INPUT S(T) , M(T) 

37 ST-ST+SIT) : REM * TOTALS SALES THIS YEAR 

380 TS«TS+M(T) : REM * TOTALS SALES LASY YEAR 

390 NEXT 

400 AV-( INT(TS-ST)/ST)*100 : REM * PERCENT INCREASE 

IN SALES 

410 PRINT : INPUT'PLANNED SEASON TURN";TURN 

420 PRINT" IF YOU HAVE AN ACTUAL BOM ENTER IT." 

430 INPUT" IF YOU DO NOT PRESS ENTER " ; BOM 

440 AS»TS/6 : REM * AVERAGE MO SALES-TOTAL SALES/SI 



1*1.1 llt.t 

ttl.l III. I 

111. I III. I 

AVG INV Mi. I 



•••.I llt.t 
til. I llt.t 

TOTAL SALES 



COMPUTES END OF MONTH 

• TOTALS EOM FOR SEASON 
REM * COMPUTES ENDING PERIO 

"(CHAXNti 



X MONTHS 

450 AI-TS/TURN : REM • AVERAGE INVENTORY-TOTAL SALES 

/PLANNED TURN 

460 IF BOMO0 THEN 470 ELSE 480 

470 IF M(SB)>AS THEN BOM= (M (SB) -AS) +AI ELSE BOH»(AS-«(S 

B) ) +AI 

480 Z$(l)-" FEB MAR APR MAY J 

UN JLY TOT" 

490 Z$(2>«" AUG SEP OCT NOV D 

EC JAN TOT" 

500 NS-" EOM III. I III. I III. I ttl.l III. I 

tll.t 
510 BYS-" OTR tit. I ttl.l llt.t ttt.t III. 
t ttl.l" 

5 20 OS-" BOM llt.t* 
530 RS-" It SALES ttt.t 

ttt.t ttt.t" 
540 LS-" It SALES ttt.t 
ttl.l ttt.t" 

550 OS-" TURN It. It 
ttl.l +111%" 

560 FOR T-SB TO SE-1 : REM 

INVENTORY 

570 EOM(T)-(M(T+l)-AS)*AI 

580 EOM-EOM+EOM(T) : REM * 

590 NEXT 

600 CN-(AI*7)-(BOM+EOM) 

D INVENTORY 

610 EOM(SE)=CN 

620 YEAR-YEAR+1900 

630 CLS : PRINT YEAR;" STOCK/SALES PLAN FOR 

";BRANCHS 
640 YEAR- YEAR- 1900 
650 PRINT 
660 PRINT Z$(S) 
670 PRINT 

680 PRINT USING LS; LYEAR, S(SB), S(SB+1), S(SB+2), S(S 
B+3) , S(SB+4) ,S(SB+5) , ST 

6 90 PRINT USING RS; YEAR, M(SB), M(SB+1), H(SB*2), M(SB 
+ 3), M(SB+4), M(SB-fS), TS 

700 r-RJNT : PRINT USING OS; BOM 

710 PRINT USING NS; EOM (SB), EOM(SB+l), EOM(SB+2) , EOM( 

SB+3), EOM(SB*4), EOM(SB+5) 

720 PRINT : PRINT USING BYS; MlSB+1), M(SB+2), M(SB+3), 

MlSB+4), M(SB+5), M(SB) 
730 PRINT 
740 Al-(EOM+EOM(SE)+BOM)/7 : REM * AVERAGE INVENTORY 

750 PRINT USING QS ; TURN, Al , TS , AV 

760 PRINT : GOSUB 840 

770 PRINT" DO YOU WANT TO TO PRINT THIS (Y/N) " 

780 GOSUB 820 : REM * INKEY SUBROUTE 

790 IF LEFTS (KBS, 1)-"Y" THEN GOSUB 850: GOTO 620 : RE 

M « IF YES LPRINTS 

800 IF KBS-"N" THEN 190 : REM * IF NO RERUNS PROGRAM 

810 IF KBSO'N" OR KBSO'Y" THEN 770 

820 KBS-INKEYS : IF KBS-"" THEN 820 ELSE 830 : REM * 

INKEY ROUTINE 
830 KB-VAL(KBS) : RETURN 

840 POKE 16414, 88 : POKE 16415, 4 : RETURN : REN • L 
PRINT TO PRINT 
850 POKE 16414, 141 : POKE 16415, 5 : RETURN : REM * 

PRINT TO LPR1NT 




TEACH YOUR 
CHILDREN 

15.95 Each— Two For $11.00 
ALPHA — Alphabet recognition for 

pre-schoolers 
SIGMA — Addition problems for 

Grades 1-3 
SIGMA-EX — Addition problems for 
the younger or slower 
learner 
SPE_L — Spelling practice for 
Grades 2-4 



A computer in for more than bumnem or game*. 



Level II — Minimum 16K 

Mercer Systems Inc. 
87 Scooter Lane >^104 
Hkksvllle, N.Y. I 1801 



THE OMMJCMtfT THING 



Mod. I SC-RO 



* G'M- <>~~t *•» *• —• V* 

.CI »"* IMiu-lli 



LJ 



p~ 'va*— •? 



c»-»o «».*««• 



L i s t $ 7 95 ( A ^ii , .. 00 J^.tr^ , i > - -u • -'-'—) 



FEATURES: 



• >m^...4 — filiililil 

• i-s.-,.. earn >.t » -, 

AVE 



ORDER NOW 

74 MOUt 

PH 40l-»4»-U65 



»ueio-yioio ststimi 
140S IMMHl «... 
•■■> !••«. C» «S13] 



ENGINEERING SOFTWARE 
•■■>. ■ SUPERIOR 

ili ' . i ■''■-:■ : ■ , ■ - 

ilRi,C" u R» k M» - H'i ANA.'SiS PROGRAM 



iff-IiON I'HOPIHMS I'rtlil.HAW 



LEISURE PROGRAMS 

MWline SECRETARY Lit your computer tally (MS, total pins, 
games won/Ion, hi-10.hi-30.men and woman hMO.h i-30 Swatch 
and handicap. Ian* assignments with individual data, and next 

week's lanes 32K. Levef II. one disc 14. B 

Lite 7.4 A mathematical simulation ol cell colony evolution at a rate 
ot 96 generations per minute by John Conway Patterns can be 
stored on disc or tape lor recall at any time. Program cm also be 
slowed to 1<3 normal speed or paused indefinitely for closer inspec- 
tion 4K. Level II Tape. S.N Disc.T.N 
TUMUNG CMOS Ma mnd-cnaMnging mam. memory, and 
word sJuli problems with the tun. competition, and kick ol an 
MRkM casino- style game ot cards Pyramid your skits into imagi- 
nary big-money winnings m the winner's ordi 
IK. Level II Tape I.N Disc K.N 

^403 ^ajNl^ijj^ijj^ijj^ijj^Bijiw. 

Postage paid 
Missouri resi- 
dents add 4V«<* 
sales tan. 

Write 

mnmmror 

intormaton 
about marketing 
your 
lOfTWARE. j 



UPERIOR 
OFTWARE 

INC 

I' b()X 11676 
KANSAS CI TV MO 64136 
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♦♦SPECIAL* 'SPECIAL** 

TRS-80 ADD ON DRIVES 

IMMEDIATE DELIVERY 



SINGLE SIDED $225.00 
DOUBLE SIDED $345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOUBLE SIDED $485.00 

INCLUDES: 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD's 



I 



2 INTERFACE, INC '*« 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



CHALLENGING 
NEW— EXCITING 




AND NOW A SPECImL GAME OFFER 

WAR GAME PACKAGE 

• BLACK KNIGHT A TRS-80 Level II 
I6K Basic cassette game with sound A 
super dungeon game in a maze com- 
plete with traps, treasures and monsters 
You will never be bored with over a MIL- 
LION randon dungeons. (KB- 1) $7.95 

• ACTION PACKAGE— One TRS-80 Level 
II Basic cassette with TWO new games: 

1 ) BOMBER- Taking off. dodging obsta- 
cles, bombing largest, and landing safe- 
ly, will require your skill in the pilot's 
seat. 

2) TORPEDO— You II have hours of fun 
trying to torpedo a fleet of assorted 
deadly enemy ships ( AP- 1 ) $8.95 

• * Both games with graphics tv sound * * 

IAST DELIVERY 

(PA resident*— add 6% tax) 

Srnd your chftk or money ordrr now to. 

IMS Corp. Box 18083 " 249 
Pittsburgh, Pa. 15236 










A* 



<*** 






Presents: 

TRAKCESS! 

by: Roxton Baker 

• Most powerful disk utility vet ' 

• Smart'' DUPl '(.Aft command analyzes every tract' 
U drives) 

• Super Pencil type fditmg' 

• ReadWnte I (/;( ( reate— anv-tratk or sector, standard 
or not' 

• A ureal 100/ tor learning about disk strut tures - includ- 
ing the former t\ little documented miu' 

• fingertip control <>' all dnk tunitxyns on I 4 drives 

• Recover damageil disks Oddball tiacks and sectors 
dont tare it leed it TR.SDOS. ( P K1 protected disks 
almost anv thing' 

• live it to 1 rejte \jHK.rj/ diski interai tiselt ' 

An experiment! 

An experiment to make this incredible program 
available to all Add I < ent lor eai h 1 opv lup to S) you 
want to make ami resell lor sour inends \\ e license sou 
Ihe idea is to make TR AKCfSS available to eservone who 
needs if Apprec iate this etton' MjI p if a success — OroW 
novs ' J 24. 9 5 on l~)isk Trakcess is over 2 1* o' code 'f re- 
quires -WJ* to run Handles ans number 0/ tracks 

MC/VISA/COD-Add $1.25 

Phone: 517/485-0344 

TAS, 1806 Ada, Lansing, Ml 48910 



Let us know 8 weeks in advance so that you won't miss a single issue of 80 Microcomputing-H 

Attach old label where indicated and print new address in space provided. Also include your I 
mailing label whenever you write concerning your subscription. It helps us serve you promptly. 
U Address change only I ..] Extend subscription 3 Enter new subscription I 
l. 1 year $18.00 D Payment enclosed U Bill me later | 



// you have no label handy, print OLD address here 



print NEW address here 



I 



od Name. 



Name 



Address 



£ City. 



State 



Zip 



Address 
City 



State 



Zip 



80 MICROCOMPUTING P.O. Box 981 • rarmingdalo NY 11737 



from ELCOMPCO 

DUAL ODSCC DIROVE CASE CCDT 

for Shugart, MPI, & other minis 



^63 



includes 

• CHASSIS 

• PLEXIGLASS COVER 
•ALL PARTS POWER SUPPLY 



Easy Assembly (1-2 hrs.) 

Enough Power for 2 Mini Drives 

use one now— one later 

$125 




COMPLETED UNIT 



H 



(Disk Drives & Connecting Cables— extra) 



Block off for Drive— $5 extra 

DEALER INQUIRIES INVITED 



ELCOMPCO 

Microcomputer Peripherals 

Post Office Dox 6133 MS 



C.O.D. Albany CA 04706 



•Reader Service — see page 226 
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GAME 



A return of serve from the bouncing dot. 



Ping-Pong 



Ronald Moehlis 
3621 Clearview Dr. 
Cedar Falls, IA 50613 



This article contains five 
short programs to 
demonstrate the SET. RESET, 
POINT and INKEYS features of 
the TRS-80 computer with Level 
II BASIC. The sequence of pro- 
grams begins with a dot moving 
across the screen and each 
subsequent program adds addi- 
tional instructions until you find 
yourself playing pong. 

Program Listing 1 moves a 
dot horizontally across the 



1 


REM PROGRAM 1 


2 


l£M MOVEMENT OF A DO"" 


5 


~LS 


10 


X-0 


20 


S£T(X,25) 


30 


FOR 1-1 TO 5: NEXT I 


40 


RESET (X, 25) 


50 


X-X + l 


60 


IF X>127 THEN X-0 


70 


GOTO 20 




Program Listing 1. 



screen. To plot a point with co- 
ordinates (X,Y) use SET(X.Y). The 
X value must range from to 127 
and the Y value from to 47. 

Statement 30 displays the dot 
before it is turned off by the 
RESET in statement 40. State- 
ment 60 determines if the dot 
has reached the right edge of 
the screen and moves it back to 
the left edge. 

Program Listing 2 adds two 
vertical "walls" in statement 6. 
When the dot reaches a wall it 
bounces in the opposite di- 
rection. Line 60 checks for this 
and line 68 changes the direc- 
tion. Line 60 could be 



IF PCMNT(X,2S) THEN 68 



which demonstrates the POINT 
feature. If the wall is directly 
ahead of the dot POINT(X,25) is 
TRUE; otherwise it is FALSE. 

Program Listing 3 moves the 
dot diagonally and bounces it 
off walls in a rectangular box. 
Line 6 is modified and line 11 is 



1 REM PROGRAM 2 




2 REM OOT BOUNCING OFF WALLS 




5 CLS 




6 FOR y-0 TO 47 :SET(0,Y) :SET(127,Y> 


next y 


7 C-l 




10 X-l 




20 SET(X,25) 




30 FOR 1-1 TO 5:NEXT I 




40 RESET(X,25) 




50 X-X+C 




60 IF X>126 OR X<1 THEN 68 




65 GOTO 20 




68 C--C 




70 GOTO 50 




Program Listing 2. 





added to provide the other walls. 
Since the dot now moves In two 
directions, the position variable 
Y and its increment variable K, is 
added to the program. 

The paddles which can be 
moved to deflect the dot, are 
added in Program Listing 4. Also 
INKEYS is added in statement 
41 to allow real-time paddle 
action. 

The O and L keys control the 
right paddle, while Q and A keys 
control the left. Statements 100 
and 120 move the right paddle 
and statements 130 and 140 the 
left paddle. 

Variable O is the Y value of 
the upper edge of the right pad- 
dle. L is the Y value of the lower 
edge. Q and A serve the same 
functions for the left paddle. 
Lines 55 and 63 determine if the 
dot has hit a paddle. If so, posi- 
tion variables X or Y change. 



Program Listing 5 is the sim- 
ple Pong game. Statements 53, 
54, 60 and 61 determine if the 
dot is beyond the paddle. If so, a 
point is added to either 
score— variable RR or LL in 
lines 80 to 90. Now line 12 pro- 
vides for a dot to appear at ran- 
dom from the top wall after a 
score. 

Note that in the programs 
with the paddles, the movement 
of the dot is slower. This is 
because statements are ex- 
ecuted to move the paddles. 

More elaborate Pong pro- 
grams can, of course, be writ- 
ten, but this set of programs 
demonstrates the idea to a 
beginner. ■ 

Note: Sound effects can be add- 
ed to Pong using Babybeep by 
Dennis Kitsz. See 80 Microcom- 
puting, April, 1980. 



1 REM PROGRAM 


3 








2 REM DOT BOUNCING IN A 


RECTANGULAR 


BOX 


5 CLS 










6 FOR y-9 TO 39:SET(0,y 


:SET(127 


Y> 


NEXT y 


7 C-l 










8 Y-10 










9 K-l 










11 


FOR X-l TO 


126 : SET (X 


9) :SET(X 


391 


:NEXT X 


12 


X-l 










20 


SET(X,Y) 










30 


FOR 1-1 TO 


5: NEXT I 








40 


RESET(X,Y) 










50 


X-X+C 










51 


y-y+x 










53 


IF Y<39 AND y>9 THEN 


60 






57 


GOTO 66 










60 


IF X>126 OR X<1 THEN 


68 






65 


GOTO 20 










66 


K--K 










67 


GOTO 51 










68 


C--C 










70 


GOTO 50 














Program Listing 3. 
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1 


?EM PROGRAM 4 








2 


*EM DOT 30UNCJNG IN A 


RECTANGULAR 


BOX HTfB PADDLES 


3 


J-20:A-25 








4 L-25:O-20 








5 CLS 








6 FOR Y-9 TO 39:SET(8,Y 


:SET(127 


Y) : 


NEXT Y 


7 C-l 








8 


f-10 








9 


C-l 








10 


POR 1-20 TO 25:SET(7 


I) :SET(120,I1 (MBIT I 


11 


FOR X-l TO 126:SET(X 


9» :SET(X 


39) 


:NEXT X 


12 


X-l 








28 


SET(X,Y) 








30 


FOR 1-1 TO 5:NEXT I 








40 


RESET(X,Y) 








41 


AS-INKEYS 








42 


IF A$-"" THEN 50 








44 


IF A$-"0" THEN GOSUB 


100 






45 


IF AS-"L" THEN GOSUB 


120 






46 


IF AS-"Q" THEN GOSUB 


130 






47 


IF A$-"A" THEN GOSUB 


140 






50 


x-x*c 








51 


y-v+K 








53 


IF Y<39 AND Y>9 THEN 


6tf 






55 


IF POINT(X.Y) THEN 


>6 






60 


IF X>126 OR X<1 THEN 


tfl 






63 


IF POINT(X.Y) THEN 


38 






65 


GOTO 20 








66 


K — K 








67 


GOTO 51 








68 


C—C 








70 


GOTO 50 








100 HESET( 120,1.) : O-O-l: 


L-L-1:SET 


(121 


,0) : RETURN 


120 RESET(120,O) :0-0*l : 


L-L+1:SET 


(121 


,L) :RETURN 


130 RESET(7,A) :0-0-1:A- 


%-l:SET(7 


• Q) 


RETURN 


140 RESET(7,Q) :si-U+l:A- 


fc+l:SET(7 


,A) 


RETURN 




Program Listing A 


. 





1 REM PROGRAM 5 

2 REM PONG 

3 O-20:A-25 

4 L-25:O-20 

5 CLS : LL-0 : RR-0 : PRINTS 1 32 , LL; : PRINT3186 , RR 

6 FOR Y-9 TO 39:SET(0,Y) :SET(127,Y> :NEXT Y 

7 r-i 

8 PRINTS 58, "PONG"; 

9 K-l 

10 FOR 1-20 TO 25:SET(7,I) :SET(120,I> :NBXT I 

11 FOR X-l TO 126:S£T(X,9) :SET(X,39) :NEXT X 

12 Y-10:X-RND(100)+10 
20 SET(X.Y) 

30 FOR 1-1 TO 5:NEXT I 

40 RESET(X,Y) 

41 AS-INKEYS 

42 IP A$-"" THEN 50 

44 IF A$-"0" THEN GOSUB 100 

45 IF A$-"L" THEN GOSUB 120 

46 IF A$-"Q" THEN GOSUB 130 

47 IP A$-"A" THEN GOSUB 140 

50 x-x+c 

51 Y-Y+K 

52 IF Y<39 AND Y>9 THEN 60 

53 JF X>122 THEN 90 

54 IF X<6 THEN 80 

55 IF POINTU.Y) THEN 66 

60 IF X>122 THEN90 

61 IF X<5 THEN 30 

63 IF POINT(X.y) THEN 68 

65 GOTO 20 

66 K--K 

67 GOTO 51 

68 C—C 

70 GOTO 50 

80 RR-RR*1:IF RR>15 THEN 96 

85 PRINT0186.RR; :G0T012 

90 LL-LL*1:IP LL>15 THEN 96 

95 PRINT*132,LL;:GOT012 

96 PRINT#970,"":INPUT"PLAY AGAIN";BS 

97 IF LEFT$(B$,1)-"Y" THEN 5 ELSE END 

100 RESET(120,L) :0-0-l:L-L-l: SET (120,0) : RETURN 
120 RESET(120,O) :0-0*l : L-L+l :SET( 120, L) :RETURN 
130 RESET(7,A) :0-g-l:A-A-l:SET(7,0) :RETURN 
140 RESET(7,U) :0-W*l:A-A*l:SET(7,A) :RETURN 



Program Listing 5. 




Meta-Trek! 

by: Brandon Rigney III 

A space game like no other! M eta-trek is not 
a cassette game loaded to disk — »t <s written 
and only executes on disk! Requires 32K. 
Features include: 

— Unique graphics as demonstrated by Mr. 
Rigney's past projects 

— Machine language patches tor speed 

— A lb by 16 environment 

— An on-board computer vaguely resem- 
bling an advanced TRS-80 with it's own 
special commands 

— Well documented users manual 

— A modified video and keyboard driver 

— Special routines for graphics and passing 
information during program chaining. 

— Source code for Z-80 routines available 
separately from the author 

M eta-trek comes on disk for $19.95 

COD/BAC/MC add $1.25 

Phone: 517/487-3358 or order from 

TAS, 1806 Ada, Lansing, Ml 48910 



Q W R D F R«\A TTERRBGCYPQGZIVJBPCEB 
S H N B T X A D\PSF REEIDEASEEDSRPVYXXON 
VLTWGYROS GSR\E DPVJKLMRHECTVXHNAFH 
BJELFEQAZ G Z\X? CRYPTOUPZAXZQOEJTS 
ZDQINKFSNAG TNhsL GFJSEYWTVNPFJVZVC 
BVLFGULMNSNE K\0\T TSCYMBCGWBQOFMPO 
UOVZKBFIOEPUY AV^E XMOLERZJXACHYRU 
PKBMYUCWOCGLDMRXSEWMCZTIONGULYK 
ZMHOUPXBLKACAPJJUKBFLIPCNEFQAFE 
JWTAYCJGWHETMNHAQZQJLOWERCASETH 
HRSSKYCDGCBOAPTGTHTXTPMLEILRETQ 
EYINDLXXCBCVXDZHOPRYVYPRVAONTOl 

FREE IDEA SEEDS f" 
Have you ordered yours? If not, you better reconsider. More 
than 5M0 happy subscribers think you don't know what you are 
missing. These are FREE programs for your TRS-80 and all you 
have to do to get them Is send us a legal size SASE. That Is 
all there Is to It. Slmple7 You bet I Every month there's a 
new program and you really don't want to miss any of them I 
When you stop and think about It there »f only three ways to 
build your software library. One way Is to write the program 
yourself. Another way Is to purchase programs. The best way 
Is to have the programs given to you and that Is Just what we 
are doing I All FREE IDEA SEEDS are our own original programs 
and we want you to have them to use, rewrite, and expand. 
Send your legal size SASE to: 
CECDAT, Inc. ^ 62 PO Box 8963 Moscow, ID 836*3 
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SORTFIIE, A PROFESSIONAL SORT . . . 



* BASIC program with assembler routines 

* Internal sort time of H seconds 
for 500 mult i -keyed items 

* Any combination of data types and 
ascend-descend directions for keys 

* Six output options: 

a) New data file 

b) New data file with selected 
and/or rearranged data fields 

c) Tag file (keys ♦ record pointers) 

d) Pointer file (record pointers only) 

e) Data records displayed on screen 

f) Data records printed on printer 

* Runs with 1 disk and 16K memory 

* Sorts files too large for memory 

* Free "SEEFILE- utility included 

. . . at O. hdrfcvt pAiM.1 



Diskette: 
Cassette: 
Documentation: 

SOFTWARE 



S23.9S 

$19.95 
S3. 00 (refundable) 



• 399 
E F F I C 



E N C Y 



TI00 Stanford Avsj. St. Loul», MO 63130 



For Quiz Kids and Card Sharks 
MOTIVATIONAL NEW 2-PLAYER 



TUMBLING 
CARDS" 



3 QUIZ CATEGORIES. . . 

Elemantary ¥ath*Spel1ing*Geoflnphy 
2 GAMES IN 1 . . . WitJi Culno-Sty It card Competition 

A great new family game tor ta0» end adults Met mlnd-cfUiing.ng 
mjfh. memory, and wort she problems wWi the tun. compMtlon. 
and kK* of an excUng game ol cards Pyramid your skits into 

imjflinjr»&ig-monay winnings -lira*™* 5 circle level II. 16K. 



ONLY 



OFTWARE 

INC 

P l) BOX 116Tb 
KANSAS CUY M0 64138 



8 



95 



• 403 



Postage Paid 
Missouri residents 
add *Vi% (40c) 
sjieslu FormartW 
disc price. II. M. 
Missouri residents 
add 49c sales tu 



THE CQNP-CflSE 




ATTACH* »TVLE CASES K* CASWVIPIG A-rV I • 

COISPUTt.*. MIOMUUAIIM LUC*.ACt.COPIST»UCT»Of» 

COWU1EK I UPAWMOMOWT I API HI CORDi ■ 0« PIS' 

OPIO CAS* fOII #*Of11lu« *IIM T»T«A SPACI FO» MOW" If « 

MONTEII.NfVf.il A *•> I •■' - "I lUUIPiAINI IPOPH.ASE.SIMI 

REMOVE COVES. CONNfCT POWER AND OPf * « I 

REPLACED AND LOCKED EOS SJCURITT WIINOUI DISCONNECII 

CABLES. OPTIONAL RE MODULATOR CONVERTS ANV TV SET INTC 

MONITOR MARINO IT UNNICI SSARV TOCARRT MONITOR. 

RS20I TRSaOConp»U'<»« .110* 

RS202 IRS-BO Mo~lo. CAM ** 

KUO] IH l XIIP. . —■ 

P402 li~ Prtalo H Cam 
CC»0 PU4<>— t AimMC— « 



CariPUTEH CASE CQflPflhv^ 

»650 IflWAM MOUND CT . COLUMBUS. OHIO m !fl^ 
l6l4)S6a*464 4J2H t»SB 



HEATH H14 
TRS 80 

NO SOFTWARE 
REQUIRED 

Serial interface mounta inside and ia powered by 
expansion interface. Connects at parallel printer 
pert. Easy installation. May ba usad externally but 
raqulras .5 V and ./- 9 to 12 V. 

Uaea printer driver in Laval II ROM. No aoftwara 
driver needed in high RAM. No mora aoftwara 
compatability problems. 

a RS-232-C Interface Fr*m for Other L Jaaa a 

a Baud Rata Adjuetsole From 1200 to 4800 a 

a Handshaking Prevent* Loat Charactara a 

a Output Maata CIA RS-252-C a 

May ba usad with other aarial printars which send 
Una Feed aftar Carriage Return. Data format ia 1 
Start Bit, 8 Data Bits, 2 Stop Bits. 

-— Ordering Information --- 

Kit With All Parts $ 29 . 9 5 

Pnntad Circuit Board With Inetructione 12.95 

Assembled & Toated With 90 Day Warranty 44.95 

Pleess Include $1.50 Shipping and Handling 

(NOTE: RS-2J2 Connector Not Supplied) 

SPEEDWAY ELECTRONICS 

1J5» Auburn 

Spaadwey, Indiana 46224 



PHONE (317) 925 0496 
MASTER CHARGE VISA 



^275 



INTERACTIVE 
FICTION 

Tbe Literature of the Future- 
Here Today 

If you like fiction you 'II lore 
Interactive Fiction — tales told on a 
computer, so that you, the reader, 
become a character in the story! 

For TRS-80 uitb DISK and 32K 
(TRS-80 ti a trademark of Tandy Corp) 



NIXON'S 

FAVORITE 

TAPES 



Vsli 



BLANK CASSETTES 
PREMIUM GRADE C-20'S 
5 SCREW HOUSINGS 

aQ£ea10/$8" 100/$ 75^ 

w ^ ORDERS UNDER $20 

ADO $2- IN OHIO AD05-V2%TAX 



JOHNSON 

DATA PRODUCTS 

P.O. BOX 17176 ' 22< 
CLEVELAND, OHIO 44117 



Six Micro-Stories 

A good introduction to Interactive Fiction. 
Become a financial tycoon, a WW -II spy. and 
more . . . % 15.00 

His Majesty's Ship "Impetuous" 

You are tin ? captain of a ship- of- tbe- line in 
the glorious days of fighting sail $20.00 

Two Heads of tbe Coin 

You are confronted uitb a psychological 
mystery that taxes your imagination to tbe 
utmost. . . 120.00 



ISTERACTIVE FICTION 
BOX 603 
INVERNESS CA 94937 

(Calif, residents add 6 % tax) 



^429 



BIG 48 INCH SCOTTSDALE 
5 SPEED CEIUNG FAN 

• WoodBlodes 

• Antique Brass Trim 

• FullS-Ysor 

WOaTCMlty 

• No Plastic Parts 



$99 



LIGHT OPTIONAL 15.00 
USE YOUR CEILING FAN WINTER 
AND SUMMER. VARIABLE SPEED 
FANS LIKE THIS CAN BE SET TO 
TURN SLOWLY AND RECLAIM LOST 
CEILING TRAPPED HEAT. 



American Fan Distributors 




118 So. Mill St. 

Pryor. OK. 74361 

918-825-4*44 



^396 



MFG. SUGG. 
LIST 179.95 
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*e CHW *0 LUC «e«€f'WlJ*X'»«W»?TVW--(Tt V. eb'M.'eH 



ja «i4 . -T2 80. « 121. *M IE Ckarec'«M »»r Iim 
* IMP* HB M«B.a»» JeWUlP <W 



Itifi 



M.I tM«T 

fni'if lunlm C*lt 

RatallM WIO MB LlM fri.tsf II 

Ultrfeci C*U 



tutu 

our price 



m n 

•710. oo 



HOTF THI - EMTIFE rtf MrV FEfl 

cifni'iTcr on tmc E*:r ii 
LIME M iiitef 

MUS ••JDIO.-UIDCO SYSTEMS ^146 
2483 RuiunnuaU Dr. 
San Joee. Cn 99132 

PH. 40O-94A-I2S3 



We've got the FASTEST!!! 




|J< ■ ■ ■ ■ ■"!■■ 



n 

ltd 



GUDERSJ. SfWCESHIPS at 1800* . 
Litany* (MM* Gmk if Life is mmu 

TW ant mVmkmI Lit* pity** •»»! iim '•" •*'**■ 41 ■ (4 Ml 
■ 12 P>tff*ffl«it4 m"*"" * >9KM< pMtiri tMWitwi • 
cfwlc. tiit. a(iM|Mi Mttiro •■ ** 1 * •*»» * la** 1 * "■C* 
kit tare haw nit. wm. utftt iky. <«U» iatll ii(M Mrs 

TRS -80* L2 16k required 

FN CASSETTE IN IRSTNCTIMS 
SEN CIECK N NNEV NIEITI 

jistic Solar, Inc. 

PO BNSS0595, MiMi.Fl 33156 



Synergi 



Fat Mft letarautiea atari mm p*K r "*> iteejiiiiii ■ i ■■! .■ 
■sum mat « • M)ttcw4 •TtS-tt it i tr» a^ •! TjMi Cap 



SKEI TMU l.TTINb 

7171 
lilt 
1(0 

110 

no 



s 
II 

SI 

1M 
MO 



mmstt 



MS 



Ttm |H"tti» • at iif>*eup»d h* 
run Imn hand Wpt tutt* Hi 
<***»•« -4^ i*. •_ ia» ova* i 




tuM i«f»iUi ka* hrr* rwf in fcaM M«r drtadnd < 
<««smI iW.-l-aad.af mfi««hln 

TW pn a gam ■> dnafnnl hw hwmw prof***- fMl ««*!•"•*» »"* ■cramtmi rtp*tie All 
input* enr MrutiunKJ !*«• la** and HferartM laprtatina If ■ math ctWra n ratpiirad. *•!«• 
mum and MtMi err <+n»r*rd laatct than *ilh ■ ranulMnf If ■ m«h chart n ml ir- 
(|uir*d.iml% ihrMiHwiMuf talr.lmant t«*. Mrtttaml. Thr propane ttorei taanlaa in- 
formal win on all rvMonam and will dttpUv th* pr>»p**f lu. if aav at miuirfd Non- 
laaabir nntumm makina a laialaV pejrrhaar. oatwam Ifwn ■ taa dMrnl <*fcrf than 
tW aiarr «rf TMraawat. partonn; up it iha ptacr nf Hum*-* at* aaaaS ■■n n afd tv, ihr pm- 
r .m tai.M of tai and lataMr tatV* anr cntnaaVd and tfnrxj (<« -p In IW «aiai ■•■ 



af Irt M Wo ni af* pfimad inr ikM aaa* can hr nmoV and thr 
San* tu and ^ -,',H . data m data Mm an aa>uaH*l f» 



I.-.M 



Ovvrt irw ajad SaUBpfe R*fMKla. . . 

[>OC\! m«i! ■ tion 

Praa>r»an Dun Ii Docun»«*tatia*. 



solutions* 

•277 Route 55 (0 

La Grangeville, New York 12540 




9 



SOFTWARE 

P.O. BOX 521 Lowell, MA 01853 



J • Memory based printer spooler, 
overlap processing and I/O. 

2 • IBM based terminal driver, 

EBCD and correspondence 
code. Full ASCII character set 
with overstrikes. Scripsit 
ZAPS 

3 * Disk timing program 

Meter Type numerical and 
statistical screen displays. 
Very easy calibration of all 
type drives. 

af • Cassette test programs. 

Writes test data to tape, then 
displays all errors on screen. 
Use to check all idcets of 
cassette operation and dupli- 
cation quality. 

SEND FOR FREE FLYER 



— The bottom line — 

COST: $9.95 Each + .75 postage 
MA Orders + 5% tax ^235 




THE WAIT 
IS OVER 

Now for the first time, Cpaids. is 

making available its Federal 1040 

Tax package for the TRS-80 

Model II. 

Featuring- 1% and 3% medical limitation 
incorporated, auto checks for FICA over 
withholding, auto earned income credit, 
auto dividend exclusions, types tax 
preparer's Fed ID and SSN; proformas all 
forms for subsequent years. 

Schedules - A. B, C. D, E. F, G. R/RP, 
SE. TC, ES 

Forms • 2106. 2119, 2210, 2441, 3468, 
3903. 4625, 4972, 4726. 4797. 5695, 
6521 

Requires 64 K with dual disks using 
CP/M. 

CALL TOLL FREE 
800-321-2430 

CRtios. 

1640 Franklin Ave., Kent, OMe 44240 



^l 



PPI-80 



/ / 

PARALLEL I/O 
FDR TI IE TRS-80 

/ / 



»«,tch MiactaDM ftdcf«M tocodog 

compwi on board ragiMM pout Vippry 

TTi compsKoai^OHnai opt nar—nty iiiai n cia inrouoh 16 pin i 

•5 vottt and ground ai aach sockal 

3 toftwara aatactaola modaa ol operation 

nandanahmg 

plugs mlo keyboard or aipamion interface 

on board hiuge area lor experimenting 

provoiona lor interlacing Saari-BSA-RS noma comroHer 



ata i**«caaena exeua* 
t>a:f»ciion«j commuracation befeeen T»crocompuier» 
peraaet prater >niertaca 

•xnMeaa home control we BSfl home comroiier 
dwact control ol ugnti appiianoaa and moiori 
•ntertacet lo many popular boards including * D- D A coni*rier 
and an EPROM Programmer 



II 19 95 
89 95 
?5 95 



WM0 la aaaaaia rum and can be p u roHaaad 

Completely aatembled and letted 

Complete M antti all parte 

Bare board dialed and etched with assembly manual 

Accessor «s 

■ channel A O ? cnannei O A by Optimal Technology I"i00 

EPROM Programmer Model EP-2A- rg by Optimal Technology IU00 

To order send payment plus ti 00 shaping and handling to 
CMJAMT arlTlMt 
» O. K» «■ 
CHAJM.ECTON. • C »•*•» 



Quant 
/ys^erns ^ 



p.o. box 628 
Charleston sc 
29402 
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microcomputing bookshelf 



2 new books from the editors 
of Kit & «0 iUirroeoni|Hitiii!| / rrnivri* 

• 40 COMPUTER GAMES- BK7381 -At last! Here Is an unbeatable / CrA Mj K*t^ 
game collection from the folks at your favorite computer magazine. For- / ( 0fr) ^^™*1 -HVtb^ 
ty games in nine categories including; gambling, board game*, space 
games, puzzles, card games and calculator games These »re the beet 
game programs that have recently appeared in Kllobaud/Microcomput 
ing magazine, and truly offer something for everyone. 

Many versions of BASIC are represented including: North Star. Radio 
Shack MITS and Tiny Systems used are a* diverse as Aitair. H8. Tandy 
and KIM Even the calculator set has something to cheer about with 
I games for the HP4J7. Tl 59 and SR56 

A must have edition for the serious computer gamesman $7 95* 

• UNDERSTANDING AND PROGRAMMING MICROCOMPUTERS - BK7382-This easy to follow 
text brings you the work of several, well known authors in the computer field Understanding and 
Programming is divided into two parts The first covers microcomputers and their associated soft- 
ware starting with the fundamentals of system architecture and ending with an introduction to 
programming languages Section two addresses the thinking pro c es ses essential to good pro- 
gramming and gives detailed examples of well written software The articles were selected from 
the 73 and Kilobaud Microcomputing library of fine articles and represent the best that has been 
written on the topic in recent years A valuable addition to your computing library. $t0 95* 




Other Books 

eiNSIDE LEVEL II — BK1 183— For machine language programmers! This is a 
comprehensive reference guide to the Level II ROMs, allowing easy utilization 
of the sophisticated routines they contain. It concisely explains set-ups. ca * 
sequences, variable passage and I/O routines. Part II presents an entirely 
composite program structure which unloads under the SYSTEM command 
executes in both BASIC and machine code with the speed and efficiency 
compiler Special consideration is given to disk systems $15 95* 

e TRS 80 DISK AND OTHER MYSTERIES BK 1181 -by Harvard C Penning 
ton. This is the definitive work on the TRS 80 disk system it is full ol detailed 
"How to' information with examples, samples and in depth explanations 
suitable for beginners and professionals alike The recovery of one lost file is 
worth the price alone $22 50 * 

• PROGRAMMING THE Z-60- BK1 122 -by Rodnay Zaks Here is assembly 
language programming for the Z-60 presented as a progressive, step by step 
course This book is both an educational text end a sell-contained reference 
book, useful to both the beginning and the experienced programmer who wish 
to learn about the Z 80 Exercises to test the reader are included $14 95 ' 








e LEARNING LEVEL II - BK 11 75 -by David Lien Written 
especially for the TRS 80. this book concentrates on Level H 
BASIC, exploring every important BASIC language capability 
Updates are included tor those who have studied the Level l 
User's Manual Sections include: how to use the Edit' I 

"c operation, printers and peripheral devices, and the 
conversion of Level I programs to Level II. $15 95.* 

• THE BASIC HANDBOOK BK1 174 -by David Lien This book 
is unique It is a virtual ENCYCLOPEDIA of BASIC While not 
favoring one computer over another, it explains over 250 BASIC 
words, now to use them and alternate strategies. If a computer 
does not possess the capabilities of a needed or specified 
word, there are often ways to accomplish the same function by 
using another word or combination of words. That's where the 
HANDBOOK comes in It helps you get the most from your com 
puter be it a bottom-ot the line micro or an oversized 
monster $14 95 * 



*Utt *• otdw catd n Uw toU> ol torn miiiwi m MMn y*M* •**•» •"» • r . tf ir»l r ■•*« °* P*P*» •"*» •«** <* SO M**ocempulln« Bw*»iirtr» IVKttomufh 

f-H OJMbd Be *»« to inclwtft dwtk 0* «CU*M crUW card »fo n w«lo» Ne COD nrdrri arrrptrd AM abovf add » I OO hand**- **•?»** alio* 4 6 wk, 

lor detvery. Cfc« iWiiii rvyafdhtf, yoia o»dr»? W un ««Hr Ctniamn Scnkv at the ab u »« adatvtt 



FOR TOLL FREE ORDERING CALL 1-800-258-5473 



i 
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GAMES 




• MORE BASIC COMPUTER GAMES BKi 182 -edited by 
David H. Ahl. More fun in BASIC! 84 new games from the people 

ought you BASIC Computer Games Includes such 
favorites as Minotaur (battle the mythical beast) an 
(unload your troubles on the doctor at bargain rates) Complete 
with game description listing and sample run. $7 50.' 

• WHAT TO 00 AFTER YOU HIT RETURN BK1071 PCCs 
first book of computer games 48 different computer games 
you can play in BASIC programs, descriptions, many iilus 
trations Lunar Landing. Hammurabi. King. Civel 2, Oubic S. 
Taxman. Star Trek. Crash. Market, etc. $10 95 ' 

• BASIC COMPUTER GAMES BK1074-Okay, so once you 
get your computer and are running in BASIC, then what 9 Then 
you need some programs in BASIC, that's what. This book has 
101 games tor you from very simple to real buggers. You gel the 
games, a description of the games, the listing to put m your 
computer and a sample run to show you how they work. Fun. 
Any one game will be worth more than the price of the book for 
the fun you and your family will have with it $7 50 * 



MONEY-MAKING 



• HOW TO MAKE MONEY WITH COMPUTERS BK1003-ln 
10 information-packed chapters. Jerry Felsen describes more 
than 30 computer related, money making, high profit, low 
capital investment opportunities $15 00 * 

• HOW TO SELL ANYTHING TO ANYBODY - BK7306- Ac- 
cording to The Guinness Book of World Records, the author. 
Joe Girard. is the world's greatest salesman " This book 
reveals how he made a fortune - and how you can. too $2 25 * 

• FREELANCE SOFTWARE PUBLISHING BK1l79-by B J 
Korites This book is about money and how to make il by 
writing and selling computer programs." (author's foreword) It 
you have the skills to write a saleable program, you now need to 
acquire the skills to sell that program This compact book com- 
prehensively covers the entire publishing process and many 
aspects of software salesmanship $14 95 

• THE INCREDIBLE SECRET MONEY MACHINE - BK1 178-by Don Lancaster A dif 
lerent kind of cookbook" from Don Lancaster Want to slash taxes 9 Get free vacations? 
Win at investments? Make money from something that you like to do 7 You'll find this 
book essential to give you the key insider details of what is really involved in starting up 
your own money machine $5.95 * 





BUSINESS 



• PAYROLL WITH COST ACCOUNTING - IN BASIC - BK1001 - by L Poole & M. 
Borchers, includes program listings with remarks, descriptions, discussions of 
the principle behind each program, file layouts, and a complete user's manual with 

i step instructions, flowcharts, and simple reports and CRT displays Pay- 
roil and cost accounting features include separate payrolls for up to 10 com 
:ed interactive data entry, easy correction of data entry errors, job 
costing (labor of dist i >ting with full deduction and pay detail, 

and 16 different printed reports, including W 2 and 941 (in CBASIC) $20.00 * 

• SOME COMMON BASIC PROGRAMS BKi053-published by Adam Osborne & 
Associates. Inc Perfect for non technical computerists requiring ready-to-use pro- 
grams Business programs, plus miscellaneous programs Invaluable for the user 
who is not an experienced programmer All will operate in the stand-alone mode. 
$12 50 paperback * 

• PIMS: PERSONAL INFORMATION MANAGEMENT SYSTEM BK 1009 -Learn 
how to unleash the power of a personal computer for your own benefit in this 
ready to use data base management program $11.95 * 




Use ihe ate cord In the oock ol tM» n if *n at imbi 
•«M UJ4M. Be *ur« la mduda chock or detaaod crad* can 



• (« praca oT paper and mall lo 60 laV 
information. No C O.O orders orreptrd All above add • 1 .00 handltrsg 
your order? Please orlle Cusluma Vnxt al Ihe aotnc addreas. 



FOR TOLL FREE ORDERING CALL 1-800-258-5473 
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741$ 



Order by Cat No ,999 and fype 



74LSOO 
74LS01 
74LI02 
74LJ03 
74LS04 
74LI05 
741 $08 
74L$09 
74L$10 
74L$11 
74l$12 
74L$13 
74L$14 
74L$15 
74LS20 
74L$21 
74LS22 
74LS26 
74l$27 
74L$28 
74l$30 
74LS32 
74LS33 
741J37 
74LS3I 
741 $40 
74LS42 
74LJ47 
74LJ48 
74L$51 
74L$54 
74LS55 
741173 



$ 33 
$ 29 
$ 49 



$ 44 



$ 29 
$ 55 
$1 10 
S 35 
$ 29 
39 

n 

77 
55 
44 
39 



$ 
$ 
$ 
$ 
$ 
$ 

$ 66 
$ 69 



$ 44 



74LS74 $ 


'11 


74LS7S $ 


si 


74l$76 $ 


44 


74LS83 $ 


88 


74LS85 $1.15 


74LS86 $ 


M 


74L$90 $ 


M 


74L$92 $ 


'5 


74L$93 $ 


n 


74L$95 $ 


HH 


74L$107$ 


55 


74l$109$ 


55 


74LS112S 


55 


74L$113$ 


55 


74L$114$ 


5b 


74L$122$ 


55 


74l$123$1 15 


74L$124$1 55 


74L$125$ 


88 


74L$126$ 


HH 


74L$132$ 


HH 


74l$13»$1 25 


74L$139$ 


M 


74l$145$1 99 


74l$147$2 95 


74L$151$ 


H 


74L$153$ 


HH 


74l$154$3 50 


74L$155$ 


M 


74L$156$1 25 


74L$157$1 25 


741 $158 $1 49 


74LS160S 


H 



74L$161$3 

74L$162$1 

74L$163$1 

74L$164$1 

74LS16SS1 

74LS166S3 

74L$168$1 

74LS169S3 

74L$170$2 

74LJ173S1 

74LS174S1 

74LS175S 

74L$181$2 

74L$190$ 

74L$191 $1 

74L$192$ 

74LJ193 $1 

74L$194$1 

74l$195$1 

74L$196$ 

74L$197$1 

74L$221$1 

74L$240$3 

74L$241$2 

74L$242$1 

74L$243$2 

74L$244$3 

74L$245$5 

74L$247$ 

74L$248$ 

74L$251$1 

7415253$ 

74L$256$2 



74L$257$ 99 
74L$258$ 56 
74l$259$1 99 
74L$260$ 66 
74L$261 $2 50 
74l$266$ 66 
74l$273$3 25 
74l$275$4 95 
74L$279$ 49 
74l$283$1 75 
74l$293$1 99 
74L$295$1 99 
74L$?98$1 10 
74L$324$1 75 
74L$365$ 99 
74L$366$ 89 
74L$367$ 99 
74L$368$ 99 
74l$373$3 25 
74L$374$4 50 
74L$377$3 25 
74LS378S1 69 
74L$386$ 77 
74L$393$2 ?5 
74L$395$1 99 
74L$399$2 95 
74L$424$3 25 
74L$670$2.75 
81L$95 $1 .95 
B1LS96 $1 95 
811 $17 $1 95 
8H$98 $1 95 




€l€CTRONICS, INC.- 

19511 BUSIN6SS CTR. DR. D€PT V9 

NORTHMDGC, CRUFORIR 91324 

Send For Your Free Flyer Today! 



TTl's 



Order by Cat No 999 and Type 



'40(1 
'401 
7402 
7404 
7405 
7406 
7407 
7408 
7409 

Ml ' 
74 I 1 

7412 

74H 
7414 
7416 

7417 

P42fl 
7422 
74?3 
7425 
7426 
74?7 

7490 

74:1? 
7437 
8438 
7440 
F441 
7442 
7433 



s M 


7445 


$ 77 


74109 $ 55 


S M 


7446 


$ 69 


74116 $1 89 


s X 


7447 


$ 66 


74120 $ 99 


I 44 


7448 


$ 77 


74121 $ 44 


S 44 


7450 


$ 20 


74122 $ 50 


$ 39 


7451 


$ 50 


74123 $ 52 


\ in 


7453 


$ 50 


74125 $ 52 


5 H 


7454 


$ 20 


74126 $ 49 


$ N 


7460 


$ 29 


74132 $ 69 


I M 


7470 


$ 29 


74141 $ 77 


s N 


7472 


$ 29 


74143 $3 33 


| 41 


7473 


$ 36 


74145 $7 77 


$ 44 


7474 


$ 49 


74148 $1 29 


| II 


7475 


$ 49 


74150 $ 88 


$ 45 


7476 


$ 38 


74151 $ 59 


$ /H 


7479 


$3 99 


74153 $ 69 


$ 35 


7480 


$ 50 


74155 $ 49 


$ 44 


7481 


$ 99 


74156 $ 99 


$ 44 


7483 


$ 59 


74157 $ 63 


$ 18 


7485 


$ 85 


74160 $ 77 


s N 


7486 


$ 35 


74161 $ 79 


1 M 


7489 


$1 66 


74162 $ 79 


$ M 


7490 


1 44 


74163 $ 88 


$ 34 


7491 


$ 59 


74164 $ 88 


$ M 


7492 


$ 45 


74165 $ 88 


$ M 


7493 


$ 45 


74166 $1 29 


I H 


7495 


$ 65 


74170 $1 59 


$ 77 


7496 


$ 65 


74173 $109 


$ 44 


741011 


$1 69 


74174 $ 79 


$ 69 


74107 


$ .44 


74175 $ 79 



74176 

74177 

74179 

74180 

74181 

74182 

74184 

74185 

74190 

74191 

74192 

74193 

74195 

74196 

74197 

74198 

74199 

74221 

74251 

74273 

74278 

74279 

74365 

74366 

74367 

74368 

74393 

8T26 

8197 



$ 79 

$ 77 

$1 88 

$ 77 

$1 88 

$1 99 

$1 99 

$1 99 

$1 19 

$1 19 




$ 77 
$ 89 
$ 69 
$ 88 
$ 88 
$1 49 
$1 49 
$1 99 
$ 77 
$1 10 
$2 95 



$2 50 
$250 
$2 25 



flNAD€X 

DP9500 DP9501 PRINTERS 




$1650°° 



New Item Anadex 1 Two low cosl high performance printers 
I to' al> applications, including standard nigh density 
graphics capability Both models feature a 9 wire pnrt nead witn 
an incredible lite enpectancy ol 650 million printed chaiacteis 1 
Fu" 96 charade' ASCII set with lower case descender, douoie 
width p-mting bidirectional with shortest distance 
logic Adiustabie widtn tractor leed lorms control nor /oni.ii 
and vert'cal tabbing and print up to live copies 
i 232 serial o' current ioop en 

The DP9500 is the choice when you require mo 
I netween a 9 > > 
and 132 columns. 01 a / x 9 lont lor 175 columns Printer 
speed 150/200 CPS Wt 35 lbs 

The DP9501 it mamiy to- graph cs applications The 1 1 « 9 
chaiacter lorn produces superb graphics reproduction in '3? 
columns a-C the 7x9 Character font in 220 columns provides 
i Both models operate at 11OVAC 
and 220 IM use W' 35 lbs 

Cet No 2551 DP9500 printer 
Cat No. 2552 OP9501 printer 



HOM€ VIDCO SVSTCM 



ATARI GAME CARTRIDGES 



$183.00 



The nation's best selling home video entertain 
ment center is here! Currently supports a library ot 
32 game cartridges with over 1500 game variations 
and options. Now you can enjoy all the lun and ex 
citement of an arcade in your own home whenever 
you wish. Terrific for party entertainment, develop- 
ing coordination and dexterity, education, or just 
plain family fun. Comes with interchangeable 
joystick and paddle controllers, special circuits to 
protect home TV., and ATARI'S realistic "combat 
game with 106 variations and options. ATARI'S real 
istic sound effects and crisp, bright colors make the 
home video center your number one entertainment 
choice. 



CAT 140 

2375 

2206 

2207 

2701 



DESCRIPTION 

ATARI Heme Video Syitem 
Onvin| Controfcr Pan 
Paddle Contreier Pair 
Joystick CentroHer PMr 



Wl 
K it) 
I l-J 
? 10 
I ID 



PRICE 
18300 
19 95 
19 95 
19 95 



2376 
2377 
,2378 
1.2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
7388 
7369 
2390 
2391 
2392 
2393 
2394 
7395 
2396 
2397 
2500 
2609 
Mil 

2634 
2635 
2636 
2637 
2638 
2639 
2640 
2653 
2654 



Stars hip 
Black Jack 
Space War 
Surround 
Slol Machine 
Outlaw 
Slol Racer 
Video Olympics 
Breakout 
Canyon Bomber 
Slrtft Racer 

Home run 

Basketball 

Foolbal 

Bowkng 

Skydiver 

Fun with Numbers 

Brain Game 

Superman 

Casme 

Backgammon 

Video Chess 

Space invaders 

Adventure 

Indy 500 

Human Cannon Ball 

Codebreaker 

Flag Capture 

Ait Sea Battle 

Hunt and Score 

Miniature Goll 

Hangman 

Tic Tac Toe 

Circus 



I 0; 
I 0; 

6 or 
6 0; 
I 0; 
6 01 

6 07 

6 or 

I 0/ 

ti 0; 

b 07 

6 07 

fi 07 

fi 07 
6 07 
6 07 

6 it. 

h 07 
6 07 

6 or 

fi 07 

fi 07 

6 07 

b 07 

6 07 

I 07 

6 07 

6 07 

b 07 

I 07 

6 07 

I 7 

I 1)7 

I 1)7 



19 50 
1875 
1295 
17.95 
1875 
1950 
19 50 
1950 
1950 
19 50 
1950 
1950 
1950 
1950 
19.50 
19 50 
18.75 
1950 
25 00 
2500 
37 95 
3795 
25 00 
2500 
37.50 
19.50 
1950 
1950 
1950 
19.50 
19.50 
18.75 
19 50 
19 50 



Note: Not for use with ATARI Programmable Computers 



SSM MB6B A|*p 

8K STATIC >I53 
RRM BOARD 




8K bv'r 
8085 and/80 I /. ' h 
lets 'M MBbB think like t» 
dependent 4K addressing | 
softwa-e memory needs 



li 

dresvvj >• ndependani 4K hawes 

4« Marcs o« ;ne 8K boa'd m 

, ? o meet varying 

ses 10* power 21 102 RAM s 



operates ai 2 or 4MHZ and is compatible with direct menoty 
access com 



Cal No 
•1400- A 
M400B 
1401 A 
1401 B 
•1402 



Description 
450n« kit 
250ns kit 
450ns a & t 
250ns a & I 
Bareboard 



Price 
$135 00 
$147 50 
$209 00 
$225 00 
$ 73 75 



SSM OBI 

VCCTOR JUMP 1 * 
PROTOTVPIRG CRRD 
$41.25* 



.-+-1 ' J l ^ 



.. r .'«*a*a»«apaj 






on 

Plug compatible lor S '00 bus systems features tun 16 bit 

;i Wdress with flip seieclion 0' 8080 or Z80 Can be 

set to lump on power on clear resel or ooth Prototyping areas 

on The card try ten 16 pin iC S three 2* 28 pin iC 5 and Iwo 

spare regulator p r 

•Cat No 1429 0B1 kit $41 25 

Cat No 1430 0B1 a &t $85 00 

Cat No 1431 0B1 bareboard $32 00 



Coll Toil-Free: USD (800) 423-5387 

In California: (800) 382-3651 

Local & Outside USA: (213) 886-9200 
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'■JfUii 




$159 kit 



ssm cei-n 
8080 CPU BOARD 

Just add an ,/0 board and it s a computer 1 ?% bytes o' on 
board RAM with option tor 2K ot on board PROM includes a 
power on preset |ump circuit and MWRiTE is available allow 
mg use without a front panel There s a parallel input port with 
status and AlP controlled addressing or PROM in ?K blocks 
vector |ump m ?K increments RAM in 256 byte increments 
RAM m ?S6 byte increments input Don tor addresses 31 m 
decimal 

'Cat No 1403 CB1 A kit $159 00 

'Cat No 1441 CB1 Abareboard SZ8 75 

• Denotes eicess inventory sale No further discounts 
shall apply 



INV€NTORV S 



A A •• -.-■■'■ :< ' ■ ' ' ' 

de> code « the V" of data statements trdmn the [rogram m 
chides 1) Heawts; User spacrhes up to three numeric and 
either or Doth alpha .nlpHwefni lo be '-sled Can o* vendor 
?| Coil' value summary Marches all slock areas and 
'eoorts cos' , total value Dy ime item and grand 

3) Recorder search ' .lock level against 

specifred -eo'der point and fdjattyl Ml nne 'lems in need ol 
reorder along witn tentative 'eo'der mtotma' 4) Mei; < ■■ ■ 
arbitrary let humors reflecting the order m which the data 
codes are stored Reveals l*e names and numbers in groups of 
i 5i Delated Heat Stock Met can be catwo by ••» number to 
reveal memory micmaton |) Heatf ami are* Me. Stores and 
reenters data from day to aa, 7) Data change. JpfljM lata 
Base 
Cat He 7051 TRS 80 17 16k. cassette 



$24" 



MICROSOFT 

TRS-80 FORTRAN PLUS 



source hen. oat. 
TOS 'h. 



codes and supports complete iniet standard macro ' I 
mg loader provides a variety or capabilities, oecuied Dy means 
ol easy command lines and switches Any number ol programs 
may be loaded with iust one command Te«l editor random ac 
cess "ne oriented Only the >••• required to run a 

particular FORTRAN program need be loaded beic 

vivers 'or each Logic Unii'Mumtar may ae 
written simplifying me task o' mie ■• 

to IRS 90 FORTRAN pi CISC 

Cat No 1341 TRS-BO 12. 32K w'disk >I03 



PROGRfiMMfi 

TICLINC 

$24 95 



The most complete communications 'o' me 'RS 80 leatur 
ing Most computer Turns your TRS 80 into a hmeshare mam 
trame Smart Terminal Operate another TRS 80 oi 
timeshare system trom your TRS BO Send receive BASIC pro 
grams and data Allows enhance ot programs over phone lines 
leaujam required) Optra** a serial printer test your modem 
and RS7J? and much more' Compl e te w«h eitensive manual 
on NMpnone communications 

Cat Ho 2137 TRS 80 L2. 37K modem DOS 7 1 RS737 
cassette used w'ditk 



Introduction to 
TRS 80 GRAPHICS 

Bob Albrect and Don Inman 



-i ptotdotars Iha Dook provides a Msa ■vtaeaoaaei 

; .i, - tteayajweaiig uwg dlaigni ai ret eaa - *• • m 

g Snack TRS 80 Computer The boa* b o am i erth 

basic concept tme drawing then leads the reader to more com 
piexed geometric shapes movmo. i 

more advanced topics No mathmatics is required but an un 

derstandi" i ■ • je is assumed A TRS 80 Compute" 

i immended but concepts will apply 

to most low cost co mpu t ers w«ih graphics tapabM«s I ' 75 

P*QMI 

Cot No 2S44 



$8.95 



PROGRfiMMR 

DRTR BRS€ MRNRG€M€NT 5 

$49" 

An easy method ol dealing data hies and storing them m disk 
memory lot 'uture use A Hon 

lor maaimum productivity and modily or incorporate your own 
rout ies Uses RaCO Snack s 'HS'WS BASIC languaqe 
Cat No 2146 TRS 80 L2. 16K 



TRS-80 €l€CTRIC PCNCIL 



- • . ,','■•" ;>• .'ft lit! • • '• „" ' I" : : ' 

the handling ot lent Eliminates the need lor word "*t 

or carriage returns Line 'o'matting >s done automj 

sen delete o< ■>■ 

Mngt 

Cat He 1338 TRS 80. LI t 12. 16K. cassette 6 ei 

Cat No 1338 D TRS 80. 11 * 17. 16k. disk 6 li 



S 95 00 
S145 00 



TRS-80 CP/lM 
$149" 



A Me oriented disk operating system that provides a common 
set ot utilities lor program development and operation There are 
sn built in commands o'us utilities caned 

.. ! | 

manuals CP'M is a registered 'rademart ol Tiqitai research 
Cat No 1679 TRS-80 L2. 16K w/disk 



VCRBRTIM 525 S€RI€S 

5'/4 " Diskettes 

• Double Density 

• Single sided 

• Ported tor commercial and general applications 
Cat Ne Description Type Use ler 10 lor 

1147 Salt sector 525 01 TRS-80 M.I no 

1148 10 here, hart 525 10 North Star Apple $33 00 

1149 16 hew. hart 525 16 kbcreeehs $33 00 

VCRBRTIM 577 S€RI€S 
10 P€R BOX 

• Certified twice. 77 tracks 

• Single sided, double sided 

• Built in hub protector ring 

• For critical data applications 

7330 Sell seder 577 01 TRS 80. etc S49 95 

7331 tO hoW. hart 577 10 North Star Apple S54 95 

7332 16 hoW. hart 577 16 Nkcreootii. etc S49 95 



DISK/DISK€TT€ DRIVC 

H€RD CLCRNING KIT 

•• " ,■■•■] i ., - - .•-,-• i 

r) error tree aaarahan Jna*e OmaT pareaharat 
devices the read'write hear>>< on d»s» drives * - 

pan without : the unii But 

now witn Hobbyw I ■ 

I 
•or Doth V/. and 8 drives smgie and doubW sided Cames 
S 8*) eanirv] . 



Cat No 2499 
Cat No 2S34 



• ■ ■ '.'.■ ■ 
disk 

• diskette 



$30 



HOBBVUJORLD €L€CTRONKS INC. 

19511 BUSINCSS CTR. DR. D€PT V9 NORTHRIDGC, CflUF 913241 



HflYD€N SARGONII 

• Available m Cassette or Diskette 
Sa'gon n IU ' play' When setting up the Doard 

• '■ mo 'ight Detore chooS'ig a 
••■ displays the • 

-ntempiatmg and then displays the 
move 4 has chosen It comes with a randonwed book n' opening 
moves Nv * ■ 1 Wv«*s o< psay and a spec i* mm mode thai wm 
sugpev moves te> puyers who may need some help 
Cat No Oescnehe* WeajM *nce 

7087 TRS SO 17 16K Cassette 6ea $79 95 

7083 AppW I. 74K Cassette 6 w $79 95 

7352 TRS 80 I? 16k thtkette 6 at $35 95 

2347 AppW I. 74K Diskette 6 or $35 95 



TRS-80 ond nPPL€ 

16K MCMORV RDD-ON 
$55 oo 

. ,- . ...... . •• ]. »on J r i -"!»'- 

al aacavatat mmwomm CaaiaMte mm RAM s and pre 

praa/awwaad w». - 

Cat Ho Detcnphon 

1156 For TRS 60 key Board Unit 

1156A Far TRS 80 dp Interlace purchased before 4 1 79 

11568 For TRS-80 Eip Interlace purchased after 4'W9 

1156C AppW 8 

11560 FXIDY 



TRS-80 €DG€ CONNCCTOR 



r-J L. • 40 contacts (2 » 2 

— I!!!!!"!!""!!"t;r — • 1 " spacing 

For oapansion or main unit Wl 4 ot ^09 
Cat No 1980 g fo( $9 




T6L6SIS 
VRR/80 
TRS-80 
I/O UNIT 

$105 

• for level II rnacrtrri-- 

• Provides 8 inputs and 8 outputs 

• Plugs directly into your TRS-80 



without tie eipansion interlace' Oat a pack 
i applications md several 

AMI 
Cat No 1092 



S€ND FOR 
FR€€ FLV€R 
FCRTURING 



I, 



For all your electronics or hobbyist's needs, cir 
cle our Reader Service number or write 'phone us tor 
your tree illustrated dyer today' 

HOW TO ORDCR 

Mm«num Order S15 00 Order by phone, mail, or al our relad 
stares Pay by check Mastercharge. Visa or C D PWase include 
eipnahon dale with charge cart orders U S SS wily Include 
eaawe number and maaanne issue you are ertermg (rem Add 
$1 25 tar C ami thiaai n g charges hem rates beWw 

Shippmg Rates USA 
Ground AM $2 75 Km twit 2 •» and 40c each add! I ft 
An Add S3 75 tor hrsl 7 lbs ft 70c each addtl lb 

Shipping Rates Foreaj* 
Ground Add S3 00 lor first 7 lbs and 60c each addt i lb 
Air Add $11 25 tar lust 7 lbs and S5 00 each addtl lb 

Prices Valid Ihrough monllt ol mut Hoi it iponiiWf lor iioo 
qraphic.il errors Some items sutuect to prior saw or quantity kmits 
170 day guaranteed satisfaction 
t irephon Parlially assembled kits, abuse ar misuse 



■ Reader Service— see page 226 
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TRS-80 
SERIAL I/O 

• Can input into basic 

• Can use LLIST and 
LPRINT to output, or 
output continuously • 
RS-232 compatible • 
Can be used with or 
without the expansion 
bus • On board switch 
selectable baud rates 
olHO.1 50. 300. 600 
1200. 2400. parity or 
no panty odd or even. 
5 to 8 data bits, and 1 
or 2 stop bits DTR 
line • Requires +5. 
-12 VDC • Board only 
$19 95 Part No B0 10. 
with parts S59.95 Part 
No 801 OA. assembled 
$79 95 Part No 8010 
C No connectors pro- 
vided, see below 




nactnr Pirt No 

DB?SPi600««n 

9' 8 Conductor 

cow SI 95 Part 

No 0B2SP9 

3 nbson CMM 
MffthKucnadco*. 
mcunioMTPs 



*r 



)S'9<»Pan 



COMPUCRUISE 




$1 2935; with cruse con- 
trol $169.95 



PAPER TIGER 




Prints address labels, 
multicopy invoices and 
legal-size reports. Ad|ust 
the tractor width from 
1-3/4 to 9-1/2 inches. 
8 switch-selectable 
forms lengths. Print 6 
or 8 lines per inch Add 
the software-setectabte 
full dot plotting graphics 
option to print illustra- 
tions, block letters, 
charts, graphs Part No. 

162 172 $899.95 -with 
graphics option Part No 

1621 73 $1099.95 



GAME PADDLES 
& SOUND 




Includes 2 game pad- 
dles, interface, soft- 
ware, speaker, power 
supply, full documen- 
tation including sche- 
matics, theory of 
operation, and user 
guide, plus 2 games on 
cassette (Pong and 
Starship War) $79.95 
Complete Part No 
7922C 



DIGICOM DATA 
PRODUCTS INC. 

Series 31 2 
Acoustic Coupler 

4» 

300 BAUD Originate. 
Part No AC3122. 
$21995 300 BAUD 
Answer, Part No 
AC3122. $21995 
300 BAUD Answer/Or- 
onatePartNoAC3123 
$229.95 



IBEX 
LIGHT PEN 



Comes with Backgam- 
mon and Tic-Tac-Toe on 
tape with full documen- 
tation and program list- 
ing. Requires 9v. battery. 
Part No. IBEX $19.95 



SYSTEM 

EXPANSION 

from 

LNW Research 

• Serial RS232C/20 
mA I/O • Floppy con- 
troller • 32K bytes 
memory • Parallel print- 
er port • Dual cassette 
port • Real-time clock 

• Screen printer bus • 
Onboard power supply 

• Software compatible 

• Solder mask, silk 
screen PC board and 
user manual, Part No 
LNW80. $69.95 



DISKETTES 




Box of 10. 5" $29 95. 
8" $39 95 

Plastic box. holds 10 
diskettes, 5 $4 50. 
8 $6 50 



16K RAMS 

For the Apple. 
TRS-80 or Pet $B 
each Part No 41 16' 
2117. 



LEEDEX 
MONITOR 



CI 



12" Black and White • 
12 MHz Bandwidth 
• Handsome Plastic 
Case* $139 00 



S- 100 INTERFACE 




AN S-1 00 bus Adapter— Motherboard for the 
TRS-80 Kit, Part No. HUH81 DLXK. $295.95 
Assembeled, Part No. HUH81 DLX A, $375.95 



NOW! 

A FULL SUPPORT SYSTEM 

FOR TRS-80 




• 32K of RAM • EPROM firmware • Disk 
control • Data acquisition • Parallel I/O • 
Serial I/O • Plug into GPA's Motherboard 
GPA's quality design includes • 6-44 pin edge 
connectors • *5V, -5V. » 12V. -12V external 
power supply required • Active termination 
The Motherboard. Part No GPA80, is only 
$14935 

TAKE ADVANTAGE OF 

GPA-EXPANSION CARDS 

FOR THE GPA80 

Memory cards: Now with Fortran compilers 
available for your TRS-80, additional expansion 
memory is a must! Card with sockets only, Part 
No GPA801.$1 19.95 Card with 16K of 41 16 
Dynamic Ram, Part No GPAB02, $224 95 
Card with 32K of 4 1 1 6 Dynamic Ram, Part No. 
GPA803. $329.95. All cards come equipped 
with sockets to accomodate 32K of Ram. 
EPROM firmware card. Put those valuable 
subroutines in firmware. Don't waste time 
loading and unloading tapes and disks. For 2708 
or 2716 EPROMS. Part No. GPA806, $7935. 
Serial I/O card. Here's what you've been 
asking for, a full serial terminal interface, with 
RS-232Cor20mA Current loop Input/ output 
capabilities Part No GPA807. $79 95 
Parallel I/O Card. Control functions in the 
outside world, monitor and store real time 
events Two parallel output ports Dip switches 
select ports (0-254) Part No GPA808 
$79.95 



FLOPPY DISK 
STORAGE BINDERS 




Three nng binder comes 
with ten transparent pias- 
tc steeves which accom- 
modate either twenty, 
frve-fich or ten. aght-tnch 
floppy disks Binder & 1 
holders. Part No 8108- 
$995 • Extra holders. 
PartNo810-69Ceach 



Three-nng binder with 
ten 5 1/4 inch (ackets 
Part No 51 08 -S3 95* 
Jackets only, fits stan- 
dard 3-nng binders. Part 
No 510— 69C each 



DIGITAL 
CASSETTE 




5 mm each side Box 
of 10 $9 95 Part No 
C-5 



TRENDCOM 
PRINTER 




TRENDCOM 200, Part 
No TRC0200 $49535 
Interface for TRS-80, 
Part No T80A $4995. 
For Apple II. Part No. 
TRCALL $7595 For 
PET. NO TRCP2. 
$79.95 For Sccccerer, 
TRCSR1 $45 95 



SARGON: A Computer 
Chess Program 

Features the complete program that won the 
1978 West Coast Computer Faire Tourna- 
ment Part No 00603 — TRS-80 Level II. 
Part No 00604 — Apple II (24K) $19 95 



SPINWRITER 
MODELS 5510 and 5520 




Features— EIA RS-232C/CCITT V.24 Inter- 
face Standard • 55 Characters Per Second 
Maximum Print Rate • Impeccable Print Quality 
(OCR Quality) • Microprocessor Electronics • 
High Resolution Rotting /Graphing • Lowest 
Operating Noise Level • Self-Test Printing • 
Operator Engineered Control Panel • Prints 
Original and up to Seven Copies • NEC Informa- 
tion Systems new Model 5510 Receive Only and 
Model 5520 Keyboard Send/Receive SPIN- 
WRITER terminals are microprocessor con- 
trolled serial, impact terminals designed for 
remote printing applications where impeccable 
pnnt quality is required Model 5510 RO. Part 
No NECA30759 $2795.95 • Model 5520 
KSR, Part No NECA30762 $3095 95 



Send for FREE Catalog., a big self addressed envelope with 80C postage gets it fastest! 



Mention part no., description, and price. In USA shipping paid by us for orders accompanied by check or money 
order We accept COD. orders (U.S. only) or a VISA or Master Charge no., expiration date, signature and phone 
no., shipping charges will be added. CA residents add 6.5°/o for tax. Outside USA add 1 5°/o for air mail postage 
and handling. Payment must be in U.S. dollars. Dealer inquiries invited. Prices subject to change without notice. 



Order Line: (408) 448-0800 



ELECTRONIC SYSTEMS Dept80 - P0Box21638SanJoseCAUSA95151 



To Order: 

S9 
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. . . We have them All! 

All the Disks and Printers 
that interface to the TRS-80 



CENTRONICS 
PRINTERS 



Disk Drive for the 

TRS-80 S 

Save over $100 

on Radio Shack Price 

Percom, Lobo, Vista 

Full compatible with expansion 
interface and TRSDOS software. 



OUR 
PRICE 



$369 



NEW Digital Innovations 

Drive — complete w/case and 

P.S. Your choice of Shugart or 

MPI (40 track) drive 



A 

Fantastic 
Value 



$349 



2 Drive Cable $24 95 

4 Drive Cable $34 95 

(Add $6 for shipping and insurance) 



CORVUS 10 megabyte hard 
disk for Mod. I or II 

ONLY $4795 



ESCOIM CONVERSION 
FOR IBM SELECTRIC 

Complete w microprocessor controller and 
power supply Factory built User installs 
solenoid assembly or it can be done at Escon 
factory at nominal cost 

Parallel version TRS30. $575 Only $514 
TRSflO Cable (specify Mod I or III $25 

(Add $6 for shipping I 



PERCOM 

ELECTRIC CRAYON 

List $249 95 ONLY $229 . 95 



RADIO 
SHACK® 

TRS-80® £==; 





with standard 
Radio Shack warranty 
through Radio Shack stores 

10% Off on Mod I and Mod II 

Mod I. 4K List $499 OUR PRICE $449 

Mod I Level 2. 16K. List $849 764 

Mod II w/64K. List $3899 3499 

Expansion Interface with RAM $269 




Paper Tiger l* $995 $895 

w graphics option, mcl buffer. $1194 $989 

TRS 80 cable $ 46 

(Add $7 50 for shipping and insurance I 

OKIDATA PRINTER 

MICROLINE 80 

9x7 dot matrix, 6 or 8 lines per inch, prints 132 
columns using compressed print Prints block 
formatted graphics as displayed by TRS-80. 
u/lc, friction feed (prints from roll) or will feed 
standard 9 V pin feed fanfold paper Uses 
Centronics style parallel interface; piii'i ocn 
patible with all TRS 80s List $949 




OUR PRICE <RAQ 

only $o**y 

Adjustable Tractor Feed Option $99 




N 

Text Quality 
Parallel 



NEW 730 w friction and tractor ONLY $679t 
779 (TRS-80 Line Prtr I). List $1245 949* 

779 w tractor. List $1350 1049* 

702 120 cps. bi directional, tractor, VFU 1996 

703 180 cps, bi-directional, tractor. VFU 2395 
'same as Line Printer I Tsame as Line Prtr II 
(Shipping for 730 and 737 $7.50 Other models 
shipped freight collect) 



NEC SPIIMWRITER 



I'M 




A fantastic 55 cps letter -quality printer 
A fantastic value . . Call for Price! 



I I'OlU ft I el inter) lOUtpBI 

forms Line Printer III) 

List $1940 (shipped freight col 



$1735 



CP/M OPERATING SYSTEM 

for Mod I CP/M 1 4. List $145 $129 

for Mod II CP/M 2.2. List $170 . $149 

Shipping $2.50 
Complete line of CP M software avi ibd 

at discount prices Call us 1 



TPIVl ,i rlisk operating system which 
runs CP M compatible programs, written 
specifically for Z& terns more 

efficient and less expensive than CP M ' 
List $79.95 specify Mod I or Mod II 

our price $59.95 



Printers for TRS 80 require Level II machines. Printer cables extra. Call for price and order number 



Prices in this ad are for prepaid orders. Charge cards and COD. 2% higher. Deposit may be required with CO D. All prices subiect to change and offers 
subject to withdrawal without notice. Radio Shack and TRS-80 are trademarks of the Tandy Corporation. CP I M is a trademark of Digital Research. 

WRITE FOR FREE CATALOG - 

MiniMicroMart, Inc. 

1618 James Street, Syracuse, NY 13203 (315)422-4467 twx 710 -54 1 0431 





,' AnMt Service— see pige 22t 
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Selling Lobo Drives Disk 

Memory Systems makes 

a lot of 'cents'. 



Yes, becoming a LOBO DRIVES Dealer can make a 
lot of sense. For one thing, the demand for disk drive 
memory systems is growing . . . and will continue to 
grow for the next several years. Let LOBO DRIVES 
help you get your share of this expanding market. 

• DEALER DISCOUNTS- LOBO offers a discount 

schedule that lets you increase your profitability. 

• DEALER SUPPORT- LOBO backs its dealers 
with leads generated by national advertising; 
local, regional, and national trade shows; special 
promotions; outstanding documentation; quick 
response to phone calls; and delivering a quality 
product at a fair price, on time. 

• 1 YEAR WARRANTY -LOBO is so confident in 
the quality of its drives, it offers your customers a 
1 year 1 00% parts/labor warranty. How's that for 
a selling point? 

• LARGE FAMILY OF PRODUCTS-Only 

LOBO offers you a large selection of 

5.25- and 8-inch floppy disk drives, 

and Winchester hard disk drives ^ 

for TRS-80. APPLE and S-1 00 

bus computers. 



• TECHNOLOGY LEADERSHIP- All LOBO prod- 
ucts represent the latest in the state-of-the-art 
technology. When there is something new in disk 
drive technology, LOBO will be the first to have it. 

USING LOBO DRIVES MAKES 
GOOD SENSE. ..SELLING LOBO 
DRIVES MAKES MORE... 

Call or write today for your dealer information kit. 

935 Camino Del Sur 
I Goleta, California 9301 7 
(805) 685-4546 



drives 



w. , r v_ -j^p .. CAN you REALLY AFFORD 

INTEPNATIONAL TO PAY LESS?" 

TRS-80 • • mgtttai ad tradamarh erf Radio SMac*. • Tandy Company 





STARTER KIT 

EXATRON STRINGY FLOPPY FOR THE TRS-80 



Recommended initial purchase 

Exatron Stringy Floppy 

3 Wafers each: 5, 10', 20, 50' 

Bus Extender, 2-for-1 

ESF Machine Language Monitor 

Wafer Organizer 



S249.50 

40.00 

15.00 

9.95 

5oo 

$319.45 



SPECIAL PRICE FOR THIS STARTER KIT 
Sales Tax (California only) 
Shipping and Handling 



TOTAL 



S299.50 



5.50 



For more information see the current Exatron Stringy Floppy Owners Association Newsletter in Microcomputing. 

Stringy Floppy it a trademark of bxatron Corporation. 

HOT LINE (For calls Oots.de ca) 800 538 8559 



If you have any questions about the product, about Exatron, or 
FSFOA, please call the Hot Line. Address letters to ESFOA, 3559 
Hyder St . Santa Clara. CA 9505t. 




.-.< 



excellence in electronics 



exatron 

3555 Ryder Street ■ Santa Clara, California 95051 
(408) 737 7111 



